1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#!/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
if os.type == 'windows' then
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)
|
