texlua wrapper for ppower4

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

15 files changed, 106 insertions, 64 deletions

diff --git a/Master/bin/i386-linux/ppower4 b/Master/bin/i386-linux/ppower4
index 77b9f61337f..c1e39e7c76b 100755..120000
--- a/Master/bin/i386-linux/ppower4
+++ b/Master/bin/i386-linux/ppower4
@@ -1,27 +1 @@
-#!/bin/sh
-#
-#  PPower4 shell script file                 last update: 30oct05 (tl2005)
-#
-#  minimal usage:
-#	ppower4 input.pdf output.pdf
-#
-#  Note: input.pdf and output.pdf must be different.
-#
-#  It is assumed that you have at least Java 1.2.x installed
-#  and can call it with the command java. Otherwise specify the
-#  path for your Java runtime system.
-#
-#  Modify this script such that jarfile contains the full path
-#  of the pp4p.jar file.
-#
-# jarfile=/common/Java/lib/ppower4/pp4p.jar
-#
-#  If you use a web2c distribution, you can place pp4p.jar 
-#  e.g. into the directory texmf/java/ppower4, run mktexlsr,
-#  comment the assignment above and uncomment the assignment below.
-#  Thanks to Reinhard Kotucha for contributing this suggestion.
-#
-jarfile=`kpsewhich -format=texmfscripts pp4p.jar`
-# 
-#
-java -jar ${jarfile} "$@"
+../../texmf-dist/scripts/ppower4/ppower4
\ No newline at end of file
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.
diff --git a/Master/bin/x86_64-linux/ppower4 b/Master/bin/x86_64-linux/ppower4
index 77b9f61337f..c1e39e7c76b 100755..120000
--- a/Master/bin/x86_64-linux/ppower4
+++ b/Master/bin/x86_64-linux/ppower4
@@ -1,27 +1 @@
-#!/bin/sh
-#
-#  PPower4 shell script file                 last update: 30oct05 (tl2005)
-#
-#  minimal usage:
-#	ppower4 input.pdf output.pdf
-#
-#  Note: input.pdf and output.pdf must be different.
-#
-#  It is assumed that you have at least Java 1.2.x installed
-#  and can call it with the command java. Otherwise specify the
-#  path for your Java runtime system.
-#
-#  Modify this script such that jarfile contains the full path
-#  of the pp4p.jar file.
-#
-# jarfile=/common/Java/lib/ppower4/pp4p.jar
-#
-#  If you use a web2c distribution, you can place pp4p.jar 
-#  e.g. into the directory texmf/java/ppower4, run mktexlsr,
-#  comment the assignment above and uncomment the assignment below.
-#  Thanks to Reinhard Kotucha for contributing this suggestion.
-#
-jarfile=`kpsewhich -format=texmfscripts pp4p.jar`
-# 
-#
-java -jar ${jarfile} "$@"
+../../texmf-dist/scripts/ppower4/ppower4
\ No newline at end of file
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)