summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2008-01-01 15:42:11 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2008-01-01 15:42:11 +0000
commitf3aa60a0a318e6c20b645a63cf0bd84a04e318f8 (patch)
treedda13efafdeebfc541917869fb0895945fdae1af /Master
parent3e508bc0c271a5ee124c948e59a5715c7e8ec2fb (diff)
updmap-sys.texlua: wrapper for updmap.
git-svn-id: svn://tug.org/texlive/trunk@6019 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/bin/win32/updmap-sys.texlua33
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);
+