diff options
Diffstat (limited to 'Master/texmf/scripts/psview/psv.tlu')
-rw-r--r-- | Master/texmf/scripts/psview/psv.tlu | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/Master/texmf/scripts/psview/psv.tlu b/Master/texmf/scripts/psview/psv.tlu new file mode 100644 index 00000000000..5640abaa98a --- /dev/null +++ b/Master/texmf/scripts/psview/psv.tlu @@ -0,0 +1,48 @@ +#!/usr/bin/env texlua +--*-Lua-*- + +-- Copyright (C) 2008 Reinhard Kotucha, Piotr Strzelczyk +-- You may freely use, modify and/or distribute this file. + +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 + +kpse.set_program_name('psv.bat', 'psv') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('GS_DLL', TEXDIR..'/tlpkg/tlgs/bin/gsdll32.dll') + os.setenv('PATH', TEXDIR..'/tlpkg/tlpsv/;'..os.getenv('PATH')) +end + +psfile=arg[1] +if not psfile then psfile="" end + +command={'gswxlua', '-l', 'psv.wx.lua', '-p', 'psv_view.ps', + '-sINPUT='..psfile} + +if #arg==2 then table.insert(command,arg[2]) 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) |