998 lines
35 KiB
Lua
998 lines
35 KiB
Lua
local lmlt = luametalatex
|
||
|
||
local scan_int = token.scan_int
|
||
local scan_token = token.scan_token
|
||
local scan_keyword = token.scan_keyword
|
||
local scan_string = token.scan_string
|
||
local scan_word = token.scan_word
|
||
local scan_dimen = token.scan_dimen
|
||
local scan_box = token.scan_box
|
||
token.scan_list = scan_box -- They are equal if no parameter is present
|
||
|
||
local pdf = pdf
|
||
local pdfvariable = pdf.variable
|
||
|
||
local callbacks = require'luametalatex-callbacks'
|
||
local writer = require'luametalatex-nodewriter'
|
||
local newpdf = require'luametalatex-pdf'
|
||
local nametree = require'luametalatex-pdf-nametree'
|
||
local build_fontdir = require'luametalatex-pdf-font'
|
||
local prepare_node_font = require'luametalatex-pdf-font-node'.prepare
|
||
local fontmap = require'luametalatex-pdf-font-map'
|
||
|
||
local utils = require'luametalatex-pdf-utils'
|
||
local strip_floats = utils.strip_floats
|
||
local to_bp = utils.to_bp
|
||
|
||
local immediate_flag = lmlt.flag.immediate
|
||
|
||
local pdfname, pfile
|
||
local fontdirs = setmetatable({}, {__index=function(t, k)t[k] = pfile:getobj() return t[k] end})
|
||
local nodefont_meta = {}
|
||
local usedglyphs = setmetatable({}, {__index=function(t, fid)
|
||
local v
|
||
if font.fonts[fid].format == 'type3node' then
|
||
v = setmetatable({generation = 0, next_generation = 0}, nodefont_meta)
|
||
else
|
||
v = {}
|
||
end
|
||
t[fid] = v
|
||
return v
|
||
end})
|
||
local dests = {}
|
||
local cur_page
|
||
local declare_whatsit = require'luametalatex-whatsits'.new
|
||
local whatsit_id = node.id'whatsit'
|
||
local whatsits = node.whatsits()
|
||
local colorstacks = {{
|
||
page = true,
|
||
mode = "direct",
|
||
default = "0 g 0 G",
|
||
page_stack = {"0 g 0 G"},
|
||
}}
|
||
local spacer_cmd = token.command_id'spacer'
|
||
local output_directory = arg['output-directory']
|
||
local dir_sep = '/' -- FIXME
|
||
local function get_pfile()
|
||
if not pfile then
|
||
pdfname = tex.jobname .. '.pdf'
|
||
if output_directory then
|
||
pdfname = output_directory .. dir_sep .. pdfname
|
||
end
|
||
pfile = newpdf.open(pdfname)
|
||
end
|
||
return pfile
|
||
end
|
||
local outline
|
||
local build_outline = require'luametalatex-pdf-outline'
|
||
local function get_outline()
|
||
if not outline then
|
||
outline = build_outline()
|
||
end
|
||
return outline
|
||
end
|
||
local properties = node.direct.properties
|
||
local reset_deadcycles do
|
||
local tokens = {
|
||
lmlt.primitive_tokens.global,
|
||
lmlt.primitive_tokens.deadcycles,token.create(0x30),
|
||
lmlt.primitive_tokens.relax,
|
||
}
|
||
function reset_deadcycles()
|
||
token.put_next(tokens)
|
||
end
|
||
end
|
||
lmlt.luacmd("shipout", function()
|
||
local pfile = get_pfile()
|
||
local total_voffset, total_hoffset = tex.voffset + pdfvariable.vorigin, tex.hoffset + pdfvariable.horigin
|
||
local voff = node.new'kern'
|
||
voff.kern = total_voffset
|
||
voff.next = scan_box()
|
||
voff.next.shift = total_hoffset
|
||
local list = node.direct.tonode(node.direct.vpack(node.direct.todirect(voff)))
|
||
local pageheight, pagewidth = tex.pageheight, tex.pagewidth
|
||
-- In the following, the total_[hv]offset represents a symmetric offset applied on the right/bottom.
|
||
-- The upper/left one is already included in the box dimensions
|
||
list.height = pageheight ~= 0 and pageheight or list.height + list.depth + total_voffset
|
||
list.width = pagewidth ~= 0 and pagewidth or list.width + total_hoffset
|
||
local page, parent = pfile:newpage()
|
||
cur_page = page
|
||
local out, resources, annots = writer(pfile, list, fontdirs, usedglyphs, colorstacks)
|
||
cur_page = nil
|
||
local content = pfile:stream(nil, '', out)
|
||
pfile:indirect(page, string.format([[<</Type/Page/Parent %i 0 R/Contents %i 0 R/MediaBox[0 %i %i %i]/Resources%s%s%s%s>>]], parent, content, -math.ceil(to_bp(list.depth)), math.ceil(to_bp(list.width)), math.ceil(to_bp(list.height)), resources(pdfvariable.pageresources .. pdf.pageresources), annots, pdfvariable.pageattr, pdf.pageattributes))
|
||
node.flush_list(list)
|
||
tex.runlocal(reset_deadcycles)
|
||
end, 'force', 'protected')
|
||
|
||
local infodir = ""
|
||
local namesdir = ""
|
||
local catalogdir = ""
|
||
local catalog_openaction
|
||
local creationdate = os.date("D:%Y%m%d%H%M%S")
|
||
do
|
||
local time0 = os.time()
|
||
local tz = os.date('%z', time0)
|
||
if tz:match'^[+-]%d%d%d%d$' then
|
||
if tz:sub(1) == '0000' then
|
||
tz = 'Z'
|
||
else
|
||
tz = tz:sub(1,3) .. "'" .. tz:sub(4)
|
||
end
|
||
else
|
||
local utc_time = os.date('!*t')
|
||
utc_time.isdst = nil
|
||
local time1 = os.time(utc_time)
|
||
local offset = time1-time0
|
||
if offset == 0 then
|
||
tz = 'Z'
|
||
else
|
||
if offset > 0 then
|
||
tz = '-'
|
||
else
|
||
tz = '+'
|
||
offset = -offset
|
||
end
|
||
offset = offset // 60
|
||
tz = string.format("%s%02i'%02i", tz, offset//60, offset%60)
|
||
end
|
||
end
|
||
creationdate = creationdate .. tz
|
||
end
|
||
local function write_infodir(p)
|
||
local additional = ""
|
||
if not string.find(infodir, "/CreationDate", 1, false) then
|
||
additional = string.format("/CreationDate(%s)", creationdate)
|
||
end
|
||
if not string.find(infodir, "/ModDate", 1, false) then
|
||
additional = string.format("%s/ModDate(%s)", additional, creationdate)
|
||
end
|
||
if not string.find(infodir, "/Producer", 1, false) then
|
||
additional = string.format("%s/Producer(LuaMetaLaTeX)", additional)
|
||
end
|
||
if not string.find(infodir, "/Creator", 1, false) then
|
||
additional = string.format("%s/Creator(TeX)", additional)
|
||
end
|
||
if not string.find(infodir, "/PTEX.Fullbanner", 1, false) then
|
||
additional = string.format("%s/PTEX.Fullbanner(%s)", additional, status.enginestate.banner)
|
||
end
|
||
return p:indirect(nil, string.format("<<%s%s>>", infodir, additional))
|
||
end
|
||
|
||
local pdf_escape = require'luametalatex-pdf-escape'
|
||
local pdf_bytestring = pdf_escape.escape_bytes
|
||
local pdf_text = pdf_escape.escape_text
|
||
|
||
local function nodefont_newindex(t, k, v)
|
||
t.generation = t.next_generation
|
||
return rawset(t, k, v)
|
||
end
|
||
|
||
function callbacks.stop_run()
|
||
local user_callback = callbacks.stop_run
|
||
if user_callback then user_callback() end
|
||
|
||
if not pfile then
|
||
return
|
||
end
|
||
do
|
||
nodefont_meta.__newindex = nodefont_newindex -- Start recording generations
|
||
local need_new_run = true
|
||
while need_new_run do
|
||
need_new_run = nil
|
||
for fid, glyphs in pairs(usedglyphs) do
|
||
local next_gen = glyphs.next_generation
|
||
if next_gen and next_gen == glyphs.generation then
|
||
glyphs.next_generation = next_gen+1
|
||
need_new_run = true
|
||
local f = font.getfont(fid) or font.fonts[fid]
|
||
prepare_node_font(f, glyphs, pfile, fontdirs, usedglyphs) -- Might become fid, glyphs
|
||
end
|
||
end
|
||
end
|
||
end
|
||
for fid, id in pairs(fontdirs) do
|
||
local f = font.getfont(fid) or font.fonts[fid]
|
||
local sorted = {}
|
||
local used = usedglyphs[fid]
|
||
used.generation, used.next_generation = nil, nil
|
||
for k,v in pairs(usedglyphs[fid]) do
|
||
sorted[#sorted+1] = v
|
||
end
|
||
table.sort(sorted, function(a,b) return a[1] < b[1] end)
|
||
pfile:indirect(id, build_fontdir(pfile, f, sorted))
|
||
end
|
||
pfile.root = pfile:getobj()
|
||
pfile.version = string.format("%i.%i", pdfvariable.majorversion, pdfvariable.minorversion)
|
||
local destnames = {}
|
||
for k,obj in next, dests do
|
||
if pfile:written(obj) then
|
||
if type(k) == 'string' then
|
||
destnames[k] = obj .. ' 0 R'
|
||
end
|
||
else
|
||
texio.write_nl(string.format("Warning: Undefined destination %q", tostring(k)))
|
||
end
|
||
end
|
||
if next(destnames) then
|
||
namesdir = string.format("/Dests %i 0 R%s", nametree(destnames, pfile), namesdir or '')
|
||
end
|
||
if namesdir then
|
||
catalogdir = string.format("/Names<<%s>>%s", namesdir, catalogdir)
|
||
end
|
||
local pages = #pfile.pages
|
||
if outline then
|
||
catalogdir = string.format("/Outlines %i 0 R%s", outline:write(pfile), catalogdir)
|
||
end
|
||
if catalog_openaction then
|
||
catalogdir = catalogdir .. '/OpenAction' .. catalog_openaction
|
||
end
|
||
pfile:indirect(pfile.root, string.format([[<</Type/Catalog/Version/%s/Pages %i 0 R%s>>]], pfile.version, pfile:writepages(), catalogdir))
|
||
pfile.info = write_infodir(pfile)
|
||
local size = pfile:close()
|
||
texio.write_nl("term", "(see the transcript file for additional information)")
|
||
-- TODO: Additional logging, epecially targeting the log file
|
||
texio.write_nl("term and log", " node memory still in use:")
|
||
-- texio.write_nl("term and log", string.format(" %d words of node memory still in use:", status.nodestate.use))
|
||
local by_type, by_sub = {}, {}
|
||
for n, id, sub in node.traverse(node.usedlist()) do
|
||
if id == whatsit_id then
|
||
by_sub[sub] = (by_sub[sub] or 0) + 1
|
||
else
|
||
by_type[id] = (by_type[id] or 0) + 1
|
||
end
|
||
end
|
||
local nodestat = {}
|
||
local types = node.types()
|
||
for id, c in next, by_type do
|
||
nodestat[#nodestat + 1] = string.format("%d %s", c, types[id])
|
||
end
|
||
for id, c in next, by_sub do
|
||
nodestat[#nodestat + 1] = string.format("%d %s", c, whatsits[id])
|
||
end
|
||
texio.write_nl(" " .. table.concat(nodestat, ', '))
|
||
texio.write_nl(string.format("Output written on %s (%d pages, %d bytes).", pdfname, pages, size))
|
||
texio.write_nl(string.format("Transcript written on %s.\n", status.enginestate.logfilename))
|
||
end
|
||
callbacks.__freeze('stop_run', true)
|
||
|
||
lmlt.luacmd("pdfvariable", function()
|
||
for _, n in ipairs(pdf.variable_names) do
|
||
if scan_keyword(n) then
|
||
return token.put_next(token.create('pdfvariable ' .. n))
|
||
end
|
||
end
|
||
-- The following error message gobbles the next word as a side effect.
|
||
-- This is intentional to make error-recovery easier.
|
||
--[[
|
||
error(string.format("Unknown PDF variable %s", scan_word()))
|
||
]] -- Delay the error to ensure luatex85.sty compatibility
|
||
texio.write_nl(string.format("Unknown PDF variable %s", scan_word()))
|
||
tex.sprint"\\unexpanded{\\undefinedpdfvariable}"
|
||
end)
|
||
|
||
local lastobj = -1
|
||
local lastannot = -1
|
||
|
||
function pdf.newcolorstack(default, mode, page)
|
||
local idx = #colorstacks
|
||
colorstacks[idx + 1] = {
|
||
page = page,
|
||
mode = mode or "origin",
|
||
default = default,
|
||
page_stack = {default},
|
||
}
|
||
return idx
|
||
end
|
||
local function projected(m, x, y, w)
|
||
w = w or 1
|
||
return x*m[1] + y*m[3] + w*m[5], x*m[2] + y*m[4] + w*m[6]
|
||
end
|
||
|
||
local function get_action_attr(p, action, is_link)
|
||
local action_type = action.action_type
|
||
if action_type == 3 then return action.data end
|
||
local action_attr = is_link and "/Subtype/Link/A<<" or "<<"
|
||
local file = action.file
|
||
if file then
|
||
action_attr = action_attr .. '/F' .. pdf_bytestring(file)
|
||
local newwindow = action.new_window
|
||
if newwindow and newwindow > 0 then
|
||
action_attr = action_attr .. '/NewWindow ' .. (newwindow == 1 and 'true' or 'false')
|
||
end
|
||
end
|
||
if action_type == 2 then
|
||
error[[FIXME: Threads are currently unsupported]] -- TODO
|
||
elseif action_type == 0 then
|
||
local page = assert(action.page, 'Page action must contain a page')
|
||
local tokens = action.tokens
|
||
if file then
|
||
action_attr = string.format("%s/S/GoToR/D[%i %s]>>", action_attr, page-1, tokens)
|
||
else
|
||
local page_objnum = pfile:reservepage(page)
|
||
action_attr = string.format("%s/S/GoTo/D[%i 0 R %s]>>", action_attr, page_objnum, tokens)
|
||
end
|
||
elseif action_type == 1 then -- GoTo
|
||
local id = assert(action.id, 'GoTo action must contain an id')
|
||
if file then
|
||
assert(type(id) == "string")
|
||
action_attr = action_attr .. "/S/GoToR/D" .. pdf_bytestring(id) .. ">>"
|
||
else
|
||
local dest = dests[id]
|
||
if not dest then
|
||
dest = pfile:getobj()
|
||
dests[id] = dest
|
||
end
|
||
if type(id) == "string" then
|
||
action_attr = action_attr .. "/S/GoTo/D" .. pdf_bytestring(id) .. ">>"
|
||
else
|
||
action_attr = string.format("%s/S/GoTo/D %i 0 R>>", action_attr, dest)
|
||
end
|
||
end
|
||
end
|
||
return action_attr
|
||
end
|
||
local function write_link(p, link)
|
||
local quads = link.quads
|
||
local minX, maxX, minY, maxY = math.huge, -math.huge, math.huge, -math.huge
|
||
local attr = link.attr .. get_action_attr(p, link.action, true)
|
||
assert(#quads%8==0)
|
||
local quadStr = {}
|
||
for i=1,#quads,8 do
|
||
local x1, y1, x4, y4, x2, y2, x3, y3 = table.unpack(quads, i, i+7)
|
||
x1, y1, x2, y2, x3, y3, x4, y4 = to_bp(x1), to_bp(y1), to_bp(x2), to_bp(y2), to_bp(x3), to_bp(y3), to_bp(x4), to_bp(y4)
|
||
quadStr[i//8+1] = string.format("%f %f %f %f %f %f %f %f", x1, y1, x2, y2, x3, y3, x4, y4)
|
||
minX = math.min(minX, x1, x2, x3, x4)
|
||
minY = math.min(minY, y1, y2, y3, y4)
|
||
maxX = math.max(maxX, x1, x2, x3, x4)
|
||
maxY = math.max(maxY, y1, y2, y3, y4)
|
||
end
|
||
local boxes = strip_floats(string.format("/Rect[%f %f %f %f]/QuadPoints[%s]", minX-.2, minY-.2, maxX+.2, maxY+.2, table.concat(quadStr, ' ')))
|
||
pfile:indirect(link.objnum, string.format("<</Type/Annot%s%s>>", boxes, attr))
|
||
for i=1,#quads do quads[i] = nil end
|
||
link.objnum = nil
|
||
end
|
||
local function addlinkpoint(p, link, x, y, list, kind)
|
||
local quads = link.quads
|
||
local off = pdfvariable.linkmargin
|
||
x = kind == 'start' and x-off or x+off
|
||
if link.annots and link.annots ~= p.annots then -- We started on another page, let's finish that before starting the new page
|
||
write_link(p, link)
|
||
link.annots = nil
|
||
end
|
||
if not link.annots then
|
||
link.annots = p.annots -- Just a marker to indicate the page
|
||
link.objnum = link.objnum or p.file:getobj()
|
||
p.annots[#p.annots+1] = link.objnum .. " 0 R"
|
||
end
|
||
local m = p.matrix
|
||
local lx, ly = projected(m, x, y-off-(link.depth or node.direct.getdepth(list)))
|
||
local ux, uy = projected(m, x, y+off+(link.height or node.direct.getheight(list)))
|
||
local n = #quads
|
||
quads[n+1], quads[n+2], quads[n+3], quads[n+4] = lx, ly, ux, uy
|
||
if kind == 'final' or (link.force_separate and (n+4)%8 == 0) then
|
||
write_link(p, link)
|
||
link.annots = nil
|
||
end
|
||
end
|
||
local function linkcontext_set(linkcontext, p, x, y, list, level, kind)
|
||
if not p.is_page then return end
|
||
for _,l in ipairs(linkcontext) do if l.level == level then
|
||
addlinkpoint(p, l, x, y, list, level, kind)
|
||
end end
|
||
end
|
||
|
||
local start_link_whatsit = declare_whatsit('pdf_start_link', function(prop, p, n, x, y, outer, _, level)
|
||
if not prop then
|
||
tex.error('Invalid pdf_start_link whatsit', {"A pdf_start_link whatsit did not contain all necessary \z
|
||
parameters. Maybe your code hasn't been adapted to LuaMetaLaTeX yet?"})
|
||
return
|
||
end
|
||
if not p.is_page then
|
||
tex.error('pdf_start_link outside of page', {"PDF links are not allowed in Type3 charstrings or Form XObjects. \z
|
||
The link will be ignored"})
|
||
return
|
||
end
|
||
local links = p.linkcontext
|
||
if not links then
|
||
links = {set = linkcontext_set}
|
||
p.linkcontext = links
|
||
end
|
||
local link = {quads = {}, attr = prop.link_attr, action = prop.action, level = level, force_separate = false} -- force_separate should become an option
|
||
links[#links+1] = link
|
||
addlinkpoint(p, link, x, y, outer, 'start')
|
||
end)
|
||
local end_link_whatsit = declare_whatsit('pdf_end_link', function(prop, p, n, x, y, outer, _, level)
|
||
if not p.is_page then
|
||
tex.error('pdf_start_link outside of page', {"PDF links are not allowed in Type3 charstrings or Form XObjects. \z
|
||
The link will be ignored"})
|
||
return
|
||
end
|
||
local links = p.linkcontext
|
||
if not links then
|
||
tex.error('No link here to end', {"You asked me to end a link, but currently there is no link active. \z
|
||
Maybe you forgot to run \\pdfextension startlink first?"})
|
||
return
|
||
end
|
||
local link = links[#links]
|
||
if link.level ~= level then
|
||
tex.error('Inconsistent link level', {"You asked me to end a link, but the most recent link had been started at another level. \z
|
||
I will continue with the link for now."})
|
||
return
|
||
end
|
||
links[#links] = nil
|
||
if not links[1] then p.linkcontext = nil end
|
||
addlinkpoint(p, link, x, y, outer, 'final')
|
||
end)
|
||
|
||
local setmatrix_whatsit do
|
||
local numberpattern = (lpeg.P'-'^-1 * lpeg.R'09'^0 * ('.' * lpeg.R'09'^0)^-1)/tonumber
|
||
local matrixpattern = numberpattern * ' ' * numberpattern * ' ' * numberpattern * ' ' * numberpattern
|
||
setmatrix_whatsit = declare_whatsit('pdf_setmatrix', function(prop, p, n, x, y, outer)
|
||
if not prop then
|
||
tex.error('Invalid pdf_setmatrix whatsit', {"A pdf_setmatrix whatsit did not contain a matrix value. \z
|
||
Maybe your code hasn't been adapted to LuaMetaLaTeX yet?"})
|
||
return
|
||
end
|
||
local m = p.matrix
|
||
local a, b, c, d = matrixpattern:match(prop.data)
|
||
if not a then
|
||
tex.error('Invalid matrix', {"The matrix in this pdf_setmatrix whatsit does not have the expected structure and could not be parsed. \z
|
||
Did you provide enough parameters? The matrix needs exactly four decimal entries."})
|
||
return
|
||
end
|
||
local e, f = (1-a)*x-c*y, (1-d)*y-b*x -- Emulate that the origin is at x, y for this transformation
|
||
-- (We could also first translate by (-x, -y), then apply the matrix
|
||
-- and translate back, but this is more direct)
|
||
pdf.write_matrix(a, b, c, d, e, f, p)
|
||
a, b = projected(m, a, b, 0)
|
||
c, d = projected(m, c, d, 0)
|
||
e, f = projected(m, e, f, 1)
|
||
m[1], m[2], m[3], m[4], m[5], m[6] = a, b, c, d, e, f
|
||
end)
|
||
end
|
||
local save_whatsit = declare_whatsit('pdf_save', function(prop, p, n, x, y, outer)
|
||
pdf.write('page', 'q', x, y, p)
|
||
local lastmatrix = p.matrix
|
||
p.matrix = {[0] = lastmatrix, table.unpack(lastmatrix)}
|
||
end)
|
||
local restore_whatsit = declare_whatsit('pdf_restore', function(prop, p, n, x, y, outer)
|
||
-- TODO: Check x, y
|
||
pdf.write('page', 'Q', x, y, p)
|
||
p.matrix = p.matrix[0]
|
||
end)
|
||
local dest_whatsit = declare_whatsit('pdf_dest', function(prop, p, n, x, y)
|
||
if not prop then
|
||
tex.error('Invalid pdf_dest whatsit', {"A pdf_dest whatsit did not contain all necessary \z
|
||
parameters. Maybe your code hasn't been adapted to LuaMetaLaTeX yet?"})
|
||
end
|
||
assert(cur_page, "Destinations can not appear outside of a page")
|
||
local id = prop.dest_id
|
||
local dest_type = prop.dest_type
|
||
local off = pdfvariable.linkmargin
|
||
local data
|
||
if dest_type == "xyz" then
|
||
local x, y = projected(p.matrix, x, y)
|
||
local zoom = prop.xyz_zoom
|
||
if zoom then
|
||
data = string.format("[%i 0 R/XYZ %.5f %.5f %.3f]", cur_page, to_bp(x-off), to_bp(y+off), prop.zoom/1000)
|
||
else
|
||
data = string.format("[%i 0 R/XYZ %.5f %.5f null]", cur_page, to_bp(x-off), to_bp(y+off))
|
||
end
|
||
elseif dest_type == "fitr" then
|
||
local m = p.matrix
|
||
local llx, lly = projected(x, x - prop.depth)
|
||
local lrx, lry = projected(x+prop.width, x - prop.depth)
|
||
local ulx, uly = projected(x, x + prop.height)
|
||
local urx, ury = projected(x+prop.width, x + prop.height)
|
||
local left, lower, right, upper = math.min(llx, lrx, ulx, urx), math.min(lly, lry, uly, ury),
|
||
math.max(llx, lrx, ulx, urx), math.max(lly, lry, uly, ury)
|
||
data = string.format("[%i 0 R/FitR %.5f %.5f %.5f %.5f]", cur_page, to_bp(left-off), to_bp(lower-off), to_bp(right+off), to_bp(upper+off))
|
||
elseif dest_type == "fit" then
|
||
data = string.format("[%i 0 R/Fit]", cur_page)
|
||
elseif dest_type == "fith" then
|
||
local x, y = projected(p.matrix, x, y)
|
||
data = string.format("[%i 0 R/FitH %.5f]", cur_page, to_bp(y+off))
|
||
elseif dest_type == "fitv" then
|
||
local x, y = projected(p.matrix, x, y)
|
||
data = string.format("[%i 0 R/FitV %.5f]", cur_page, to_bp(x-off))
|
||
elseif dest_type == "fitb" then
|
||
data = string.format("[%i 0 R/FitB]", cur_page)
|
||
elseif dest_type == "fitbh" then
|
||
local x, y = projected(p.matrix, x, y)
|
||
data = string.format("[%i 0 R/FitBH %.5f]", cur_page, to_bp(y+off))
|
||
elseif dest_type == "fitbv" then
|
||
local x, y = projected(p.matrix, x, y)
|
||
data = string.format("[%i 0 R/FitBV %.5f]", cur_page, to_bp(x-off))
|
||
end
|
||
if pfile:written(dests[id]) then
|
||
texio.write_nl(string.format("Duplicate destination %q", id))
|
||
else
|
||
dests[id] = pfile:indirect(dests[id], strip_floats(data))
|
||
end
|
||
end)
|
||
local refobj_whatsit = declare_whatsit('pdf_refobj', function(prop, p, n, x, y)
|
||
if not prop then
|
||
tex.error('Invalid pdf_refobj whatsit', {"A pdf_refobj whatsit did not reference any object. \z
|
||
Maybe your code hasn't been adapted to LuaMetaLaTeX yet?"})
|
||
return
|
||
end
|
||
pfile:reference(prop.obj)
|
||
end)
|
||
local literal_whatsit = declare_whatsit('pdf_literal', function(prop, p, n, x, y)
|
||
if not prop then
|
||
tex.error('Invalid pdf_literal whatsit', "A pdf_literal whatsit did not contain a literal to be inserted. \z
|
||
Maybe your code hasn't been adapted to LuaMetaLaTeX yet?")
|
||
return
|
||
end
|
||
pdf.write(prop.mode, prop.data, x, y, p)
|
||
end)
|
||
local colorstack_whatsit = declare_whatsit('pdf_colorstack', function(prop, p, n, x, y)
|
||
if not prop then
|
||
tex.error('Invalid pdf_colorstack whatsit', {"A pdf_colorstack whatsit did not contain all necessary \z
|
||
parameters. Maybe your code hasn't been adapted to LuaMetaLaTeX yet?"})
|
||
return
|
||
end
|
||
local colorstack = prop.colorstack
|
||
local stack
|
||
if p.is_page then
|
||
stack = colorstack.page_stack
|
||
elseif colorstack.last_form == p.resources then
|
||
stack = colorstack.form_stack
|
||
else
|
||
colorstack.last_form = p.resources
|
||
stack = {prop.default}
|
||
colorstack.form_stack = stack
|
||
end
|
||
if prop.action == "push" then
|
||
stack[#stack+1] = prop.data
|
||
elseif prop.action == "pop" then
|
||
assert(#stack > 1)
|
||
stack[#stack] = nil
|
||
elseif prop.action == "set" then
|
||
stack[#stack] = prop.data
|
||
end
|
||
pdf.write(colorstack.mode, stack[#stack], x, y, p)
|
||
end)
|
||
local function write_colorstack()
|
||
local idx = scan_int()
|
||
local colorstack = colorstacks[idx + 1]
|
||
if not colorstack then
|
||
tex.error('Undefined colorstack', {"The requested colorstack is not initialized. \z
|
||
This probably means that you forgot to run \\pdffeedback colorstackinit or \z
|
||
that you specified the wrong index. I will continue with colorstack 0."})
|
||
colorstack = colorstacks[1]
|
||
end
|
||
local action = scan_keyword'pop' and 'pop'
|
||
or scan_keyword'set' and 'set'
|
||
or scan_keyword'current' and 'current'
|
||
or scan_keyword'push' and 'push'
|
||
if not action then
|
||
tex.error('Missing action specifier for colorstack', {
|
||
"I don't know what you want to do with this colorstack. I would have expected pop/set/current or push here. \z
|
||
I will ignore this command."})
|
||
return
|
||
end
|
||
local text
|
||
if action == "push" or "set" then
|
||
text = scan_string()
|
||
-- text = token.serialize(token.scan_tokenlist()) -- Attention! This should never be executed in an expand-only context
|
||
end
|
||
local whatsit = node.new(whatsit_id, colorstack_whatsit)
|
||
node.setproperty(whatsit, {
|
||
colorstack = colorstack,
|
||
action = action,
|
||
data = text,
|
||
})
|
||
node.write(whatsit)
|
||
end
|
||
local function scan_action()
|
||
local action_type
|
||
|
||
if scan_keyword'user' then
|
||
return {action_type = 3, data = scan_string()}
|
||
elseif scan_keyword'thread' then
|
||
error[[FIXME: Unsupported]] -- TODO
|
||
elseif scan_keyword'goto' then
|
||
action_type = 1
|
||
else
|
||
error[[Unsupported action]]
|
||
end
|
||
local action = {
|
||
action_type = action_type,
|
||
file = scan_keyword'file' and scan_string(),
|
||
}
|
||
if scan_keyword'page' then
|
||
assert(action_type == 1)
|
||
action_type = 0
|
||
action.action_type = 0
|
||
local page = scan_int()
|
||
if page <= 0 then
|
||
error[[page must be positive in action specification]]
|
||
end
|
||
action.page = page
|
||
action.tokens = scan_string()
|
||
elseif scan_keyword'num' then
|
||
if action.file and action_type == 1 then
|
||
error[[num style GoTo actions must be internal]]
|
||
end
|
||
action.id = scan_int()
|
||
if action.id <= 0 then
|
||
error[[id must be positive]]
|
||
end
|
||
elseif scan_keyword'name' then
|
||
action.id = scan_string()
|
||
else
|
||
error[[Unsupported id type]]
|
||
end
|
||
action.new_window = scan_keyword'newwindow' and 1
|
||
or scan_keyword'nonewwindow' and 2
|
||
if action.new_window and not action.file then
|
||
error[[newwindow is only supported for external files]]
|
||
end
|
||
return action
|
||
end
|
||
local function scan_literal_mode()
|
||
return scan_keyword"direct" and "direct"
|
||
or scan_keyword"page" and "page"
|
||
or scan_keyword"text" and "text"
|
||
or scan_keyword"direct" and "direct"
|
||
or scan_keyword"raw" and "raw"
|
||
or "origin"
|
||
end
|
||
local function maybe_gobble_cmd(cmd)
|
||
local t = scan_token()
|
||
if t.command ~= cmd then
|
||
token.put_next(t)
|
||
end
|
||
end
|
||
lmlt.luacmd("pdffeedback", function()
|
||
if scan_keyword"colorstackinit" then
|
||
local page = scan_keyword'page'
|
||
or (scan_keyword'nopage' and false) -- If you want to pass "page" as mode
|
||
local mode = scan_literal_mode()
|
||
local default = scan_string()
|
||
tex.sprint(tostring(pdf.newcolorstack(default, mode, page)))
|
||
elseif scan_keyword"creationdate" then
|
||
tex.sprint(creationdate)
|
||
elseif scan_keyword"lastannot" then
|
||
tex.sprint(tostring(lastannot))
|
||
elseif scan_keyword"lastobj" then
|
||
tex.sprint(tostring(lastobj))
|
||
else
|
||
-- The following error message gobbles the next word as a side effect.
|
||
-- This is intentional to make error-recovery easier.
|
||
error(string.format("Unknown PDF feedback %s", scan_word()))
|
||
end
|
||
end)
|
||
lmlt.luacmd("pdfextension", function(_, immediate)
|
||
if immediate == "value" then return end
|
||
if immediate and immediate & ~immediate_flag ~= 0 then
|
||
immediate = immediate & immediate_flag
|
||
tex.error("Unexpected prefix", "You used \\pdfextension with a prefix that doesn't belong there. I will ignore it for now.")
|
||
end
|
||
if scan_keyword"colorstack" then
|
||
write_colorstack()
|
||
elseif scan_keyword"literal" then
|
||
local mode = scan_literal_mode()
|
||
local literal = scan_string()
|
||
local whatsit = node.new(whatsit_id, literal_whatsit)
|
||
node.setproperty(whatsit, {
|
||
mode = mode,
|
||
data = literal,
|
||
})
|
||
node.write(whatsit)
|
||
elseif scan_keyword"startlink" then
|
||
local pfile = get_pfile()
|
||
local whatsit = node.new(whatsit_id, start_link_whatsit)
|
||
local attr = scan_keyword'attr' and scan_string() or ''
|
||
local action = scan_action()
|
||
local objnum = pfile:getobj()
|
||
lastannot = num
|
||
node.setproperty(whatsit, {
|
||
link_attr = attr,
|
||
action = action,
|
||
objnum = objnum,
|
||
})
|
||
node.write(whatsit)
|
||
elseif scan_keyword"endlink" then
|
||
local whatsit = node.new(whatsit_id, end_link_whatsit)
|
||
node.write(whatsit)
|
||
elseif scan_keyword"save" then
|
||
local whatsit = node.new(whatsit_id, save_whatsit)
|
||
node.write(whatsit)
|
||
elseif scan_keyword"setmatrix" then
|
||
local matrix = scan_string()
|
||
local whatsit = node.new(whatsit_id, setmatrix_whatsit)
|
||
node.setproperty(whatsit, {
|
||
data = matrix,
|
||
})
|
||
node.write(whatsit)
|
||
elseif scan_keyword"restore" then
|
||
local whatsit = node.new(whatsit_id, restore_whatsit)
|
||
node.write(whatsit)
|
||
elseif scan_keyword"info" then
|
||
infodir = infodir .. scan_string()
|
||
elseif scan_keyword"catalog" then
|
||
catalogdir = catalogdir .. ' ' .. scan_string()
|
||
if scan_keyword'openaction' then
|
||
if catalog_openaction then
|
||
tex.error("Duplicate openaction", {"Only one use of \\pdfextension catalog is allowed to \z
|
||
have an openaction."})
|
||
else
|
||
local action = scan_action()
|
||
catalog_openaction = get_action_attr(get_pfile(), action)
|
||
end
|
||
end
|
||
elseif scan_keyword"names" then
|
||
namesdir = namesdir .. ' ' .. scan_string()
|
||
elseif scan_keyword"obj" then
|
||
local pfile = get_pfile()
|
||
if scan_keyword"reserveobjnum" then
|
||
lastobj = pfile:getobj()
|
||
else
|
||
local num = scan_keyword'useobjnum' and scan_int() or pfile:getobj()
|
||
lastobj = num
|
||
local attr = scan_keyword'stream' and (scan_keyword'attr' and scan_string() or '')
|
||
local isfile = scan_keyword'file'
|
||
local content = scan_string()
|
||
if immediate == immediate_flag then
|
||
if attr then
|
||
pfile:stream(num, attr, content, isfile)
|
||
else
|
||
pfile:indirect(num, content, isfile)
|
||
end
|
||
else
|
||
if attr then
|
||
pfile:delayedstream(num, attr, content, isfile)
|
||
else
|
||
pfile:delayed(num, attr, content, isfile)
|
||
end
|
||
end
|
||
end
|
||
elseif scan_keyword"refobj" then
|
||
local num = scan_int()
|
||
local whatsit = node.new(whatsit_id, refobj_whatsit)
|
||
node.setproperty(whatsit, {
|
||
obj = num,
|
||
})
|
||
node.write(whatsit)
|
||
elseif scan_keyword"outline" then
|
||
local pfile = get_pfile()
|
||
local attr = scan_keyword'attr' and scan_string() or ''
|
||
local action
|
||
if scan_keyword"useobjnum" then
|
||
action = scan_int()
|
||
else
|
||
local actionobj = scan_action()
|
||
action = pfile:indirect(nil, get_action_attr(pfile, actionobj))
|
||
end
|
||
local outline = get_outline()
|
||
if scan_keyword'level' then
|
||
local level = scan_int()
|
||
local open = scan_keyword'open'
|
||
local title = scan_string()
|
||
outline:add(pdf_text(title), action, level, open, attr)
|
||
else
|
||
local count = scan_keyword'count' and scan_int() or 0
|
||
local title = scan_string()
|
||
outline:add_legacy(pdf_text(title), action, count, attr)
|
||
end
|
||
elseif scan_keyword"dest" then
|
||
local id
|
||
if scan_keyword'num' then
|
||
id = scan_int()
|
||
if id <= 0 then
|
||
error[[id must be positive]]
|
||
end
|
||
elseif scan_keyword'name' then
|
||
id = scan_string()
|
||
else
|
||
error[[Unsupported id type]]
|
||
end
|
||
local whatsit = node.new(whatsit_id, dest_whatsit)
|
||
local prop = {
|
||
dest_id = id,
|
||
}
|
||
node.setproperty(whatsit, prop)
|
||
if scan_keyword'xyz' then
|
||
prop.dest_type = 'xyz'
|
||
prop.xyz_zoom = scan_keyword'zoom' and scan_int()
|
||
maybe_gobble_cmd(spacer_cmd)
|
||
elseif scan_keyword'fitr' then
|
||
prop.dest_type = 'fitr'
|
||
maybe_gobble_cmd(spacer_cmd)
|
||
while true do
|
||
if scan_keyword'width' then
|
||
prop.width = scan_dimen()
|
||
elseif scan_keyword'height' then
|
||
prop.height = scan_dimen()
|
||
elseif scan_keyword'depth' then
|
||
prop.depth = scan_dimen()
|
||
else
|
||
break
|
||
end
|
||
end
|
||
elseif scan_keyword'fitbh' then
|
||
prop.dest_type = 'fitbh'
|
||
maybe_gobble_cmd(spacer_cmd)
|
||
elseif scan_keyword'fitbv' then
|
||
prop.dest_type = 'fitbv'
|
||
maybe_gobble_cmd(spacer_cmd)
|
||
elseif scan_keyword'fitb' then
|
||
prop.dest_type = 'fitb'
|
||
maybe_gobble_cmd(spacer_cmd)
|
||
elseif scan_keyword'fith' then
|
||
prop.dest_type = 'fith'
|
||
maybe_gobble_cmd(spacer_cmd)
|
||
elseif scan_keyword'fitv' then
|
||
prop.dest_type = 'fitv'
|
||
maybe_gobble_cmd(spacer_cmd)
|
||
elseif scan_keyword'fit' then
|
||
prop.dest_type = 'fit'
|
||
maybe_gobble_cmd(spacer_cmd)
|
||
else
|
||
error[[Unsupported dest type]]
|
||
end
|
||
node.write(whatsit)
|
||
elseif scan_keyword'mapfile' then
|
||
fontmap.mapfile(scan_string())
|
||
elseif scan_keyword'mapline' then
|
||
fontmap.mapline(scan_string())
|
||
else
|
||
-- The following error message gobbles the next word as a side effect.
|
||
-- This is intentional to make error-recovery easier.
|
||
error(string.format("Unknown PDF extension %s", scan_word()))
|
||
end
|
||
end, "value")
|
||
local imglib = require'luametalatex-pdf-image'
|
||
local imglib_node = imglib.node
|
||
local imglib_write = imglib.write
|
||
local imglib_immediatewrite = imglib.immediatewrite
|
||
img = {
|
||
new = imglib.new,
|
||
scan = imglib.scan,
|
||
node = function(img, pfile) return imglib_node(pfile or get_pfile(), img) end,
|
||
write = function(img, pfile) return imglib_write(pfile or get_pfile(), img) end,
|
||
immediatewrite = function(img, pfile) return imglib_immediatewrite(pfile or get_pfile(), img) end,
|
||
}
|
||
|
||
local lastimage = -1
|
||
local lastimagepages = -1
|
||
|
||
-- These are very minimal right now but LaTeX isn't using the scaling etc. stuff anyway.
|
||
lmlt.luacmd("saveimageresource", function(_, immediate)
|
||
if immediate == "value" then return end
|
||
if immediate and immediate & ~immediate_flag ~= 0 then
|
||
immediate = immediate & immediate_flag
|
||
tex.error("Unexpected prefix", "You used \\saveimageresource with a prefix that doesn't belong there. I will ignore it for now.")
|
||
end
|
||
local attr = scan_keyword'attr' and scan_string() or nil
|
||
local page = scan_keyword'page' and scan_int() or nil
|
||
local userpassword = scan_keyword'userpassword' and scan_string() or nil
|
||
local ownerpassword = scan_keyword'ownerpassword' and scan_string() or nil
|
||
-- local colorspace = scan_keyword'colorspace' and scan_int() or nil -- Doesn't make sense for PDF
|
||
local pagebox = scan_keyword'mediabox' and 'media'
|
||
or scan_keyword'cropbox' and 'crop'
|
||
or scan_keyword'bleedbox' and 'bleed'
|
||
or scan_keyword'trimbox' and 'trim'
|
||
or scan_keyword'artbox' and 'art'
|
||
or nil
|
||
local filename = scan_string()
|
||
local img = imglib.scan{
|
||
attr = attr,
|
||
page = page,
|
||
userpassword = userpassword,
|
||
ownerpassword = ownerpassword,
|
||
pagebox = pagebox,
|
||
filename = filename,
|
||
}
|
||
local pfile = get_pfile()
|
||
lastimage = imglib.get_num(pfile, img)
|
||
lastimagepages = img.pages or 1
|
||
if immediate == immediate_flag then
|
||
imglib_immediatewrite(pfile, img)
|
||
end
|
||
end, "value")
|
||
|
||
lmlt.luacmd("useimageresource", function()
|
||
local pfile = get_pfile()
|
||
local img = assert(imglib.from_num(scan_int()))
|
||
imglib_write(pfile, img)
|
||
end, "protected")
|
||
|
||
local integer_code = lmlt.value.integer
|
||
|
||
lmlt.luacmd("lastsavedimageresourceindex", function()
|
||
return integer_code, lastimage
|
||
end, "value")
|
||
|
||
lmlt.luacmd("lastsavedimageresourcepages", function()
|
||
return integer_code, lastimagepages
|
||
end, "value")
|
||
|
||
local savedbox = require'luametalatex-pdf-savedbox'
|
||
local savedbox_save = savedbox.save
|
||
function tex.saveboxresource(n, attr, resources, immediate, type, margin, pfile)
|
||
if not node.type(n) then
|
||
n = tonumber(n)
|
||
if not n then
|
||
error[[Invalid argument to saveboxresource]]
|
||
end
|
||
token.put_next(token.create'box', token.new(n, token.command_id'char_given'))
|
||
n = scan_box()
|
||
end
|
||
margin = margin or pdfvariable.xformmargin
|
||
return savedbox_save(pfile or get_pfile(), n, attr, resources, immediate, type, margin, fontdirs, usedglyphs)
|
||
end
|
||
tex.useboxresource = savedbox.use
|
||
|
||
local lastbox = -1
|
||
|
||
lmlt.luacmd("saveboxresource", function(_, immediate)
|
||
if immediate == "value" then return end
|
||
if immediate and immediate & ~immediate_flag ~= 0 then
|
||
immediate = immediate & immediate_flag
|
||
tex.error("Unexpected prefix", "You used \\saveboxresource with a prefix that doesn't belong there. I will ignore it for now.")
|
||
end
|
||
local type
|
||
if scan_keyword'type' then
|
||
texio.write_nl('XForm type attribute ignored')
|
||
type = scan_int()
|
||
end
|
||
local attr = scan_keyword'attr' and scan_string() or nil
|
||
local resources = scan_keyword'resources' and scan_string() or nil
|
||
local margin = scan_keyword'margin' and scan_dimen() or nil
|
||
local box = scan_int()
|
||
|
||
local index = tex.saveboxresource(box, attr, resources, immediate == immediate_flag, type, margin)
|
||
lastbox = index
|
||
end, "value")
|
||
|
||
lmlt.luacmd("useboxresource", function()
|
||
local width, height, depth
|
||
while true do
|
||
if scan_keyword'width' then
|
||
width = scan_dimen()
|
||
elseif scan_keyword'height' then
|
||
height = scan_dimen()
|
||
elseif scan_keyword'depth' then
|
||
depth = scan_dimen()
|
||
else
|
||
break
|
||
end
|
||
end
|
||
local index = scan_int()
|
||
node.write((tex.useboxresource(index, width, height, depth)))
|
||
end, "protected")
|
||
|
||
lmlt.luacmd("lastsavedboxresourceindex", function()
|
||
return integer_code, lastbox
|
||
end, "value")
|
||
|
||
local saved_pos_x, saved_pos_y = -1, -1
|
||
local save_pos_whatsit = declare_whatsit('save_pos', function(_, _, _, x, y)
|
||
saved_pos_x, saved_pos_y = assert(math.tointeger(x)), assert(math.tointeger(y))
|
||
end)
|
||
lmlt.luacmd("savepos", function() -- \savepos
|
||
return node.direct.write(node.direct.new(whatsit_id, save_pos_whatsit))
|
||
end, "protected")
|
||
|
||
lmlt.luacmd("lastxpos", function()
|
||
return integer_code, (saved_pos_x+.5)//1
|
||
end, "value")
|
||
|
||
lmlt.luacmd("lastypos", function()
|
||
return integer_code, (saved_pos_y+.5)//1
|
||
end, "value")
|
||
|
||
local function pdf_register_funcs(name)
|
||
pdf[name] = ""
|
||
pdf['get' .. name] = function() return pdf[name] end
|
||
pdf['set' .. name] = function(s) pdf[name] = assert(s) end
|
||
end
|
||
|
||
pdf_register_funcs'pageattributes'
|
||
pdf_register_funcs'pageresources'
|
||
pdf_register_funcs'pagesattributes'
|