#!/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( "TeX Gyre");

if (not $ENV{'TEXIPKGUSDEPRECATED'} eq 'YES') {
    if (${II2INSTALLDIR} =~ m|^/usr/local/teTeX|) {
	my $msg = "You are now configuring in the location for de deprecated gwTeX 2003-2005 i-Package in part based on teTeX. This is probably not what you want. I suggest you make sure you have the gwTeX i-Package based on TeX Live installed. Then the best thing is to reset this i-Package to its default package properties. It will then pick up the new default location.";
	$doresult = `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Ar you sure you want to install in this location?" -I \"${msg}\" -1 "Yes" -2 "No"`;
	chomp( $doresult);
	if (($? >> 8) != 0) {
	    print "i-Package process aborted at user request\n";
	    exit 0;
	}
	`"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Environment -E "TEXIPKGUSEDEPRECATED=YES"`;
    }
    if (${II2INSTALLDIR} =~ m|^/usr/local/TeXLive|) {
	my $msg = "You are now configuring in the old location for gwTeX based on TeX Live. This is probably not what you want. I suggest you make sure your TeX i-Package has migrated to /usr/local/gwTeX, then the best thing is to reset this i-Package to its default package properties. It will then pick up the new default location.";
	$doresult = `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Ar you sure you want to install in this location?" -I \"${msg}\" -1 "Yes" -2 "No"`;
	chomp( $doresult);
	if (($? >> 8) != 0) {
	    print "i-Package process aborted at user request\n";
	    exit 0;
	}
	`"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Environment -E "TEXIPKGUSEDEPRECATED=YES"`;
    }
}

if (not -d "${II2INSTALLDIR}/fonts/type1/public/tex-gyre") {
    ipkgwarn( "### ${PROGNAME}: No TeX Gyre found. Configuration cannot proceed. Bailing out..\n");
    exit( 1);
}

print "### ${PROGNAME}: Preparing TeX for TeX Gyre configuration...\n";

ipkgsystem( "${updmapcmd} --nomkmap --enable Map qbk.map </dev/null");
ipkgsystem( "${updmapcmd} --nomkmap --enable Map qpl.map </dev/null");
ipkgsystem( "${updmapcmd} --nomkmap --enable Map qtm.map </dev/null");
ipkgsystem( "${updmapcmd} --nomkmap --enable Map qcs.map </dev/null");
print "### ${PROGNAME}: Configuring TeX to use TeX Gyre. Please wait...\n";
ipkgsystem( "${updmapcmd} </dev/null");

$doresult = `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Do you want to enable GUI App use?" -I "The TeX Gyre fonts come with OpenType versions. If you select \"Yes\", I will copy these to /Library/Fonts so you can use them in GUI Mac Applications." -1 "Yes" -3 "No"`;
chomp( $doresult);

if (($? >> 8) == 0) {
    print "### ${PROGNAME}: Installing OpenType versions in /Library/Fonts...\n";
    ipkgsystem( "/bin/rm -rf /Library/Fonts/tex-gyre");
    ipkgsystem( "/bin/rm -rf \"/Library/Fonts/TeX Gyre\"");
    ipkgsystem( "/bin/mkdir -p \"/Library/Fonts/TeX Gyre\"");
    ipkgsystem( "/bin/cp -pr \"${II2INSTALLDIR}\"/fonts/opentype/public/tex-gyre/* \"/Library/Fonts/TeX Gyre/\"");
}
if (($? >> 8) == 1) {
    print "### ${PROGNAME}: Not installing the fonts in /Library/Fonts...\n";
}
warn "### ${PROGNAME}: Finished.\n";
print "### ${PROGNAME}: Finished.\n";

exit( 0);

# $Id: texgyre.configure 109 2006-12-28 21:54:55Z gctwnl $