diff options
author | Norbert Preining <preining@logic.at> | 2008-02-09 12:47:35 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-02-09 12:47:35 +0000 |
commit | 634f5580092c24fc0e3ba18bd0883e667da4614f (patch) | |
tree | 0173549484e828f733b55e0813310a26583c35a8 /Build/source | |
parent | 5fbcebb593312419dafe4fc209ce90e30b860e72 (diff) |
add a texlua-perl-runner and create the generate-scripts as links
git-svn-id: svn://tug.org/texlive/trunk@6585 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rw-r--r-- | Build/source/texk/texlive/Makefile.in | 8 | ||||
-rwxr-xr-x | Build/source/texk/texlive/generate-fmtutil | 54 | ||||
-rwxr-xr-x | Build/source/texk/texlive/generate-language | 54 | ||||
-rwxr-xr-x | Build/source/texk/texlive/texlua-perl-runner (renamed from Build/source/texk/texlive/generate-updmap) | 5 |
4 files changed, 9 insertions, 112 deletions
diff --git a/Build/source/texk/texlive/Makefile.in b/Build/source/texk/texlive/Makefile.in index 901fa22f6e8..84e96e5edf2 100644 --- a/Build/source/texk/texlive/Makefile.in +++ b/Build/source/texk/texlive/Makefile.in @@ -9,7 +9,9 @@ kpse_include ../make/programs.mk LIVESCRIPTS = simpdftex \ ebong getnonfreefonts giftopng \ pdfthumb perltex pkfix ppower4 vpe wordcount.sh \ - generate-updmap generate-language generate-fmtutil + texlua-perl-runner + +TEXLUARUNNERS = generate-updmap generate-language generate-fmtutil manpgs = getnonfreefonts getnonfreefonts-sys @@ -32,6 +34,10 @@ install-exec: done rm -f $(scriptdir)/getnonfreefonts-sys ln -s getnonfreefonts $(scriptdir)/getnonfreefonts-sys + for s in $(TEXLUARUNNERS); do \ + rm -f $(scriptdir)/$$s ; \ + ln -s texlua-perl-runner $(scriptdir)/$$s; \ + done kpse_include ../make/clean.mk diff --git a/Build/source/texk/texlive/generate-fmtutil b/Build/source/texk/texlive/generate-fmtutil deleted file mode 100755 index 9aeaf6917f0..00000000000 --- a/Build/source/texk/texlive/generate-fmtutil +++ /dev/null @@ -1,54 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id: generate-fmtutil.texlua 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. - - -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$", "")) - -basename="generate-fmtutil" - -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/Build/source/texk/texlive/generate-language b/Build/source/texk/texlive/generate-language deleted file mode 100755 index 233cc93bf2b..00000000000 --- a/Build/source/texk/texlive/generate-language +++ /dev/null @@ -1,54 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id: generate-language.texlua 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. - - -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$", "")) - -basename="generate-language" - -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/Build/source/texk/texlive/generate-updmap b/Build/source/texk/texlive/texlua-perl-runner index b11dfb723d9..ca2bfbf7418 100755 --- a/Build/source/texk/texlive/generate-updmap +++ b/Build/source/texk/texlive/texlua-perl-runner @@ -1,11 +1,12 @@ #!/usr/bin/env texlua --*-Lua-*- --- $Id: generate-updmap.texlua 6485 2008-02-01 20:15:06Z reinhardk $ +-- $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 @@ -18,8 +19,6 @@ end basename=select(1, string.gsub(filename, "\.texlua$", "")) -basename="generate-updmap" - kpse.set_program_name(filename) TEXDIR=kpse.var_value("SELFAUTOPARENT") |