texmf-dist/scripts/ppower4/pdfthumb.texlua: new file.

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

5 files changed, 90 insertions, 58 deletions

diff --git a/Master/bin/i386-linux/pdfthumb b/Master/bin/i386-linux/pdfthumb
index 98fcf307468..cfb7d400fa8 100755..120000
--- a/Master/bin/i386-linux/pdfthumb
+++ b/Master/bin/i386-linux/pdfthumb
@@ -1,29 +1 @@
-#!/bin/sh
-#
-#  pdfthumb shell script file                 last update: 13 Sep 2002
-#
-#  minimal usage:
-#	pdfthumb input.pdf output.pdf
-#
-#  Note: input.pdf and output.pdf must be different.
-#	 GhostScript (gs) must me available to create the images.
-#	 Unfortunately it fails on some input files for unknown reasons.
-#
-#  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 -progname=java -format='other binary files' pp4p.jar`
-# 
-#
-java -cp ${jarfile} de.tu_darmstadt.sp.pdftools.ThumbGen "$@"
+../../texmf-dist/scripts/ppower4/pdfthumb.texlua
\ No newline at end of file
diff --git a/Master/bin/win32/pdfthumb.exe b/Master/bin/win32/pdfthumb.exe
deleted file mode 100755
index c7a051f0faf..00000000000
--- a/Master/bin/win32/pdfthumb.exe
+++ /dev/null
diff --git a/Master/bin/win32/pdfthumb.texlua b/Master/bin/win32/pdfthumb.texlua
new file mode 100644
index 00000000000..383e741e189
--- /dev/null
+++ b/Master/bin/win32/pdfthumb.texlua
@@ -0,0 +1,44 @@
+#!/usr/bin/env texlua
+--*-Lua-*-
+-- $Id: .texlua 6969 2008-03-14 22:17:00Z reinhardk $
+
+-- Copyright (C) 2008 Reinhard Kotucha.
+-- You may freely use, modify and/or distribute this file.
+
+-- Launch pdfthumb
+
+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('pdfthumb.texlua', 'pdfthumb')
+
+jarfile=kpse.find_file('pp4p.jar', 'texmfscripts')
+
+command={'java', '-cp', jarfile, 'de.tu_darmstadt.sp.pdftools.ThumbGen'}
+
+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)
+ft
\ No newline at end of file
diff --git a/Master/bin/x86_64-linux/pdfthumb b/Master/bin/x86_64-linux/pdfthumb
index 98fcf307468..cfb7d400fa8 100755..120000
--- a/Master/bin/x86_64-linux/pdfthumb
+++ b/Master/bin/x86_64-linux/pdfthumb
@@ -1,29 +1 @@
-#!/bin/sh
-#
-#  pdfthumb shell script file                 last update: 13 Sep 2002
-#
-#  minimal usage:
-#	pdfthumb input.pdf output.pdf
-#
-#  Note: input.pdf and output.pdf must be different.
-#	 GhostScript (gs) must me available to create the images.
-#	 Unfortunately it fails on some input files for unknown reasons.
-#
-#  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 -progname=java -format='other binary files' pp4p.jar`
-# 
-#
-java -cp ${jarfile} de.tu_darmstadt.sp.pdftools.ThumbGen "$@"
+../../texmf-dist/scripts/ppower4/pdfthumb.texlua
\ No newline at end of file
diff --git a/Master/texmf-dist/scripts/ppower4/pdfthumb.texlua b/Master/texmf-dist/scripts/ppower4/pdfthumb.texlua
new file mode 100644
index 00000000000..3f6f2c56490
--- /dev/null
+++ b/Master/texmf-dist/scripts/ppower4/pdfthumb.texlua
@@ -0,0 +1,44 @@
+#!/usr/bin/env texlua
+--*-Lua-*-
+-- $Id: thumbpdf.texlua 6969 2008-03-14 22:17:00Z reinhardk $
+
+-- Copyright (C) 2008 Reinhard Kotucha.
+-- You may freely use, modify and/or distribute this file.
+
+-- Launch thumbpdf
+
+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('pdfthumb.texlua', 'pdfthumb')
+
+jarfile=kpse.find_file('pp4p.jar', 'texmfscripts')
+
+command={'java', '-cp', jarfile, 'de.tu_darmstadt.sp.pdftools.ThumbGen'}
+
+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)
+ft
\ No newline at end of file