summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts/psview/psv.tlu
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf/scripts/psview/psv.tlu')
-rw-r--r--Master/texmf/scripts/psview/psv.tlu48
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)