updmap-sys.texlua: wrapper for updmap.

git-svn-id: svn://tug.org/texlive/trunk@6019 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 33 insertions, 0 deletions

diff --git a/Master/bin/win32/updmap-sys.texlua b/Master/bin/win32/updmap-sys.texlua
new file mode 100755
index 00000000000..eb979122009
--- /dev/null
+++ b/Master/bin/win32/updmap-sys.texlua
@@ -0,0 +1,33 @@
+#!/usr/bin/env texlua
+--*-Lua-*-
+
+--[[ $Id$
+Copyright (C) 2007 Reinhard Kotucha.
+You may freely use, modify and/or distribute this file.
+
+Originally written as a Bourne shell script by Thomas Esser,
+ported to texlua by Reinhard Kotucha.
+
+Wrapper script for updmap-sys. ]]
+
+kpse.set_program_name('texlua')
+
+TEXDIR=kpse.var_value('SELFAUTOPARENT')
+
+perl=TEXDIR .. '/tlpkg/tlperl/bin/perl.exe'
+PERL5LIB=TEXDIR .. '/tlpkg/tlperl/lib'
+os.setenv('PERL5LIB', PERL5LIB)
+
+updmap_script=kpse.find_file("updmap.pl", "texmfscripts")
+
+os.setenv('TEXMFVAR', kpse.var_value('TEXMFSYSVAR'))
+os.setenv('TEXMFCONFIG', kpse.var_value('TEXMFSYSCONFIG'))
+
+updmap=perl .. ' ' .. updmap_script
+
+for i=1, #arg do
+   updmap=updmap .. ' ' .. arg[i]
+end
+
+os.exec(updmap);
+