From cd631e15fc70de28d6e0d59fc83764005e7d715d Mon Sep 17 00:00:00 2001 From: Piotr Strzelczyk Date: Fri, 15 May 2009 00:30:40 +0000 Subject: remove .texlua wrapper and its consitency check; not used any more git-svn-id: svn://tug.org/texlive/trunk@13087 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/texlive/tl-w32-wrapper.texlua | 98 ------------------------- 1 file changed, 98 deletions(-) delete mode 100755 Build/source/texk/texlive/tl-w32-wrapper.texlua (limited to 'Build/source') diff --git a/Build/source/texk/texlive/tl-w32-wrapper.texlua b/Build/source/texk/texlive/tl-w32-wrapper.texlua deleted file mode 100755 index 1d0fb92d846..00000000000 --- a/Build/source/texk/texlive/tl-w32-wrapper.texlua +++ /dev/null @@ -1,98 +0,0 @@ -#! /usr/bin/env texlua ---*-Lua-*- - --- Copyright (C) 2007, 2008 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 - progname = select(1, string.gsub(arg[1], '.*/', '')) -elseif string.find(arg[0], '\\') then -- Windows path - progname = select(1, string.gsub(arg[1], '.*\\', '')) - -- we might have \ and / mixed together ... - progname = select(1, string.gsub(progname, '.*/', '')) -else -- no path - progname = arg[1] -end - -sys=false - -if string.find(progname, '-sys$') then - basename = select(1, string.gsub(progname, '-sys$', '')) - sys=true -else - basename = progname -end - -kpse.set_program_name(progname..".bat", progname) -TEXDIR=kpse.var_value('SELFAUTOPARENT') -BINDIR=kpse.var_value('SELFAUTOLOC') - -perlbin=TEXDIR..'/tlpkg/tlperl/bin/perl.exe' - -os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'.. - TEXDIR..'/tlpkg/tlperl/bin;'.. - TEXDIR..'/tlpkg/installer;'.. - TEXDIR..'/tlpkg/installer/wget;'.. - os.getenv('PATH')) - --- we don't ship the wgetrc anymore, and if it is not present, wget --- will just die, that is bad!!! --- os.setenv('WGETRC', TEXDIR..'/tlpkg/installer/wgetrc') -os.setenv('PERL5LIB', TEXDIR..'/tlpkg/tlperl/lib') -os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - -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.isfile(BINDIR..'/'..basename..'.pl') then - script=BINDIR..'/'..basename..'.pl' - command={perlbin, script} -elseif kpse.find_file(basename..'.pl', 'texmfscripts') then - script=kpse.find_file(basename..'.pl', 'texmfscripts') - command={perlbin, script} -elseif kpse.find_file(basename..'.tlu', 'texmfscripts') then - script=kpse.find_file(basename..'.tlu', 'texmfscripts') - command={'texlua', script} -else - io.stderr:write(basename..'.bat: '..basename.. - ': No appropriate script found.\n') - os.exit(1) -end - -for i=2, #arg do - command[#command+1]=arg[i] -end - -command=fixwin(command) - ---[[ Prepend an additional hyphen to activate this code. -for i=0, #command do - print (command[i]) -end -os.exit(ret) ---]] - -ret=os.spawn(command) -os.exit(ret) -- cgit v1.2.3