summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/tlpostcode/xetex.pl47
1 files changed, 28 insertions, 19 deletions
diff --git a/Master/tlpkg/tlpostcode/xetex.pl b/Master/tlpkg/tlpostcode/xetex.pl
index ad94e9ac506..ac109c5c515 100644
--- a/Master/tlpkg/tlpostcode/xetex.pl
+++ b/Master/tlpkg/tlpostcode/xetex.pl
@@ -33,29 +33,31 @@ sub do_remove {
}
sub do_install {
- # bin-installs font-config related stuff
+ # fontconfig-related stuff.
chomp( my $fcache = `kpsewhich -var-value=FC_CACHEDIR` ) ;
chomp( my $fconf = `kpsewhich -var-value=FONTCONFIG_PATH` ) ;
if (-r "$texdir/bin/win32/xetex.exe") {
- # we have installed w32, so put it into texmfsysvar
+ # we have installed w32, so put it into texmfsysvar.
mkdirhier($fcache);
mkdirhier($fconf);
TeXLive::TLUtils::rmtree($fcache);
TeXLive::TLUtils::rmtree($fconf);
- my @cpycmd;
+ my @cpycmd = ();
if (win32()) {
push @cpycmd, "xcopy", "/e", "/i", "/q", "/y";
} else {
push @cpycmd, "cp", "-R";
}
+
+ # copy trees from install area.
+ my $postxetex = "$texdir/tlpkg/tlpostcode/xetex";
system(@cpycmd,
- (win32() ? conv_to_w32_path("$texdir/tlpkg/tlpostcode/xetex/conf") :
- "$texdir/tlpkg/tlpostcode/xetex/conf"),
- (win32() ? conv_to_w32_path($fconf) : $fconf));
+ (win32() ? conv_to_w32_path("$postxetex/conf") : "$postxetex/conf"),
+ (win32() ? conv_to_w32_path($fconf) : $fconf));
system(@cpycmd,
- (win32() ? conv_to_w32_path("$texdir/tlpkg/tlpostcode/xetex/cache") :
- "$texdir/tlpkg/tlpostcode/xetex/cache"),
- (win32() ? conv_to_w32_path($fcache) : $fcache));
+ (win32() ? conv_to_w32_path("$postxetex/cache") : "$postxetex/cache"),
+ (win32() ? conv_to_w32_path($fcache) : $fcache));
+
if (open(FONTSCONF, "<$texdir/tlpkg/tlpostcode/xetex/conf/fonts.conf")) {
my @lines = <FONTSCONF>;
close(FONTSCONF);
@@ -72,22 +74,22 @@ sub do_install {
}
close(FONTSCONF);
} else {
- warn("Cannot open $fconf/fonts.conf for writing\n");
+ warn("open(>$fconf/fonts.conf) failed: $!");
}
} else {
- warn("Cannot open $texdir/tlpkg/tlpostcode/xetex/conf/fonts.conf\n");
+ warn("open($texdir/tlpkg/tlpostcode/xetex/conf/fonts.conf) failed: $!");
}
}
- # call fc-cache but only when we install on w32!
if (win32()) {
+ # call fc-cache but only when we install on w32!
info("Running fc-cache -v -r\n");
- log(`fc-cache -v -r 2>&1`);
- #system("fc-cache","-v", "-r");
+ log( `fc-cache -v -r 2>&1` ); # run it, log output
+
} else {
- # create a texlive-fontconfig.conf file in $texmfsysvar
+ # non-Windows: create texlive-fontconfig.conf file in $texmfsysvar.
mkdirhier("$fconf/conf");
if (!open(FONTSCONF, ">$fconf/texlive-fontconfig.conf")) {
- warn("Cannot open $fconf/texlive-fontconfig.conf for writing\n");
+ warn("open(>$fconf/texlive-fontconfig.conf): $!");
} else {
print FONTSCONF '<?xml version="1.0"?>
<!DOCTYPE fontconfig SYSTEM "fonts.dtd">
@@ -97,14 +99,21 @@ sub do_install {
print FONTSCONF " <dir>$texdir/texmf-dist/fonts/$t</dir>\n";
}
print FONTSCONF "</fontconfig>\n";
- close(FONTSCONF) || tlwarn("Cannot close filehandle for texmfsysvar/fonts/conf/texlive-fontconfig.conf\n");
+ close(FONTSCONF)
+ || tlwarn("close($fconf/texlive-fontconfig.conf) failed: $!");
}
+
# cygwin specific warning
- # we don't have platform available ...
+ # we don't have our platform name available ...
chomp(my $un = `uname`);
if ($un =~ m/cygwin/i) {
if (! -r "/usr/bin/cygfontconfig-1.dll") {
- printf STDERR "\nXeTeX on Cygwin requires fontconfig.\nPlease run cygwin's setup program and install the fontconfig package.\n";
+ printf STDERR <<CYGWIN_XETEX;
+
+XeTeX on Cygwin requires fontconfig.
+Please run cygwin's setup program and install the fontconfig package.
+
+CYGWIN_XETEX
}
}
}