diff options
author | Norbert Preining <preining@logic.at> | 2008-02-22 10:35:56 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-02-22 10:35:56 +0000 |
commit | 6c5cb191050a8f2e6f6151ea42fa083740b41f30 (patch) | |
tree | 33acc368c09dbe19fc74813db11aaaf6947c6984 /Master/bin/win32/fmtutil-sys.texlua | |
parent | 95d71b7f4b2d40d43a3cce5f7a9ec3c340183fee (diff) |
remove fmtutil-sys.pl, and replace it with a texlua script that calls
fmtutil(.exe) as is. We want to call it under win32 and unix as fmtutil-sys
git-svn-id: svn://tug.org/texlive/trunk@6722 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/bin/win32/fmtutil-sys.texlua')
-rwxr-xr-x | Master/bin/win32/fmtutil-sys.texlua | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/Master/bin/win32/fmtutil-sys.texlua b/Master/bin/win32/fmtutil-sys.texlua new file mode 100755 index 00000000000..3b2032a15bc --- /dev/null +++ b/Master/bin/win32/fmtutil-sys.texlua @@ -0,0 +1,40 @@ +#!/xusr/bin/env texlua +--*-Lua-*- +-- $Id: fmtutil-sys.texlua 6607 2008-02-11 15:37:39Z siepo $ + +-- Copyright (C) 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="fmtutil-sys" + +kpse.set_program_name(filename) + +if string.find(basename, "-sys$") then + basename=select(1, string.gsub(basename, "-sys$", "")) + os.setenv("TEXMFVAR", kpse.var_value("TEXMFSYSVAR")) + os.setenv("TEXMFCONFIG", kpse.var_value("TEXMFSYSCONFIG")) +end + +command[0] = "fmtutil" +command[1] = "fmtutil" + +for i=1, #arg do + command[#command+1]=arg[i] +end + +ret=os.spawn(command) +os.exit(ret) + |