texlua wrapper for ppower4

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

12 files changed, 57 insertions, 10 deletions

diff --git a/Master/bin/win32/eps2eps.texlua b/Master/bin/win32/eps2eps.texlua
index 2d39179917e..6853d8d29d4 100755
--- a/Master/bin/win32/eps2eps.texlua
+++ b/Master/bin/win32/eps2eps.texlua
@@ -1,6 +1,6 @@
 #!/usr/bin/env texlua
 --*-Lua-*-
--- $Id: $
+-- $Id$
 
 -- Copyright (C) 2008 Reinhard Kotucha.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/getnonfreefonts-sys.texlua b/Master/bin/win32/getnonfreefonts-sys.texlua
index e0d53d93137..33a2d8cc1c4 100755
--- a/Master/bin/win32/getnonfreefonts-sys.texlua
+++ b/Master/bin/win32/getnonfreefonts-sys.texlua
@@ -1,6 +1,6 @@
 #! /usr/bin/env texlua
 --*-Lua-*-
--- $Id: epstopdf.texlua 6757 2008-02-26 23:31:18Z reinhardk $
+-- $Id$
 
 -- Copyright (C) 2007 Reinhard Kotucha, Norbert Preining.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/getnonfreefonts.texlua b/Master/bin/win32/getnonfreefonts.texlua
index e0d53d93137..33a2d8cc1c4 100755
--- a/Master/bin/win32/getnonfreefonts.texlua
+++ b/Master/bin/win32/getnonfreefonts.texlua
@@ -1,6 +1,6 @@
 #! /usr/bin/env texlua
 --*-Lua-*-
--- $Id: epstopdf.texlua 6757 2008-02-26 23:31:18Z reinhardk $
+-- $Id$
 
 -- Copyright (C) 2007 Reinhard Kotucha, Norbert Preining.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/pdf2dsc.texlua b/Master/bin/win32/pdf2dsc.texlua
index 4cd6a729edf..18f19aa6c39 100755
--- a/Master/bin/win32/pdf2dsc.texlua
+++ b/Master/bin/win32/pdf2dsc.texlua
@@ -1,6 +1,6 @@
 #!/usr/bin/env texlua
 --*-Lua-*-
--- $Id: $
+-- $Id$
 
 -- Copyright (C) 2007 Reinhard Kotucha.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/pdfopt.texlua b/Master/bin/win32/pdfopt.texlua
index 580a90ef4e8..a7a38cc9852 100755
--- a/Master/bin/win32/pdfopt.texlua
+++ b/Master/bin/win32/pdfopt.texlua
@@ -1,6 +1,6 @@
 #!/usr/bin/env texlua
 --*-Lua-*-
--- $Id: $
+-- $Id$
 
 -- Copyright (C) 2008 Reinhard Kotucha.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/ppower4.exe b/Master/bin/win32/ppower4.exe
deleted file mode 100755
index 3e36ffe562c..00000000000
--- a/Master/bin/win32/ppower4.exe
+++ /dev/null
diff --git a/Master/bin/win32/ppower4.texlua b/Master/bin/win32/ppower4.texlua
new file mode 100755
index 00000000000..4d019b3c58e
--- /dev/null
+++ b/Master/bin/win32/ppower4.texlua
@@ -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)
diff --git a/Master/bin/win32/ps2ascii.texlua b/Master/bin/win32/ps2ascii.texlua
index 836d003ec96..c98d88fc474 100755
--- a/Master/bin/win32/ps2ascii.texlua
+++ b/Master/bin/win32/ps2ascii.texlua
@@ -1,6 +1,6 @@
 #!/usr/bin/env texlua
 --*-Lua-*-
--- $Id: $
+-- $Id$
 
 -- Copyright (C) 2008 Reinhard Kotucha.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/ps2pdf.texlua b/Master/bin/win32/ps2pdf.texlua
index f18bd9e5d5e..26afd00ef24 100755
--- a/Master/bin/win32/ps2pdf.texlua
+++ b/Master/bin/win32/ps2pdf.texlua
@@ -1,6 +1,6 @@
 #!/usr/bin/env texlua
 --*-Lua-*-
--- $Id: $
+-- $Id$
 
 -- Copyright (C) 2008 Reinhard Kotucha.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/ps2pdf12.texlua b/Master/bin/win32/ps2pdf12.texlua
index f18bd9e5d5e..26afd00ef24 100755
--- a/Master/bin/win32/ps2pdf12.texlua
+++ b/Master/bin/win32/ps2pdf12.texlua
@@ -1,6 +1,6 @@
 #!/usr/bin/env texlua
 --*-Lua-*-
--- $Id: $
+-- $Id$
 
 -- Copyright (C) 2008 Reinhard Kotucha.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/ps2pdf13.texlua b/Master/bin/win32/ps2pdf13.texlua
index f18bd9e5d5e..26afd00ef24 100755
--- a/Master/bin/win32/ps2pdf13.texlua
+++ b/Master/bin/win32/ps2pdf13.texlua
@@ -1,6 +1,6 @@
 #!/usr/bin/env texlua
 --*-Lua-*-
--- $Id: $
+-- $Id$
 
 -- Copyright (C) 2008 Reinhard Kotucha.
 -- You may freely use, modify and/or distribute this file.
diff --git a/Master/bin/win32/ps2pdf14.texlua b/Master/bin/win32/ps2pdf14.texlua
index f18bd9e5d5e..26afd00ef24 100755
--- a/Master/bin/win32/ps2pdf14.texlua
+++ b/Master/bin/win32/ps2pdf14.texlua
@@ -1,6 +1,6 @@
 #!/usr/bin/env texlua
 --*-Lua-*-
--- $Id: $
+-- $Id$
 
 -- Copyright (C) 2008 Reinhard Kotucha.
 -- You may freely use, modify and/or distribute this file.