From 5dfc00f7636c15dd68683b55cdefa4be39599097 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Fri, 9 May 2008 20:44:50 +0000 Subject: Moved gs texlua files to texmf/scripts/texlive/gswin32 and replaced them by .bat files. Made all .bat files executable, required by rsync on Windows. Updated gs sources. git-svn-id: svn://tug.org/texlive/trunk@7988 c570f23f-e606-0410-a88d-b1316a301751 --- Master/bin/win32/a2ping.bat | 0 Master/bin/win32/e2pall.bat | 0 Master/bin/win32/eps2eps.bat | 8 ++ Master/bin/win32/eps2eps.texlua | 64 ----------- Master/bin/win32/epstopdf.bat | 0 Master/bin/win32/fmtutil-sys.bat | 0 Master/bin/win32/getnonfreefonts-sys.bat | 0 Master/bin/win32/getnonfreefonts.bat | 0 Master/bin/win32/pdf2dsc.bat | 8 ++ Master/bin/win32/pdf2dsc.texlua | 62 ---------- Master/bin/win32/pdfcrop.bat | 0 Master/bin/win32/pdfopt.bat | 8 ++ Master/bin/win32/pdfopt.texlua | 70 ------------ Master/bin/win32/pdfthumb.bat | 0 Master/bin/win32/pkfix.bat | 0 Master/bin/win32/ppower4.bat | 0 Master/bin/win32/ps2ascii.bat | 8 ++ Master/bin/win32/ps2ascii.texlua | 80 ------------- Master/bin/win32/ps2eps.bat | 0 Master/bin/win32/ps2pdf.bat | 8 ++ Master/bin/win32/ps2pdf.texlua | 132 ---------------------- Master/bin/win32/ps2pdf12.bat | 8 ++ Master/bin/win32/ps2pdf12.texlua | 132 ---------------------- Master/bin/win32/ps2pdf13.bat | 8 ++ Master/bin/win32/ps2pdf13.texlua | 132 ---------------------- Master/bin/win32/ps2pdf14.bat | 8 ++ Master/bin/win32/ps2pdf14.texlua | 132 ---------------------- Master/bin/win32/psv.bat | 0 Master/bin/win32/rungs.bat | 0 Master/bin/win32/texcount.bat | 0 Master/bin/win32/texdoctk.bat | 0 Master/bin/win32/texindy.bat | 0 Master/bin/win32/thumbpdf.bat | 0 Master/bin/win32/tlmgr.bat | 0 Master/bin/win32/updmap-sys.bat | 0 Master/bin/win32/updmap.bat | 0 Master/bin/win32/vpe.bat | 0 Master/bin/win32/xindy.bat | 0 Master/source/ghostscript-8.54-gpl.tar.gz | Bin 14932756 -> 0 bytes Master/source/ghostscript-8.62.tar.bz2 | Bin 0 -> 15063641 bytes Master/texmf/scripts/texlive/gswin32/eps2eps.tlu | 64 +++++++++++ Master/texmf/scripts/texlive/gswin32/pdf2dsc.tlu | 62 ++++++++++ Master/texmf/scripts/texlive/gswin32/pdfopt.tlu | 70 ++++++++++++ Master/texmf/scripts/texlive/gswin32/ps2ascii.tlu | 80 +++++++++++++ Master/texmf/scripts/texlive/gswin32/ps2pdf.tlu | 132 ++++++++++++++++++++++ Master/texmf/scripts/texlive/gswin32/ps2pdf12.tlu | 132 ++++++++++++++++++++++ Master/texmf/scripts/texlive/gswin32/ps2pdf13.tlu | 132 ++++++++++++++++++++++ Master/texmf/scripts/texlive/gswin32/ps2pdf14.tlu | 132 ++++++++++++++++++++++ Master/tlpkg/tlpsrc/bin-tlgs.win32.tlpsrc | 1 + 49 files changed, 869 insertions(+), 804 deletions(-) mode change 100644 => 100755 Master/bin/win32/a2ping.bat mode change 100644 => 100755 Master/bin/win32/e2pall.bat create mode 100755 Master/bin/win32/eps2eps.bat delete mode 100755 Master/bin/win32/eps2eps.texlua mode change 100644 => 100755 Master/bin/win32/epstopdf.bat mode change 100644 => 100755 Master/bin/win32/fmtutil-sys.bat mode change 100644 => 100755 Master/bin/win32/getnonfreefonts-sys.bat mode change 100644 => 100755 Master/bin/win32/getnonfreefonts.bat create mode 100755 Master/bin/win32/pdf2dsc.bat delete mode 100755 Master/bin/win32/pdf2dsc.texlua mode change 100644 => 100755 Master/bin/win32/pdfcrop.bat create mode 100755 Master/bin/win32/pdfopt.bat delete mode 100755 Master/bin/win32/pdfopt.texlua mode change 100644 => 100755 Master/bin/win32/pdfthumb.bat mode change 100644 => 100755 Master/bin/win32/pkfix.bat mode change 100644 => 100755 Master/bin/win32/ppower4.bat create mode 100755 Master/bin/win32/ps2ascii.bat delete mode 100755 Master/bin/win32/ps2ascii.texlua mode change 100644 => 100755 Master/bin/win32/ps2eps.bat create mode 100755 Master/bin/win32/ps2pdf.bat delete mode 100755 Master/bin/win32/ps2pdf.texlua create mode 100755 Master/bin/win32/ps2pdf12.bat delete mode 100755 Master/bin/win32/ps2pdf12.texlua create mode 100755 Master/bin/win32/ps2pdf13.bat delete mode 100755 Master/bin/win32/ps2pdf13.texlua create mode 100755 Master/bin/win32/ps2pdf14.bat delete mode 100755 Master/bin/win32/ps2pdf14.texlua mode change 100644 => 100755 Master/bin/win32/psv.bat mode change 100644 => 100755 Master/bin/win32/rungs.bat mode change 100644 => 100755 Master/bin/win32/texcount.bat mode change 100644 => 100755 Master/bin/win32/texdoctk.bat mode change 100644 => 100755 Master/bin/win32/texindy.bat mode change 100644 => 100755 Master/bin/win32/thumbpdf.bat mode change 100644 => 100755 Master/bin/win32/tlmgr.bat mode change 100644 => 100755 Master/bin/win32/updmap-sys.bat mode change 100644 => 100755 Master/bin/win32/updmap.bat mode change 100644 => 100755 Master/bin/win32/vpe.bat mode change 100644 => 100755 Master/bin/win32/xindy.bat delete mode 100644 Master/source/ghostscript-8.54-gpl.tar.gz create mode 100644 Master/source/ghostscript-8.62.tar.bz2 create mode 100755 Master/texmf/scripts/texlive/gswin32/eps2eps.tlu create mode 100755 Master/texmf/scripts/texlive/gswin32/pdf2dsc.tlu create mode 100755 Master/texmf/scripts/texlive/gswin32/pdfopt.tlu create mode 100755 Master/texmf/scripts/texlive/gswin32/ps2ascii.tlu create mode 100755 Master/texmf/scripts/texlive/gswin32/ps2pdf.tlu create mode 100755 Master/texmf/scripts/texlive/gswin32/ps2pdf12.tlu create mode 100755 Master/texmf/scripts/texlive/gswin32/ps2pdf13.tlu create mode 100755 Master/texmf/scripts/texlive/gswin32/ps2pdf14.tlu (limited to 'Master') diff --git a/Master/bin/win32/a2ping.bat b/Master/bin/win32/a2ping.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/e2pall.bat b/Master/bin/win32/e2pall.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/eps2eps.bat b/Master/bin/win32/eps2eps.bat new file mode 100755 index 00000000000..fe949613d7c --- /dev/null +++ b/Master/bin/win32/eps2eps.bat @@ -0,0 +1,8 @@ +@echo off +rem tl-w32-starter.bat +rem universal script starter, batch file part +rem this program calls the tl-w32-wrapper.texlua +setlocal +set ownpath=%~dp0% +texlua "%ownpath%tl-w32-wrapper.texlua" "%~dpn0" %* +endlocal diff --git a/Master/bin/win32/eps2eps.texlua b/Master/bin/win32/eps2eps.texlua deleted file mode 100755 index e2295094ed3..00000000000 --- a/Master/bin/win32/eps2eps.texlua +++ /dev/null @@ -1,64 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id$ - --- Copyright (C) 2008 Reinhard Kotucha. --- You may freely use, modify and/or distribute this file. - --- Replacement for eps2eps.bat. --- 'Distill' Encapsulated PostScript. - -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('eps2eps.texlua', 'eps2eps') - -TEXDIR=kpse.var_value('SELFAUTOPARENT') - -if os.type == 'windows' then - os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) - gs='gswin32c' -else - gs='gs' -end - -command={gs, '-q', '-sDEVICE=epswrite', '-dNOPAUSE', - '-sOutputFile='..arg[#arg], '-dBATCH', '-dSAFER', - '-dDEVICEWIDTH=250000', '-dDEVICEHEIGHT=250000'} - -files=0 - -for i=1, #arg do - if not string.find(arg[i], '^-') then - files=files+1 - end - command[#command+1]=arg[i] -end - -if files < 2 then - io.stderr:write('Usage: eps2eps [options] input.eps output.eps') - os.exit(0) -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/epstopdf.bat b/Master/bin/win32/epstopdf.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/fmtutil-sys.bat b/Master/bin/win32/fmtutil-sys.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/getnonfreefonts-sys.bat b/Master/bin/win32/getnonfreefonts-sys.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/getnonfreefonts.bat b/Master/bin/win32/getnonfreefonts.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/pdf2dsc.bat b/Master/bin/win32/pdf2dsc.bat new file mode 100755 index 00000000000..fe949613d7c --- /dev/null +++ b/Master/bin/win32/pdf2dsc.bat @@ -0,0 +1,8 @@ +@echo off +rem tl-w32-starter.bat +rem universal script starter, batch file part +rem this program calls the tl-w32-wrapper.texlua +setlocal +set ownpath=%~dp0% +texlua "%ownpath%tl-w32-wrapper.texlua" "%~dpn0" %* +endlocal diff --git a/Master/bin/win32/pdf2dsc.texlua b/Master/bin/win32/pdf2dsc.texlua deleted file mode 100755 index 1f536a5ba31..00000000000 --- a/Master/bin/win32/pdf2dsc.texlua +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id$ - --- Copyright (C) 2007 Reinhard Kotucha. --- You may freely use, modify and/or distribute this file. - --- Replacement for pdf2dsc.bat. --- Convert PDF to DSC - -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('pdf2dsc.texlua', 'pdf2dsc') - -TEXDIR=kpse.var_value('SELFAUTOPARENT') - -if os.type == 'windows' then - os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) - gs='gswin32c' -else - gs='gs' -end - -if #arg == 0 or #arg > 2 then - io.stderr:write('Usage: pdf2dsc input.pdf [output.dsc]\n') - os.exit(0) -end - -pdffile=arg[1] -if #arg==2 then - dscfile=arg[2] -else - dscfile=select(1, string.gsub(pdffile, '\.%a+$', '.dsc')) -end - -command={gs, '-q', '-dNODISPLAY', '-dSAFER', '-dDELAYSAFER', - '-sPDFname='..pdffile, '-sDSCname='..dscfile, 'pdf2dsc.ps', - '-c', 'quit'} - -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/pdfcrop.bat b/Master/bin/win32/pdfcrop.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/pdfopt.bat b/Master/bin/win32/pdfopt.bat new file mode 100755 index 00000000000..fe949613d7c --- /dev/null +++ b/Master/bin/win32/pdfopt.bat @@ -0,0 +1,8 @@ +@echo off +rem tl-w32-starter.bat +rem universal script starter, batch file part +rem this program calls the tl-w32-wrapper.texlua +setlocal +set ownpath=%~dp0% +texlua "%ownpath%tl-w32-wrapper.texlua" "%~dpn0" %* +endlocal diff --git a/Master/bin/win32/pdfopt.texlua b/Master/bin/win32/pdfopt.texlua deleted file mode 100755 index 48b6cc2ffc4..00000000000 --- a/Master/bin/win32/pdfopt.texlua +++ /dev/null @@ -1,70 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id$ - --- Copyright (C) 2008 Reinhard Kotucha. --- You may freely use, modify and/or distribute this file. - --- Replacement for pdfopt.bat. --- Linearize PDF - -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('pdfopt.texlua', 'pdfopt') - -TEXDIR=kpse.var_value('SELFAUTOPARENT') - -if os.type == 'windows' then - os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) - gs='gswin32c' -else - gs='gs' -end - -command={gs, '-q', '-dNODISPLAY', '-dSAFER', '-dDELAYSAFER'} - -files={} - -for i=1, #arg do - if string.find(arg[i], '^-') then - command[#command+1]=arg[i] - else - files[#files+1]=arg[i] - end -end - -command[#command+1]='--' -command[#command+1]='pdfopt.ps' - -if #files ~= 2 then - io.stderr:write('Usage: pdfopt [options] input.pdf output.pdf') - os.exit(0) -else - for i=1, #files do - command[#command+1]=files[i] - end -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/pdfthumb.bat b/Master/bin/win32/pdfthumb.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/pkfix.bat b/Master/bin/win32/pkfix.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/ppower4.bat b/Master/bin/win32/ppower4.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/ps2ascii.bat b/Master/bin/win32/ps2ascii.bat new file mode 100755 index 00000000000..fe949613d7c --- /dev/null +++ b/Master/bin/win32/ps2ascii.bat @@ -0,0 +1,8 @@ +@echo off +rem tl-w32-starter.bat +rem universal script starter, batch file part +rem this program calls the tl-w32-wrapper.texlua +setlocal +set ownpath=%~dp0% +texlua "%ownpath%tl-w32-wrapper.texlua" "%~dpn0" %* +endlocal diff --git a/Master/bin/win32/ps2ascii.texlua b/Master/bin/win32/ps2ascii.texlua deleted file mode 100755 index 4ac076148fc..00000000000 --- a/Master/bin/win32/ps2ascii.texlua +++ /dev/null @@ -1,80 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id$ - --- Copyright (C) 2008 Reinhard Kotucha. --- You may freely use, modify and/or distribute this file. - --- Replacement for ps2ascii.bat. --- Convert PostScript to ASCII - -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 - -function remove_tmpfiles (tmpfiles) - for i=1, #tmpfiles do - if lfs.isfile(tmpfiles[i]) then - os.remove(tmpfiles[i]) - end - end -end - -kpse.set_program_name('ps2ascii.texlua', 'ps2ascii') - -TEXDIR=kpse.var_value('SELFAUTOPARENT') - -if os.type == 'windows' then - os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) - gs='gswin32c' -else - gs='gs' -end - -command={gs, '-q', '-dNODISPLAY', '-dBATCH', '-dSAFER', '-dDELAYBIND', - '-dWRITESYSTEMDICT', '-dSIMPLE', 'ps2ascii.ps', '-c', 'save', - '-f', 'ps2ascii.ps'} - -if #arg < 2 then - if #arg == 0 then - command[#command+1]='-' - elseif #arg == 1 then - command[#command+1]=arg[1] - end - command=fixwin(command) -elseif #arg == 2 then - -- We need a shell for I/O redirection. - command=gs..' -q -dNODISPLAY -dBATCH -dSAFER -dDELAYBIND'.. - '-dWRITESYSTEMDICT -dSIMPLE ps2ascii.ps -c save'.. - '-f ps2ascii.ps > "'..arg[2]..'"' -end - ---[[ prepend an additional hyphen to activate this code -if type(command) == 'string' then - print(command) -else - for i=0, #command do - print (command[i]) - end -end -os.exit(ret) ---]] - -if type(command) == 'string' then - ret=os.execute(command) -else - ret=os.spawn(command) -end - -remove_tmpfiles{'_temp_.err', '_temp_.out'} -os.exit(ret) diff --git a/Master/bin/win32/ps2eps.bat b/Master/bin/win32/ps2eps.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/ps2pdf.bat b/Master/bin/win32/ps2pdf.bat new file mode 100755 index 00000000000..fe949613d7c --- /dev/null +++ b/Master/bin/win32/ps2pdf.bat @@ -0,0 +1,8 @@ +@echo off +rem tl-w32-starter.bat +rem universal script starter, batch file part +rem this program calls the tl-w32-wrapper.texlua +setlocal +set ownpath=%~dp0% +texlua "%ownpath%tl-w32-wrapper.texlua" "%~dpn0" %* +endlocal diff --git a/Master/bin/win32/ps2pdf.texlua b/Master/bin/win32/ps2pdf.texlua deleted file mode 100755 index 6ccff9f8556..00000000000 --- a/Master/bin/win32/ps2pdf.texlua +++ /dev/null @@ -1,132 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id$ - --- Copyright (C) 2008 Reinhard Kotucha. --- You may freely use, modify and/or distribute this file. - --- Replacement for ps2pdf*.bat. --- Convert PS to PDF - -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 - -function filename (file) - local filename - if string.find(file, '/') then -- UNIX path - filename=select(1, string.gsub(file, '.*/', '')) - elseif string.find(file, '\\') then -- Windows path - filename=select(1, string.gsub(file, '.*\\', '')) - else -- no path - filename=file - end - return(filename) -end - -function basename (file) - local basename - local fname - fname=filename (file) - basename=select(1, string.gsub(fname, '\.%a+$', '')) - return(basename) -end - -kpse.set_program_name('ps2pdf.texlua', 'ps2pdf') - -TEXDIR=kpse.var_value('SELFAUTOPARENT') - -if os.type == 'windows' then - os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) - gs='gswin32c' -else - gs='gs' -end - -command={gs} -files={} -options={} - -PDF_level='1.4' -if string.find(basename(arg[0]), '12') then - PDF_level='1.2' -elseif string.find(basename(arg[0]), '13') then - PDF_level='1.3' -elseif string.find(basename(arg[0]), '14') then - PDF_level='1.4' -end - -options[#options+1]='-dCompatibilityLevel='..PDF_level - -for i=1, #arg do - if string.find(arg[i], '^-$') then - files[#files+1]=arg[i] - elseif string.find(arg[i], '^-') then - options[#options+1]=arg[i] - else - files[#files+1]=arg[i] - end -end - -if #files == 1 then - if string.find(files[1], '^-$') then - outfile='-' - elseif string.find(filename(files[1]), '\.e*ps$') then - outfile=basename(files[1])..'.pdf' - else - outfile=filename(files[1])..'.pdf' - end -else - outfile=files[2] -end - -for i=1, #options do - command[#command+1]=options[i] -end - -other_opts={'-q', '-dSAFER', '-dNOPAUSE', '-dBATCH', '-sDEVICE=pdfwrite'} - -for i=1, #other_opts do - command[#command+1]=other_opts[i] -end - -command[#command+1]='-sOutputFile="'..outfile..'"' - -for i=1, #options do - command[#command+1]=options[i] -end - -if #files < 1 or #files > 2 then - io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n') - os.exit(0) -end - - - -other_opts={'-c', '.setpdfwrite', '-f', files[1]} - -for i=1, #other_opts do - command[#command+1]=other_opts[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/ps2pdf12.bat b/Master/bin/win32/ps2pdf12.bat new file mode 100755 index 00000000000..fe949613d7c --- /dev/null +++ b/Master/bin/win32/ps2pdf12.bat @@ -0,0 +1,8 @@ +@echo off +rem tl-w32-starter.bat +rem universal script starter, batch file part +rem this program calls the tl-w32-wrapper.texlua +setlocal +set ownpath=%~dp0% +texlua "%ownpath%tl-w32-wrapper.texlua" "%~dpn0" %* +endlocal diff --git a/Master/bin/win32/ps2pdf12.texlua b/Master/bin/win32/ps2pdf12.texlua deleted file mode 100755 index 6ccff9f8556..00000000000 --- a/Master/bin/win32/ps2pdf12.texlua +++ /dev/null @@ -1,132 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id$ - --- Copyright (C) 2008 Reinhard Kotucha. --- You may freely use, modify and/or distribute this file. - --- Replacement for ps2pdf*.bat. --- Convert PS to PDF - -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 - -function filename (file) - local filename - if string.find(file, '/') then -- UNIX path - filename=select(1, string.gsub(file, '.*/', '')) - elseif string.find(file, '\\') then -- Windows path - filename=select(1, string.gsub(file, '.*\\', '')) - else -- no path - filename=file - end - return(filename) -end - -function basename (file) - local basename - local fname - fname=filename (file) - basename=select(1, string.gsub(fname, '\.%a+$', '')) - return(basename) -end - -kpse.set_program_name('ps2pdf.texlua', 'ps2pdf') - -TEXDIR=kpse.var_value('SELFAUTOPARENT') - -if os.type == 'windows' then - os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) - gs='gswin32c' -else - gs='gs' -end - -command={gs} -files={} -options={} - -PDF_level='1.4' -if string.find(basename(arg[0]), '12') then - PDF_level='1.2' -elseif string.find(basename(arg[0]), '13') then - PDF_level='1.3' -elseif string.find(basename(arg[0]), '14') then - PDF_level='1.4' -end - -options[#options+1]='-dCompatibilityLevel='..PDF_level - -for i=1, #arg do - if string.find(arg[i], '^-$') then - files[#files+1]=arg[i] - elseif string.find(arg[i], '^-') then - options[#options+1]=arg[i] - else - files[#files+1]=arg[i] - end -end - -if #files == 1 then - if string.find(files[1], '^-$') then - outfile='-' - elseif string.find(filename(files[1]), '\.e*ps$') then - outfile=basename(files[1])..'.pdf' - else - outfile=filename(files[1])..'.pdf' - end -else - outfile=files[2] -end - -for i=1, #options do - command[#command+1]=options[i] -end - -other_opts={'-q', '-dSAFER', '-dNOPAUSE', '-dBATCH', '-sDEVICE=pdfwrite'} - -for i=1, #other_opts do - command[#command+1]=other_opts[i] -end - -command[#command+1]='-sOutputFile="'..outfile..'"' - -for i=1, #options do - command[#command+1]=options[i] -end - -if #files < 1 or #files > 2 then - io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n') - os.exit(0) -end - - - -other_opts={'-c', '.setpdfwrite', '-f', files[1]} - -for i=1, #other_opts do - command[#command+1]=other_opts[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/ps2pdf13.bat b/Master/bin/win32/ps2pdf13.bat new file mode 100755 index 00000000000..fe949613d7c --- /dev/null +++ b/Master/bin/win32/ps2pdf13.bat @@ -0,0 +1,8 @@ +@echo off +rem tl-w32-starter.bat +rem universal script starter, batch file part +rem this program calls the tl-w32-wrapper.texlua +setlocal +set ownpath=%~dp0% +texlua "%ownpath%tl-w32-wrapper.texlua" "%~dpn0" %* +endlocal diff --git a/Master/bin/win32/ps2pdf13.texlua b/Master/bin/win32/ps2pdf13.texlua deleted file mode 100755 index 6ccff9f8556..00000000000 --- a/Master/bin/win32/ps2pdf13.texlua +++ /dev/null @@ -1,132 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id$ - --- Copyright (C) 2008 Reinhard Kotucha. --- You may freely use, modify and/or distribute this file. - --- Replacement for ps2pdf*.bat. --- Convert PS to PDF - -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 - -function filename (file) - local filename - if string.find(file, '/') then -- UNIX path - filename=select(1, string.gsub(file, '.*/', '')) - elseif string.find(file, '\\') then -- Windows path - filename=select(1, string.gsub(file, '.*\\', '')) - else -- no path - filename=file - end - return(filename) -end - -function basename (file) - local basename - local fname - fname=filename (file) - basename=select(1, string.gsub(fname, '\.%a+$', '')) - return(basename) -end - -kpse.set_program_name('ps2pdf.texlua', 'ps2pdf') - -TEXDIR=kpse.var_value('SELFAUTOPARENT') - -if os.type == 'windows' then - os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) - gs='gswin32c' -else - gs='gs' -end - -command={gs} -files={} -options={} - -PDF_level='1.4' -if string.find(basename(arg[0]), '12') then - PDF_level='1.2' -elseif string.find(basename(arg[0]), '13') then - PDF_level='1.3' -elseif string.find(basename(arg[0]), '14') then - PDF_level='1.4' -end - -options[#options+1]='-dCompatibilityLevel='..PDF_level - -for i=1, #arg do - if string.find(arg[i], '^-$') then - files[#files+1]=arg[i] - elseif string.find(arg[i], '^-') then - options[#options+1]=arg[i] - else - files[#files+1]=arg[i] - end -end - -if #files == 1 then - if string.find(files[1], '^-$') then - outfile='-' - elseif string.find(filename(files[1]), '\.e*ps$') then - outfile=basename(files[1])..'.pdf' - else - outfile=filename(files[1])..'.pdf' - end -else - outfile=files[2] -end - -for i=1, #options do - command[#command+1]=options[i] -end - -other_opts={'-q', '-dSAFER', '-dNOPAUSE', '-dBATCH', '-sDEVICE=pdfwrite'} - -for i=1, #other_opts do - command[#command+1]=other_opts[i] -end - -command[#command+1]='-sOutputFile="'..outfile..'"' - -for i=1, #options do - command[#command+1]=options[i] -end - -if #files < 1 or #files > 2 then - io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n') - os.exit(0) -end - - - -other_opts={'-c', '.setpdfwrite', '-f', files[1]} - -for i=1, #other_opts do - command[#command+1]=other_opts[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/ps2pdf14.bat b/Master/bin/win32/ps2pdf14.bat new file mode 100755 index 00000000000..fe949613d7c --- /dev/null +++ b/Master/bin/win32/ps2pdf14.bat @@ -0,0 +1,8 @@ +@echo off +rem tl-w32-starter.bat +rem universal script starter, batch file part +rem this program calls the tl-w32-wrapper.texlua +setlocal +set ownpath=%~dp0% +texlua "%ownpath%tl-w32-wrapper.texlua" "%~dpn0" %* +endlocal diff --git a/Master/bin/win32/ps2pdf14.texlua b/Master/bin/win32/ps2pdf14.texlua deleted file mode 100755 index 6ccff9f8556..00000000000 --- a/Master/bin/win32/ps2pdf14.texlua +++ /dev/null @@ -1,132 +0,0 @@ -#!/usr/bin/env texlua ---*-Lua-*- --- $Id$ - --- Copyright (C) 2008 Reinhard Kotucha. --- You may freely use, modify and/or distribute this file. - --- Replacement for ps2pdf*.bat. --- Convert PS to PDF - -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 - -function filename (file) - local filename - if string.find(file, '/') then -- UNIX path - filename=select(1, string.gsub(file, '.*/', '')) - elseif string.find(file, '\\') then -- Windows path - filename=select(1, string.gsub(file, '.*\\', '')) - else -- no path - filename=file - end - return(filename) -end - -function basename (file) - local basename - local fname - fname=filename (file) - basename=select(1, string.gsub(fname, '\.%a+$', '')) - return(basename) -end - -kpse.set_program_name('ps2pdf.texlua', 'ps2pdf') - -TEXDIR=kpse.var_value('SELFAUTOPARENT') - -if os.type == 'windows' then - os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') - os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) - gs='gswin32c' -else - gs='gs' -end - -command={gs} -files={} -options={} - -PDF_level='1.4' -if string.find(basename(arg[0]), '12') then - PDF_level='1.2' -elseif string.find(basename(arg[0]), '13') then - PDF_level='1.3' -elseif string.find(basename(arg[0]), '14') then - PDF_level='1.4' -end - -options[#options+1]='-dCompatibilityLevel='..PDF_level - -for i=1, #arg do - if string.find(arg[i], '^-$') then - files[#files+1]=arg[i] - elseif string.find(arg[i], '^-') then - options[#options+1]=arg[i] - else - files[#files+1]=arg[i] - end -end - -if #files == 1 then - if string.find(files[1], '^-$') then - outfile='-' - elseif string.find(filename(files[1]), '\.e*ps$') then - outfile=basename(files[1])..'.pdf' - else - outfile=filename(files[1])..'.pdf' - end -else - outfile=files[2] -end - -for i=1, #options do - command[#command+1]=options[i] -end - -other_opts={'-q', '-dSAFER', '-dNOPAUSE', '-dBATCH', '-sDEVICE=pdfwrite'} - -for i=1, #other_opts do - command[#command+1]=other_opts[i] -end - -command[#command+1]='-sOutputFile="'..outfile..'"' - -for i=1, #options do - command[#command+1]=options[i] -end - -if #files < 1 or #files > 2 then - io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n') - os.exit(0) -end - - - -other_opts={'-c', '.setpdfwrite', '-f', files[1]} - -for i=1, #other_opts do - command[#command+1]=other_opts[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/psv.bat b/Master/bin/win32/psv.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/rungs.bat b/Master/bin/win32/rungs.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/texcount.bat b/Master/bin/win32/texcount.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/texdoctk.bat b/Master/bin/win32/texdoctk.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/texindy.bat b/Master/bin/win32/texindy.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/thumbpdf.bat b/Master/bin/win32/thumbpdf.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/tlmgr.bat b/Master/bin/win32/tlmgr.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/updmap-sys.bat b/Master/bin/win32/updmap-sys.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/updmap.bat b/Master/bin/win32/updmap.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/vpe.bat b/Master/bin/win32/vpe.bat old mode 100644 new mode 100755 diff --git a/Master/bin/win32/xindy.bat b/Master/bin/win32/xindy.bat old mode 100644 new mode 100755 diff --git a/Master/source/ghostscript-8.54-gpl.tar.gz b/Master/source/ghostscript-8.54-gpl.tar.gz deleted file mode 100644 index 2e068d7dffa..00000000000 Binary files a/Master/source/ghostscript-8.54-gpl.tar.gz and /dev/null differ diff --git a/Master/source/ghostscript-8.62.tar.bz2 b/Master/source/ghostscript-8.62.tar.bz2 new file mode 100644 index 00000000000..507d8d70352 Binary files /dev/null and b/Master/source/ghostscript-8.62.tar.bz2 differ diff --git a/Master/texmf/scripts/texlive/gswin32/eps2eps.tlu b/Master/texmf/scripts/texlive/gswin32/eps2eps.tlu new file mode 100755 index 00000000000..e2295094ed3 --- /dev/null +++ b/Master/texmf/scripts/texlive/gswin32/eps2eps.tlu @@ -0,0 +1,64 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2008 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for eps2eps.bat. +-- 'Distill' Encapsulated PostScript. + +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('eps2eps.texlua', 'eps2eps') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +command={gs, '-q', '-sDEVICE=epswrite', '-dNOPAUSE', + '-sOutputFile='..arg[#arg], '-dBATCH', '-dSAFER', + '-dDEVICEWIDTH=250000', '-dDEVICEHEIGHT=250000'} + +files=0 + +for i=1, #arg do + if not string.find(arg[i], '^-') then + files=files+1 + end + command[#command+1]=arg[i] +end + +if files < 2 then + io.stderr:write('Usage: eps2eps [options] input.eps output.eps') + os.exit(0) +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/texmf/scripts/texlive/gswin32/pdf2dsc.tlu b/Master/texmf/scripts/texlive/gswin32/pdf2dsc.tlu new file mode 100755 index 00000000000..1f536a5ba31 --- /dev/null +++ b/Master/texmf/scripts/texlive/gswin32/pdf2dsc.tlu @@ -0,0 +1,62 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2007 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for pdf2dsc.bat. +-- Convert PDF to DSC + +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('pdf2dsc.texlua', 'pdf2dsc') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +if #arg == 0 or #arg > 2 then + io.stderr:write('Usage: pdf2dsc input.pdf [output.dsc]\n') + os.exit(0) +end + +pdffile=arg[1] +if #arg==2 then + dscfile=arg[2] +else + dscfile=select(1, string.gsub(pdffile, '\.%a+$', '.dsc')) +end + +command={gs, '-q', '-dNODISPLAY', '-dSAFER', '-dDELAYSAFER', + '-sPDFname='..pdffile, '-sDSCname='..dscfile, 'pdf2dsc.ps', + '-c', 'quit'} + +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/texmf/scripts/texlive/gswin32/pdfopt.tlu b/Master/texmf/scripts/texlive/gswin32/pdfopt.tlu new file mode 100755 index 00000000000..48b6cc2ffc4 --- /dev/null +++ b/Master/texmf/scripts/texlive/gswin32/pdfopt.tlu @@ -0,0 +1,70 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2008 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for pdfopt.bat. +-- Linearize PDF + +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('pdfopt.texlua', 'pdfopt') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +command={gs, '-q', '-dNODISPLAY', '-dSAFER', '-dDELAYSAFER'} + +files={} + +for i=1, #arg do + if string.find(arg[i], '^-') then + command[#command+1]=arg[i] + else + files[#files+1]=arg[i] + end +end + +command[#command+1]='--' +command[#command+1]='pdfopt.ps' + +if #files ~= 2 then + io.stderr:write('Usage: pdfopt [options] input.pdf output.pdf') + os.exit(0) +else + for i=1, #files do + command[#command+1]=files[i] + end +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/texmf/scripts/texlive/gswin32/ps2ascii.tlu b/Master/texmf/scripts/texlive/gswin32/ps2ascii.tlu new file mode 100755 index 00000000000..4ac076148fc --- /dev/null +++ b/Master/texmf/scripts/texlive/gswin32/ps2ascii.tlu @@ -0,0 +1,80 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2008 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for ps2ascii.bat. +-- Convert PostScript to ASCII + +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 + +function remove_tmpfiles (tmpfiles) + for i=1, #tmpfiles do + if lfs.isfile(tmpfiles[i]) then + os.remove(tmpfiles[i]) + end + end +end + +kpse.set_program_name('ps2ascii.texlua', 'ps2ascii') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +command={gs, '-q', '-dNODISPLAY', '-dBATCH', '-dSAFER', '-dDELAYBIND', + '-dWRITESYSTEMDICT', '-dSIMPLE', 'ps2ascii.ps', '-c', 'save', + '-f', 'ps2ascii.ps'} + +if #arg < 2 then + if #arg == 0 then + command[#command+1]='-' + elseif #arg == 1 then + command[#command+1]=arg[1] + end + command=fixwin(command) +elseif #arg == 2 then + -- We need a shell for I/O redirection. + command=gs..' -q -dNODISPLAY -dBATCH -dSAFER -dDELAYBIND'.. + '-dWRITESYSTEMDICT -dSIMPLE ps2ascii.ps -c save'.. + '-f ps2ascii.ps > "'..arg[2]..'"' +end + +--[[ prepend an additional hyphen to activate this code +if type(command) == 'string' then + print(command) +else + for i=0, #command do + print (command[i]) + end +end +os.exit(ret) +--]] + +if type(command) == 'string' then + ret=os.execute(command) +else + ret=os.spawn(command) +end + +remove_tmpfiles{'_temp_.err', '_temp_.out'} +os.exit(ret) diff --git a/Master/texmf/scripts/texlive/gswin32/ps2pdf.tlu b/Master/texmf/scripts/texlive/gswin32/ps2pdf.tlu new file mode 100755 index 00000000000..6ccff9f8556 --- /dev/null +++ b/Master/texmf/scripts/texlive/gswin32/ps2pdf.tlu @@ -0,0 +1,132 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2008 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for ps2pdf*.bat. +-- Convert PS to PDF + +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 + +function filename (file) + local filename + if string.find(file, '/') then -- UNIX path + filename=select(1, string.gsub(file, '.*/', '')) + elseif string.find(file, '\\') then -- Windows path + filename=select(1, string.gsub(file, '.*\\', '')) + else -- no path + filename=file + end + return(filename) +end + +function basename (file) + local basename + local fname + fname=filename (file) + basename=select(1, string.gsub(fname, '\.%a+$', '')) + return(basename) +end + +kpse.set_program_name('ps2pdf.texlua', 'ps2pdf') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +command={gs} +files={} +options={} + +PDF_level='1.4' +if string.find(basename(arg[0]), '12') then + PDF_level='1.2' +elseif string.find(basename(arg[0]), '13') then + PDF_level='1.3' +elseif string.find(basename(arg[0]), '14') then + PDF_level='1.4' +end + +options[#options+1]='-dCompatibilityLevel='..PDF_level + +for i=1, #arg do + if string.find(arg[i], '^-$') then + files[#files+1]=arg[i] + elseif string.find(arg[i], '^-') then + options[#options+1]=arg[i] + else + files[#files+1]=arg[i] + end +end + +if #files == 1 then + if string.find(files[1], '^-$') then + outfile='-' + elseif string.find(filename(files[1]), '\.e*ps$') then + outfile=basename(files[1])..'.pdf' + else + outfile=filename(files[1])..'.pdf' + end +else + outfile=files[2] +end + +for i=1, #options do + command[#command+1]=options[i] +end + +other_opts={'-q', '-dSAFER', '-dNOPAUSE', '-dBATCH', '-sDEVICE=pdfwrite'} + +for i=1, #other_opts do + command[#command+1]=other_opts[i] +end + +command[#command+1]='-sOutputFile="'..outfile..'"' + +for i=1, #options do + command[#command+1]=options[i] +end + +if #files < 1 or #files > 2 then + io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n') + os.exit(0) +end + + + +other_opts={'-c', '.setpdfwrite', '-f', files[1]} + +for i=1, #other_opts do + command[#command+1]=other_opts[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/texmf/scripts/texlive/gswin32/ps2pdf12.tlu b/Master/texmf/scripts/texlive/gswin32/ps2pdf12.tlu new file mode 100755 index 00000000000..6ccff9f8556 --- /dev/null +++ b/Master/texmf/scripts/texlive/gswin32/ps2pdf12.tlu @@ -0,0 +1,132 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2008 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for ps2pdf*.bat. +-- Convert PS to PDF + +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 + +function filename (file) + local filename + if string.find(file, '/') then -- UNIX path + filename=select(1, string.gsub(file, '.*/', '')) + elseif string.find(file, '\\') then -- Windows path + filename=select(1, string.gsub(file, '.*\\', '')) + else -- no path + filename=file + end + return(filename) +end + +function basename (file) + local basename + local fname + fname=filename (file) + basename=select(1, string.gsub(fname, '\.%a+$', '')) + return(basename) +end + +kpse.set_program_name('ps2pdf.texlua', 'ps2pdf') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +command={gs} +files={} +options={} + +PDF_level='1.4' +if string.find(basename(arg[0]), '12') then + PDF_level='1.2' +elseif string.find(basename(arg[0]), '13') then + PDF_level='1.3' +elseif string.find(basename(arg[0]), '14') then + PDF_level='1.4' +end + +options[#options+1]='-dCompatibilityLevel='..PDF_level + +for i=1, #arg do + if string.find(arg[i], '^-$') then + files[#files+1]=arg[i] + elseif string.find(arg[i], '^-') then + options[#options+1]=arg[i] + else + files[#files+1]=arg[i] + end +end + +if #files == 1 then + if string.find(files[1], '^-$') then + outfile='-' + elseif string.find(filename(files[1]), '\.e*ps$') then + outfile=basename(files[1])..'.pdf' + else + outfile=filename(files[1])..'.pdf' + end +else + outfile=files[2] +end + +for i=1, #options do + command[#command+1]=options[i] +end + +other_opts={'-q', '-dSAFER', '-dNOPAUSE', '-dBATCH', '-sDEVICE=pdfwrite'} + +for i=1, #other_opts do + command[#command+1]=other_opts[i] +end + +command[#command+1]='-sOutputFile="'..outfile..'"' + +for i=1, #options do + command[#command+1]=options[i] +end + +if #files < 1 or #files > 2 then + io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n') + os.exit(0) +end + + + +other_opts={'-c', '.setpdfwrite', '-f', files[1]} + +for i=1, #other_opts do + command[#command+1]=other_opts[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/texmf/scripts/texlive/gswin32/ps2pdf13.tlu b/Master/texmf/scripts/texlive/gswin32/ps2pdf13.tlu new file mode 100755 index 00000000000..6ccff9f8556 --- /dev/null +++ b/Master/texmf/scripts/texlive/gswin32/ps2pdf13.tlu @@ -0,0 +1,132 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2008 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for ps2pdf*.bat. +-- Convert PS to PDF + +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 + +function filename (file) + local filename + if string.find(file, '/') then -- UNIX path + filename=select(1, string.gsub(file, '.*/', '')) + elseif string.find(file, '\\') then -- Windows path + filename=select(1, string.gsub(file, '.*\\', '')) + else -- no path + filename=file + end + return(filename) +end + +function basename (file) + local basename + local fname + fname=filename (file) + basename=select(1, string.gsub(fname, '\.%a+$', '')) + return(basename) +end + +kpse.set_program_name('ps2pdf.texlua', 'ps2pdf') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +command={gs} +files={} +options={} + +PDF_level='1.4' +if string.find(basename(arg[0]), '12') then + PDF_level='1.2' +elseif string.find(basename(arg[0]), '13') then + PDF_level='1.3' +elseif string.find(basename(arg[0]), '14') then + PDF_level='1.4' +end + +options[#options+1]='-dCompatibilityLevel='..PDF_level + +for i=1, #arg do + if string.find(arg[i], '^-$') then + files[#files+1]=arg[i] + elseif string.find(arg[i], '^-') then + options[#options+1]=arg[i] + else + files[#files+1]=arg[i] + end +end + +if #files == 1 then + if string.find(files[1], '^-$') then + outfile='-' + elseif string.find(filename(files[1]), '\.e*ps$') then + outfile=basename(files[1])..'.pdf' + else + outfile=filename(files[1])..'.pdf' + end +else + outfile=files[2] +end + +for i=1, #options do + command[#command+1]=options[i] +end + +other_opts={'-q', '-dSAFER', '-dNOPAUSE', '-dBATCH', '-sDEVICE=pdfwrite'} + +for i=1, #other_opts do + command[#command+1]=other_opts[i] +end + +command[#command+1]='-sOutputFile="'..outfile..'"' + +for i=1, #options do + command[#command+1]=options[i] +end + +if #files < 1 or #files > 2 then + io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n') + os.exit(0) +end + + + +other_opts={'-c', '.setpdfwrite', '-f', files[1]} + +for i=1, #other_opts do + command[#command+1]=other_opts[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/texmf/scripts/texlive/gswin32/ps2pdf14.tlu b/Master/texmf/scripts/texlive/gswin32/ps2pdf14.tlu new file mode 100755 index 00000000000..6ccff9f8556 --- /dev/null +++ b/Master/texmf/scripts/texlive/gswin32/ps2pdf14.tlu @@ -0,0 +1,132 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2008 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for ps2pdf*.bat. +-- Convert PS to PDF + +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 + +function filename (file) + local filename + if string.find(file, '/') then -- UNIX path + filename=select(1, string.gsub(file, '.*/', '')) + elseif string.find(file, '\\') then -- Windows path + filename=select(1, string.gsub(file, '.*\\', '')) + else -- no path + filename=file + end + return(filename) +end + +function basename (file) + local basename + local fname + fname=filename (file) + basename=select(1, string.gsub(fname, '\.%a+$', '')) + return(basename) +end + +kpse.set_program_name('ps2pdf.texlua', 'ps2pdf') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +command={gs} +files={} +options={} + +PDF_level='1.4' +if string.find(basename(arg[0]), '12') then + PDF_level='1.2' +elseif string.find(basename(arg[0]), '13') then + PDF_level='1.3' +elseif string.find(basename(arg[0]), '14') then + PDF_level='1.4' +end + +options[#options+1]='-dCompatibilityLevel='..PDF_level + +for i=1, #arg do + if string.find(arg[i], '^-$') then + files[#files+1]=arg[i] + elseif string.find(arg[i], '^-') then + options[#options+1]=arg[i] + else + files[#files+1]=arg[i] + end +end + +if #files == 1 then + if string.find(files[1], '^-$') then + outfile='-' + elseif string.find(filename(files[1]), '\.e*ps$') then + outfile=basename(files[1])..'.pdf' + else + outfile=filename(files[1])..'.pdf' + end +else + outfile=files[2] +end + +for i=1, #options do + command[#command+1]=options[i] +end + +other_opts={'-q', '-dSAFER', '-dNOPAUSE', '-dBATCH', '-sDEVICE=pdfwrite'} + +for i=1, #other_opts do + command[#command+1]=other_opts[i] +end + +command[#command+1]='-sOutputFile="'..outfile..'"' + +for i=1, #options do + command[#command+1]=options[i] +end + +if #files < 1 or #files > 2 then + io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n') + os.exit(0) +end + + + +other_opts={'-c', '.setpdfwrite', '-f', files[1]} + +for i=1, #other_opts do + command[#command+1]=other_opts[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/tlpkg/tlpsrc/bin-tlgs.win32.tlpsrc b/Master/tlpkg/tlpsrc/bin-tlgs.win32.tlpsrc index eb4899228e7..73d4351238f 100644 --- a/Master/tlpkg/tlpsrc/bin-tlgs.win32.tlpsrc +++ b/Master/tlpkg/tlpsrc/bin-tlgs.win32.tlpsrc @@ -4,3 +4,4 @@ runpattern f tlpkg/tlgs/README.TEXLIVE # we use runpattern here so that no different binfiles entries for # all the archs are created runpattern d tlpkg/tlgs +runpattern d texmf/scripts/texlive/gswin32 -- cgit v1.2.3