summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/tlgs/gswin32/ps2ps.tlu
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/tlgs/gswin32/ps2ps.tlu')
-rwxr-xr-xMaster/texmf-dist/scripts/tlgs/gswin32/ps2ps.tlu139
1 files changed, 0 insertions, 139 deletions
diff --git a/Master/texmf-dist/scripts/tlgs/gswin32/ps2ps.tlu b/Master/texmf-dist/scripts/tlgs/gswin32/ps2ps.tlu
deleted file mode 100755
index e5e81a4b6f4..00000000000
--- a/Master/texmf-dist/scripts/tlgs/gswin32/ps2ps.tlu
+++ /dev/null
@@ -1,139 +0,0 @@
-#!/usr/bin/env texlua
---*-Lua-*-
--- $Id$
-
--- Copyright (C) 2010 Reinhard Kotucha.
--- You may freely use, modify and/or distribute this file.
-
--- Replacement for ps2ps2.bat.
--- Converting PostScript 3 or PDF into PostScript 2 with the
--- Ghostscript 'ps2write' device.
--- This generates a PDF-style stream with an attached
--- PostScript program to interpret it.
-
-
-local function usage (progname)
- local message=
- 'Usage: '..progname..' [options] <inputfile> <outputfile>\n\n'..
- ' <inputfile> can be either a PS, EPS, PDF file, or stdin.\n'..
- ' A single hyphen (-) denotes stdin.\n'
- return message
-end
-
-
-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
-
-
-local function push (t, ...)
- local args={...}
- for _,v in ipairs(args) do
- if type(v) == 'table' then
- for _,x in ipairs(v) do
- t[#t+1]=x
- end
- else
- t[#t+1]=v
- end
- end
-end
-
-
-local function filename (file)
- -- strip path
- if string.find(file, '[/\\]') then
- return string.match(file, '.*[/\\](.*)$')
- else
- return file
- end
-end
-
-
-local function basename (file)
- -- strip extension
- return string.match(filename(file), '(.*)%..*')
-end
-
-
-local function extension (file)
- -- return extension if available, false otherwise.
- local fn=filename(file)
- if fn:find('%.') then
- return string.match(fn, '.*%.(.*)')
- end
-end
-
-
-local function parse_cmdline ()
- local files={}
- local options={}
-
- local progname
- local basename=filename(arg[0])
- if basename:find('%.') then
- progname=basename:match('(.*)%..*')
- else
- progname=basename
- end
-
- for i=1, #arg do
- if string.find(arg[i], '^%-.+') then
- push(options, arg[i])
- else
- push(files, arg[i])
- end
- end
- files.input =files[1]
- files.output=files[2]
-
- return progname, options, files
-end
-
-
-local function check_files (progname, files)
- if #files < 2 then
- io.stderr:write(usage(progname))
- os.exit(1)
- end
-end
-
--- main --
-
-local progname, options, file=parse_cmdline()
-
-check_files (progname, file)
-
--- setup command
-
-local command={}
-if os.type == 'unix' then command={'gs'} else command={'gswin32c'} end
-
-push(command, '-q', '-sDEVICE=ps2write')
-
-if os.type=='unix' then push(command, '-sstdout=%stderr') end
-
-push(command, '-sOutputFile='..file.output)
-push(command, '-dNOPAUSE', '-dBATCH', '-P-', '-dALLOWPSTRANSPARENCY')
-push(command, options, file.input)
-
-command=fixwin(command)
-
---[[ prepend an additional hyphen to activate this code
-for i=0, #command do
- print (command[i])
-end
-os.exit(0)
---]]
-
-ret=os.spawn(command)
-os.exit(ret)