initial generic -sys wrapper (in Perl)

git-svn-id: svn://tug.org/texlive/trunk@27297 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 38 insertions, 0 deletions

diff --git a/Build/source/texk/tetex/ChangeLog b/Build/source/texk/tetex/ChangeLog
index 5bf9b8f1c2e..b09c6d2cf5d 100644
--- a/Build/source/texk/tetex/ChangeLog
+++ b/Build/source/texk/tetex/ChangeLog
@@ -1,3 +1,7 @@
+2012-08-03  Karl Berry  <karl@tug.org>
+
+	* tl-sys-wrapper.pl: initial attempt.
+
 2012-07-31  Norbert Preining  <preining@logic.at>
 
 	* updmap.pl (main): fix quoting and var expansion on Windows.
diff --git a/Build/source/texk/tetex/tl-sys-wrapper.pl b/Build/source/texk/tetex/tl-sys-wrapper.pl
new file mode 100755
index 00000000000..fead6394d3a
--- /dev/null
+++ b/Build/source/texk/tetex/tl-sys-wrapper.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+# $Id$
+# Public domain.  Perl version originally written by Karl Berry, 2012.
+# Earlier shell version by Thomas Esser.
+# 
+# Generic -sys wrapper.  Symlink to this script as updmap-sys,
+# fmtutil-sys, etc.
+
+&main ();  # never returns.
+
+sub main {
+  chomp (my $v = `kpsewhich -var-value TEXMFSYSVAR`);
+  die "$0: could not retrieve TEXMFSYSVAR value with kpsewhich: $!"
+    if ! $v;
+  $ENV{"TEXMFVAR"} = $v;
+  
+  chomp (my $c = `kpsewhich -var-value TEXMFSYSCONFIG`);
+  die "$0: could not retrieve TEXMFSYSCONFIG value with kpsewhich: $!"
+    if ! $c;
+  $ENV{"TEXMFCONFIG"} = $c;
+  
+  # updmap-sys -> updmap, etc.  Case insensitive needed for Windows,
+  # but doesn't seem bad on Unix either.
+  (my $progname = $0) =~ s/-sys$//i;
+  die "$0: program name does not end in -sys" if $progname eq $0;
+
+  #warn "doing exec $0, $progname, @ARGV";
+  
+  # execute the program name we computed, with whatever arguments we have.
+  exec ($progname, @ARGV);
+  
+  # should never get here.
+  die "$0: exec($progname, @ARGV) failed: $!";
+}