texlua wrapper for ppower4

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

1 files changed, 47 insertions, 0 deletions

diff --git a/Master/texmf-dist/scripts/ppower4/ppower4 b/Master/texmf-dist/scripts/ppower4/ppower4
new file mode 100755
index 00000000000..4d019b3c58e
--- /dev/null
+++ b/Master/texmf-dist/scripts/ppower4/ppower4
@@ -0,0 +1,47 @@
+#!/usr/bin/env texlua
+--*-Lua-*-
+-- $Id$
+
+-- Copyright (C) 2008 Reinhard Kotucha.
+-- You may freely use, modify and/or distribute this file.
+
+-- Launch ppower4
+
+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
+
+if os.type == 'windows' then
+   kpse.set_program_name('ppower4.texlua', 'ppower4')
+else
+   kpse.set_program_name('ppower4')
+end
+
+jarfile=kpse.find_file('pp4p.jar', 'texmfscripts')
+
+command={'java', '-jar', jarfile}
+
+for i=1, #arg do
+    command[#command+1]=arg[i]
+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)