#!/usr/bin/perl

$II2PKGDIR = $ENV{"II2PKGDIR"};
$II2INSTALLDIR = $ENV{"II2INSTALLDIR"};
$II2RESOURCES = $ENV{"II2RESOURCES"};
$II2DOSERVER = $ENV{"II2DOSERVER"};
$II2BUILDSTAMP = $ENV{"II2BUILDSTAMP"};

if (${II2BUILDSTAMP} < 1160910526) {
    warn "### You need at least i-Installer 2.83 for this package. Bailing out...\n";
    exit 1;
}

$PROGNAME = `"${II2RESOURCES}/basename" "$0"`;
chomp( $PROGNAME);

print "### ${PROGNAME}: Started...\n";

my $arch = `uname -p`; chomp $arch;

require "${II2PKGDIR}/texpkgs.sharedscript.pm";

checkPrerequisites( "ConTeXt");

print "### ${PROGNAME}: Removing ConTeXt from this location. Please wait...\n";

ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/bibtex/bst/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/context/config");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/context/data");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/context/examplap");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/doc/context");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/doc/fonts/hoekwater/koeieletters");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/doc/fonts/urw/urwgothic/");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/doc/scripts/context");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/adobe/utopia");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/bh/lucida");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/hoekwater/koeieletters");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/bitstrea/charter");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/jmn/hans");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/microsoft/arial");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/microsoft/verdana");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/public/antp");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/urw");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/*/*/context");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/truetype/hoekwater/lm/lmtypewriter10-regular.ttf");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/enc/dvips/jmn");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/enc/dvips/lm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/enc/pdftex/context");
#ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/fonts/enc/pdftex/lm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/metapost/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/scripts/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tex/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tex/generic/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tex/latex/context");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/f-urwgothic.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/t-bib.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/t-bnf.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/t-lettrine.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/tpm/u-texshow.tpm");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/web2c/context.cnf");
ipkgsystem( "/bin/rm -rf \"${II2INSTALLDIR}\"/web2c/natural.tcx");

ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p bibtex/bst)");
#ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p doc/fonts/urw)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p doc/scripts)");
#ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p fonts/*/*/*)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p metapost)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p scripts)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p tex/*)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p tpm)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p web2c)");
ipkgsystem( "(cd \"${II2INSTALLDIR}\"; /bin/rmdir -p context)");

ipkgsystem( "${mktexlsrcmd} \"${II2INSTALLDIR}\" </dev/null");

ipkgwarn( "The parts of ConTeXt that are written in non-ConTeXt specific locations have not been removed. These are mostly font-related files.\n");

warn "### ${PROGNAME}: Finished.\n";
print "### ${PROGNAME}: Finished.\n";

exit( 0);

# $Id: context-update.remove 106 2006-10-31 21:00:31Z gctwnl $