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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
|
if not modules then modules = { } end modules ['mtx-metapost'] = { -- this was mtx-mptopdf
version = 0.100,
comment = "companion to mtxrun.lua",
author = "Taco Hoekwater & Hans Hagen",
copyright = "ConTeXt Development Team",
license = "see context related readme files"
}
-- todo: load map files
local helpinfo = [[
<?xml version="1.0"?>
<application>
<metadata>
<entry name="name">mtx-metapost</entry>
<entry name="detail">MetaPost to PDF processor</entry>
<entry name="version">0.10</entry>
</metadata>
<flags>
<category name="basic">
<subcategory>
<flag name="rawmp"><short>raw metapost run</short></flag>
<flag name="metafun"><short>use metafun instead of plain</short></flag>
<flag name="latex"><short>force <ref name="tex=latex"/></short></flag>
<flag name="texexec"><short>force texexec usage (mkii)</short></flag>
<flag name="split"><short>split single result file into pages</short></flag>
</subcategory>
</category>
</flags>
<examples>
<category>
<title>Examples</title>
<subcategory>
<example><command>mtxrun --script metapost yourfile.mp</command></example>
<example><command>mtxrun --script metapost --split yourfile.mp</command></example>
<example><command>mtxrun --script metapost yourfile.123 myfile.mps</command></example>
</subcategory>
</category>
</examples>
<comments>
<comment>other usage resembles mptopdf.pl</comment>
</comments>
</application>
]]
local application = logs.application {
name = "mtx-metapost",
banner = "MetaPost to PDF processor 0.10",
helpinfo = helpinfo,
}
local report = application.report
scripts = scripts or { }
scripts.mptopdf = scripts.mptopdf or { }
scripts.mptopdf.aux = scripts.mptopdf.aux or { }
local format, find, gsub = string.format, string.find, string.gsub
local function assumes_latex(filename)
local d = io.loaddata(filename) or ""
return find(d,"\\documentstyle") or find(d,"\\documentclass") or find(d,"\\begin{document}")
end
local basemaps = "original-base.map,original-ams-base.map,original-ams-euler.map,original-public-lm.map"
local wrapper = "\\starttext\n%s\n%s\\stoptext"
local loadmap = "\\loadmapfile[%s]\n"
local template = "\\startTEXpage\n\\convertMPtoPDF{%s}{1}{1}\n\\stopTEXpage"
local texified = "\\starttext\n%s\n\\stoptext"
local splitter = "\\startTEXpage\\externalfigure[%s][page=%s]\\stopTEXpage"
local tempname = "mptopdf-temp.tex"
local function do_mapfiles(mapfiles)
local maps = { }
for i=1,#mapfiles do
local mapfile = mapfiles[i]
application.report("using map file %a",mapfile)
maps[i] = format(loadmap,mapfile)
end
return table.concat(maps)
end
local function do_convert(filename,mapfiles)
if find(filename,".%d+$") or find(filename,"%.mps$") then
local body = format(template,filename)
local maps = do_mapfiles(mapfiles)
io.savedata(tempname,format(wrapper,maps,body))
local resultname = format("%s-%s.pdf",file.nameonly(filename),file.suffix(filename))
local result = os.execute(format([[context --once --batch --purge --result=%s "%s"]],resultname,tempname))
return lfs.isfile(resultname) and resultname
end
end
local function do_split(filename,numbers,mapfiles)
local name = file.nameonly(filename)
local maps = do_mapfiles(mapfiles)
for i=1,#numbers do
local body = format(splitter,file.addsuffix(name,"pdf"),i)
io.savedata(tempname,format(wrapper,maps,body))
local resultname = format("%s-%s.pdf",name,numbers[i])
local result = os.execute(format([[context --once --batch --purge --result=%s "%s"]],resultname,tempname))
end
end
local function do_texify(str)
-- This only works for flat mp files i.e. outer beginfigs. Normally a
-- context user will directly make a tex file. Of course we can make
-- this script more clever, but why should we as better methods exist.
local numbers = { }
str = "\\startMPinclusions\n".. str .. "\n\\stopMPinclusions"
str = gsub(str,"beginfig%s*%(%s*(.-)%s*%)%s*;%s*",function(s)
numbers[#numbers+1] = tonumber(s) or 0
return "\n\\stopMPinclusions\n\\startMPpage\n"
end)
str = gsub(str,"%s*endfig%s*;%s*","\n\\stopMPpage\n\\startMPinclusions\n")
str = gsub(str,"\\startMPinclusions%s*\\stopMPinclusions","")
str = gsub(str,"[\n\r]+","\n")
return format(texified,str), numbers
end
local function do_convert_all(filename,mapfiles)
local results = dir.glob(file.nameonly(filename) .. ".*") -- reset
local report = { }
for i=1,#results do
local filename = results[i]
local resultname = do_convert(filename,mapfiles)
if resultname then
report[#report+1] = { filename, resultname }
end
end
if #report > 0 then
report("number of converted files: %i", #report)
report()
for i=1,#report do
local r = report[i]
report("%s => %s", r[1], r[2])
end
else
report("no files are converted for '%s'",filename)
end
end
local function do_convert_one(filename,mapfiles)
local resultname = do_convert(filename,mapfiles)
if resultname then
report("%s => %s", filename,resultname)
else
report("no result for '%s'",filename)
end
end
function scripts.mptopdf.convertall()
local rawmp = environment.arguments.rawmp or false
local metafun = environment.arguments.metafun or false
local latex = environment.arguments.latex or false
local pattern = environment.arguments.pattern or false
local split = environment.arguments.split or false
local files = pattern and dir.glob(file.nameonly(filename)) or environment.files
local mapfiles = utilities.parsers.settings_to_array(environment.arguments.mapfiles or basemaps)
if #files > 0 then
for i=1,#files do
local filename = files[i]
if file.suffix(filename) == "mp" then
local command, convert, texdata, numbers
if rawmp then
if metafun then
command, convert = format("mpost --progname=mpost --mem=metafun %s",filename), true
else
command, convert = format("mpost --mem=mpost %s",filename), true
end
else
if latex or assumes_latex(filename) then
command, convert = format("mpost --mem=mpost --tex=latex %s",filename), true
elseif texexec then
command, convert = format("texexec --mptex %s",filename), true
else
texdata, numbers = do_texify(io.loaddata(filename) or "")
io.savedata(tempname,texdata)
command, convert = format("context --result=%s --purge --once %s",file.nameonly(filename),tempname), false
end
end
report("running: %s",command)
local done = os.execute(command)
if done then
if convert then
do_convert_all(filename,mapfiles)
elseif split then
do_split(filename,numbers,mapfiles)
-- already pdf, maybe optionally split
end
else
report("error while processing mp file '%s'", filename)
end
else
do_convert_one(filename,mapfiles)
end
end
else
report("no files match to process")
end
end
if environment.argument("exporthelp") then
application.export(environment.argument("exporthelp"),environment.files[1])
elseif environment.files[1] then
scripts.mptopdf.convertall()
else
if not environment.argument("help") then
report("provide MP output file (or pattern)")
report()
end
application.help()
end
|
