#!/usr/bin/perl

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

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

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

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

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

# Unpack Mac system fonts to texmf-local
macFontUnpacking();

# For all TeX Live distributions found
#   disable gtamacfonts.map (is loaded by style files)
@distlist = `/Library/TeX/.scripts/texdist --list`;

chomp( @distlist);
foreach my $dist (@distlist) {
    print "### ${PROGNAME}: Found distribution $dist\n";
    if ($dist =~ /^TeXLive/) {
	if (ipkgsystem( "/Library/TeX/.scripts/texdist --texdist=\"$dist\" 'updmap --listmaps' " . '2>/dev/null | grep gtamacfonts') == 0) {
	    ipkgsystem( "/Library/TeX/.scripts/texdist --texdist=\"$dist\" 'updmap-sys --nohash --disable gtamacfonts.map' " .' 2>&1 </dev/null');
	}
	else {
	    print "### ${PROGNAME}: Skipping updmap disable because gtamacfonts is not there\n";
	}
	my $texmflocal = `/Library/TeX/.scripts/texdist --texdist="$dist" 'kpsewhich -expand-var \\\$TEXMFLOCAL'`;
	chomp( $texmflocal);
	# ipkgsystem does not work here. Why? Probably path missing?
	# print( "/Library/TeX/.scripts/texdist --texdist=\"$dist\" 'mktexlsr $texmflocal'\n");
	ipkgsystem( "/Library/TeX/.scripts/texdist --verbose --verbose --texdist=\"$dist\" 'mktexlsr $texmflocal'");
	print "### ${PROGNAME}: Done updating $dist ($texmflocal)\n";
    }
    else {
	print "### ${PROGNAME}: Skipping non TL distribution $dist\n";
    }
}

# Create /usr/texbin if not there
if (not -e "/usr/texbin") {
    ipkgsystem( "ln -fhs ../Library/TeX/Distributions/.DefaultTeX/Contents/Programs/${arch} /usr/texbin");
}
# Create /usr/local/bin/texdist
ipkgsystem( "ln -fhs ../../../Library/TeX/.scripts/texdist /usr/local/bin/texdist");

sub macFontUnpacking
{
    print "### ${PROGNAME}: Attempting to unpack Mac fonts for TeX use...\n";
    my $macfontdir = "/Library/Fonts";
    my $makeafms = 0;

    if (not -x "/usr/local/bin/fondu") {
	print "### ${PROGNAME}: Fondu is not available. I will not unpack Mac fonts.\n";
	return;
    }
    else {
	print "### ${PROGNAME}: Fondu is available. Checking for missing unpacked fonts...\n";
    }
    if (not -x "/usr/local/bin/fontforge") {
	print "### ${PROGNAME}: FontForge is not available. I will not generate AFMs.\n";
    }
    else {
	print "### ${PROGNAME}: FontForge is available. I will create AFMs.\n";
	$makeafms = 1;
    }
    my $dohash = 0;
    my %fonttable = ( "gillsans", "/Library/Fonts/GillSans.dfont",
		      "optima", "/Library/Fonts/Optima.dfont",
		      "hoefler", "/Library/Fonts/Hoefler Text.dfont",
		      "didot", "/Library/Fonts/Didot.dfont",
		      "baskerville", "/Library/Fonts/Baskerville.dfont",
		      "americantypewriter", "/Library/Fonts/AmericanTypewriter.dfont",
		      "futura", "/Library/Fonts/Futura.dfont",
		      "lucidagrande", "/System/Library/Fonts/LucidaGrande.dfont",
		      "verdana", "/Library/Fonts/Verdana",
		      "georgia", "/Library/Fonts/Georgia",
		      "helveticaneue", "/Library/Fonts/HelveticaNeue.dfont"
    );
    foreach my $texname (keys %fonttable) {
	my $macfontfile = $fonttable{$texname};
	if (not -d "${II2INSTALLDIR}/texmf-local/fonts/truetype/gtamacfonts/${texname}") {
	    print "### ${PROGNAME}: running Fondu on \"${macfontfile}\".\n";
	    ipkgsystem( "/bin/mkdir -p \"${II2INSTALLDIR}/texmf-local/fonts/truetype/gtamacfonts/${texname}\" && " .
			"cd \"${II2INSTALLDIR}/texmf-local/fonts/truetype/gtamacfonts/${texname}\" && " .
			"/usr/local/bin/fondu \"${macfontfile}\"") == 0
		or warn "### ${PROGNAME}: failed to run Fondu on \"${macfontfile}\".\n";
	    $dohash = 1;
	}
	else {
	    print "### ${PROGNAME}: \"${macfontfile}\" has already been made available to TeX as separate files.\n";
	}
	if (not -d "${II2INSTALLDIR}/texmf-local/fonts/afm/gtamacfonts/${texname}") {
	    print "### ${PROGNAME}: running FontForge on \"${macfontfile}\".\n";
	    ipkgsystem( "/bin/mkdir -p \"${II2INSTALLDIR}/texmf-local/fonts/afm/gtamacfonts/${texname}\" && " .
			"cd \"${II2INSTALLDIR}/texmf-local/fonts/afm/gtamacfonts/${texname}\" && " .
			"/usr/local/bin/fontforge -script \"${II2PKGDIR}/dumpafm.pe\" \"${macfontfile}\"") == 0
		or warn "### ${PROGNAME}: failed to run FontForge on \"${macfontfile}\".\n";
	    $dohash = 1;
	}
	else {
	    print "### ${PROGNAME}: \"${macfontfile}\" has already been made available as AFMs.\n";
	}
    }
}

sub ipkgwarn
{
    my $msg = shift;
    warn "### ${PROGNAME}: ${msg}";
    my $doresult = `"${II2RESOURCES}/doalerter" -s "${II2DOSERVER}" -V -t Alert -T "Warning/Error." -I "${msg}" -1 "Accept"`;
    chomp( $doresult);
    return $doresult;
}

sub ipkgsystem
{
    my $cmd = shift;
    if (${II2LOGLEVEL} > 3) {
	warn "### ${PROGNAME}. Executing: \"${cmd}\"\n";
    }
    return system( ${cmd});
}

exit( 0);

# $Id: latex-update.configure 118 2008-10-04 09:51:34Z gctwnl $