pax aka pdfannotextractor

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

2 files changed, 45 insertions, 0 deletions

diff --git a/Build/source/texk/texlive/Makefile.in b/Build/source/texk/texlive/Makefile.in
index 83602e5effd..a9dc4566ad0 100644
--- a/Build/source/texk/texlive/Makefile.in
+++ b/Build/source/texk/texlive/Makefile.in
@@ -29,6 +29,8 @@ LINKED_SCRIPTS = \
   texmf-dist/scripts/glossaries/makeglossaries \
   texmf-dist/scripts/mkjobtexmf/mkjobtexmf.pl \
   texmf-dist/scripts/oberdiek/pdfatfi.pl \
+  texmf-dist/scripts/pax/pdfannotextractor.texlua \
+  texmf-dist/scripts/ppower4/ppower4.texlua \
   texmf-dist/scripts/pdfcrop/pdfcrop.pl \
   texmf-dist/scripts/perltex/perltex.pl \
   texmf-dist/scripts/ppower4/pdfthumb.texlua \
diff --git a/Build/source/texk/texlive/linked_scripts/pdfannotextractor.texlua b/Build/source/texk/texlive/linked_scripts/pdfannotextractor.texlua
new file mode 100755
index 00000000000..3fa9f8aa314
--- /dev/null
+++ b/Build/source/texk/texlive/linked_scripts/pdfannotextractor.texlua
@@ -0,0 +1,43 @@
+#!/usr/bin/env texlua
+--*-Lua-*-
+-- $Id: ppower4.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 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
+
+kpse.set_program_name('pdfannotextractor.texlua', 'pdfannotextractor')
+
+jarfile=kpse.find_file(pax.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)