diff options
Diffstat (limited to 'Master/bin')
29 files changed, 846 insertions, 0 deletions
diff --git a/Master/bin/alpha-linux/texlua-perl-runner b/Master/bin/alpha-linux/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/alpha-linux/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/alpha-linux/tl-package-manager b/Master/bin/alpha-linux/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/alpha-linux/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/hppa-hpux/texlua-perl-runner b/Master/bin/hppa-hpux/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/hppa-hpux/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/hppa-hpux/tl-package-manager b/Master/bin/hppa-hpux/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/hppa-hpux/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/i386-darwin/texlua-perl-runner b/Master/bin/i386-darwin/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/i386-darwin/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/i386-darwin/tl-package-manager b/Master/bin/i386-darwin/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/i386-darwin/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/i386-freebsd/texlua-perl-runner b/Master/bin/i386-freebsd/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/i386-freebsd/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/i386-freebsd/tl-package-manager b/Master/bin/i386-freebsd/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/i386-freebsd/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/i386-linux/texlua-perl-runner b/Master/bin/i386-linux/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/i386-linux/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/i386-linux/tl-package-manager b/Master/bin/i386-linux/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/i386-linux/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/i386-openbsd/texlua-perl-runner b/Master/bin/i386-openbsd/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/i386-openbsd/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/i386-openbsd/tl-package-manager b/Master/bin/i386-openbsd/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/i386-openbsd/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/i386-solaris/texlua-perl-runner b/Master/bin/i386-solaris/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/i386-solaris/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/i386-solaris/tl-package-manager b/Master/bin/i386-solaris/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/i386-solaris/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/mips-irix/texlua-perl-runner b/Master/bin/mips-irix/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/mips-irix/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/mips-irix/tl-package-manager b/Master/bin/mips-irix/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/mips-irix/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/powerpc-aix/texlua-perl-runner b/Master/bin/powerpc-aix/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/powerpc-aix/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/powerpc-aix/tl-package-manager b/Master/bin/powerpc-aix/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/powerpc-aix/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/powerpc-darwin/texlua-perl-runner b/Master/bin/powerpc-darwin/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/powerpc-darwin/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/powerpc-darwin/tl-package-manager b/Master/bin/powerpc-darwin/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/powerpc-darwin/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/powerpc-linux/texlua-perl-runner b/Master/bin/powerpc-linux/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/powerpc-linux/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/powerpc-linux/tl-package-manager b/Master/bin/powerpc-linux/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/powerpc-linux/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/sparc-linux/texlua-perl-runner b/Master/bin/sparc-linux/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/sparc-linux/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/sparc-linux/tl-package-manager b/Master/bin/sparc-linux/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/sparc-linux/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/sparc-solaris/texlua-perl-runner b/Master/bin/sparc-solaris/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/sparc-solaris/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/sparc-solaris/tl-package-manager b/Master/bin/sparc-solaris/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/sparc-solaris/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file diff --git a/Master/bin/win32/tl-package-manager.texlua b/Master/bin/win32/tl-package-manager.texlua new file mode 100755 index 00000000000..ee2edadb197 --- /dev/null +++ b/Master/bin/win32/tl-package-manager.texlua @@ -0,0 +1,90 @@ +#! /usr/bin/env texlua +--*-Lua-*- +-- $Id: tl-package-manager.texlua 6943 2008-03-11 21:38:19Z reinhardk $ + +-- Copyright (C) 2007 Reinhard Kotucha, Norbert Preining. +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for scripts. + +function fixwin(args_unix) + if os.type == 'windows' then + local args_win={} -- new table + args_win[0]=args_unix[1] + for i=1, #args_unix do + args_win[i]='"'..args_unix[i]..'"' + end + return args_win + else + return args_unix + end +end + +if string.find(arg[0], '/') then -- UNIX path + filename=select(1, string.gsub(arg[0], '.*/', '')) +elseif string.find(arg[0], '\\') then -- Windows path + filename=select(1, string.gsub(arg[0], '.*\\', '')) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, '\.texlua$', '')) + +sys=false + +if string.find(basename, '-sys$') then + basename=select(1, string.gsub(basename, '-sys$', '')) + sys=true +end + +kpse.set_program_name(filename, basename) +TEXDIR=kpse.var_value('SELFAUTOPARENT') +BINDIR=kpse.var_value('SELFAUTOLOC') + +os.setenv('PERL5LIB', TEXDIR..'/tlpkg/tlperl/lib') +os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib') +os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + +if sys then + os.setenv('TEXMFVAR', kpse.var_value('TEXMFSYSVAR')) + os.setenv('TEXMFCONFIG', kpse.var_value('TEXMFSYSCONFIG')) + os.setenv('TEX_SYS_PROG', 'true') +end + +if sys and lfs.isfile(BINDIR..'/'..basename..'.exe') then + command={BINDIR..'/'..basename..'.exe'} +elseif lfs.isfile(BINDIR..'/'..basename..'-bin.exe') then + command={BINDIR..'/'..basename..'-bin.exe'} +elseif lfs.isdir(BINDIR..'/'..basename..'.pl') then + perlbin=TEXDIR..'/tlpkg/tlperl/bin/perl.exe' + script=BINDIR..'/'..basename..'.pl' + command={perlbin, script} +elseif kpse.find_file(basename..'.pl', 'texmfscripts') then + perlbin=TEXDIR..'/tlpkg/tlperl/bin/perl.exe' + script=kpse.find_file(basename..'.pl', 'texmfscripts') + command={perlbin, script} +elseif kpse.find_file(basename..'.rb', 'texmfscripts') then + script=kpse.find_file(basename..'.rb', 'texmfscripts') + command={'ruby', script} +elseif kpse.find_file(basename..'.py', 'texmfscripts') then + script=kpse.find_file(basename..'.py', 'texmfscripts') + command={'python', script} +elseif kpse.find_file(basename..'.texlua', 'texmfscripts') then + script=kpse.find_file(basename..'.texlua', 'texmfscripts') + command={'texlua', script} +elseif kpse.find_file(basename..'.lua', 'texmfscripts') then + script=kpse.find_file(basename..'.lua', 'texmfscripts') + command={'texlua', script} +else + os.stderr:write(filename..'.texlua: No interpreter found for '.. + basename..'\n') +end + +for i=1, #arg do + command[#command+1]=arg[i] +end + +command=fixwin(command) + +ret=os.spawn(command) +os.exit(ret) diff --git a/Master/bin/x86_64-linux/texlua-perl-runner b/Master/bin/x86_64-linux/texlua-perl-runner new file mode 100755 index 00000000000..ca2bfbf7418 --- /dev/null +++ b/Master/bin/x86_64-linux/texlua-perl-runner @@ -0,0 +1,53 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id: texlua-perl-runner 6485 2008-02-01 20:15:06Z reinhardk $ + +-- Copyright (C) 2007 2008 Reinhard Kotucha, Norbert Preining +-- You may freely use, modify and/or distribute this file. + +-- Wrapper for Perl scripts. +-- Support for -sys variants + + +if string.find(arg[0], "/") then -- UNIX path + filename=select(1, string.gsub(arg[0], ".*/", "")) +elseif string.find(arg[0], "\\") then -- Windows path + filename=select(1, string.gsub(arg[0], ".*\\", "")) +else -- no path + filename=arg[0] +end + +basename=select(1, string.gsub(filename, "\.texlua$", "")) + +kpse.set_program_name(filename) + +TEXDIR=kpse.var_value("SELFAUTOPARENT") + +-- if we are on win32 we have to use the shipped perl +perlbin="perl" +if (os.type == "windows") then + os.setenv("PERL5LIB", TEXDIR.."/tlpkg/tlperl/lib") + perlbin=TEXDIR.."/tlpkg/tlperl/bin/perl.exe" +end + +script=kpse.find_file(basename..".pl", "texmfscripts") + +if (not(script)) then + print ("Cannot find "..basename..".pl".." using kpse, exiting!") + os.exit(1) +end + +if (os.type == "windows") then + command={'"'..perlbin..'"', '"'..script..'"'} +else + command={ perlbin, script } +end +command[0] = perlbin + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + diff --git a/Master/bin/x86_64-linux/tl-package-manager b/Master/bin/x86_64-linux/tl-package-manager new file mode 120000 index 00000000000..331c9dd59df --- /dev/null +++ b/Master/bin/x86_64-linux/tl-package-manager @@ -0,0 +1 @@ +texlua-perl-runner
\ No newline at end of file |