diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-01-01 14:17:52 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-01-01 14:17:52 +0000 |
| commit | b58186a5584b58a7ba38af0d4228790893509684 (patch) | |
| tree | 869f2cc67bd78608f69ee7fe7a419092951bbcb4 /Master/bin/win32 | |
| parent | adcb31ff534046454c4922df4b5b4872a52bc44a (diff) | |
Added: batchfile wrapper demo for Perl scripts.
git-svn-id: svn://tug.org/texlive/trunk@6017 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/bin/win32')
| -rwxr-xr-x | Master/bin/win32/demo | 5 | ||||
| -rwxr-xr-x | Master/bin/win32/demo.bat | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/Master/bin/win32/demo b/Master/bin/win32/demo new file mode 100755 index 00000000000..a92e505a1bc --- /dev/null +++ b/Master/bin/win32/demo @@ -0,0 +1,5 @@ +#!/usr/bin/env perl +use Config; +v:\print "INC:\n ".(join "\n ", @INC)."\n"; +print "Extension: ".$Config{'exe_ext'}."\n"; +print "Parameters: >".(join "< >", @ARGV)."<\n"; diff --git a/Master/bin/win32/demo.bat b/Master/bin/win32/demo.bat new file mode 100755 index 00000000000..4cf04f380c0 --- /dev/null +++ b/Master/bin/win32/demo.bat @@ -0,0 +1,17 @@ +@echo off + +rem TeX Live win32 bin directory; ends with backslash +rem This should also work with UNC names +set tlwinbin=%~dp0 + +set PERL5SAVE=%PERL5LIB% + +set PERL5LIB=%tlwinbin%..\..\tlpkg\lib\Perl5_lib-TL_inst +"%tlwinbin%..\..\tlpkg\bin\perl" "%~dpn0" %1 %2 %3 %4 %5 %6 %7 %8 %9 +pause Done + +rem cleanup in case of start from command-line + +set PERL5LIB=%PERL5SAVE% +set PERL5SAVE= +set tlwinbin= |