.tlu scripts

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

1 files changed, 44 insertions, 0 deletions

diff --git a/Master/texmf-dist/scripts/ppower4/pdfthumb.tlu b/Master/texmf-dist/scripts/ppower4/pdfthumb.tlu
new file mode 100755
index 00000000000..010f8258e1a
--- /dev/null
+++ b/Master/texmf-dist/scripts/ppower4/pdfthumb.tlu
@@ -0,0 +1,44 @@
+#!/usr/bin/env texlua
+--*-Lua-*-
+-- $Id$
+
+-- 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