luametalatex/luametalatex-pdf-font-cmap3...

63 lines
1.6 KiB
Lua

local template = [[%%!PS-Adobe-3.0 Resource-CMap
%%%%DocumentNeededResources: ProcSet (CIDInit)
%%%%IncludeResource: ProcSet (CIDInit)
%%%%BeginResource: CMap (TeX-%s-0)
%%%%Title: (TeX-%s-0 TeX %s 0)
%%%%Version: 1.000
%%%%EndComments
/CIDInit /ProcSet findresource begin
12 dict begin
begincmap
/CIDSystemInfo
<< /Registry (TeX)
/Ordering (%s)
/Supplement 0
>> def
/CMapName /TeX-%s-0 def
/CMapType 2 def
3 begincodespacerange
<00> <7F>
<8000> <FEFF>
<FF0000> <FF807F>
endcodespacerange
]]
local separator = [[endbfrange
%i beginbfchar
]]
local betweenchars = [[endbfchar
%i beginbfchar
]]
local trailer = [[endbfchar
endcmap
CMapName currentdict /CMap defineresource pop
end
end
%%EndResource
%%EOF
]]
return function(f, usedcids)
local name = 'XXXstuffXXX-' .. f.name
local text = template:format(name, name, name, name, name)
text = text .. "0 beginbfrange\n"
local count, chars = 0, ""
local next_head = separator
for _, cid in ipairs(usedcids) do
if cid[3] then
count = count + 1
if cid[1] < 0x80 then
chars = chars .. (type(cid[3]) == 'string' and "<%02X> <%s>\n" or "<%02X> <%04X>\n"):format(cid[1], cid[3])
elseif cid[1] < 0x7F80 then
chars = chars .. (type(cid[3]) == 'string' and "<%04X> <%s>\n" or "<%04X> <%04X>\n"):format(cid[1]+0x7F80, cid[3])
else
chars = chars .. (type(cid[3]) == 'string' and "<%06X> <%s>\n" or "<%06X> <%04X>\n"):format(cid[1]-0x7F80, cid[3])
end
if count == 100 then
text = text .. next_head:format(100) .. chars
next_head = betweenchars
end
end
end
text = text .. next_head:format(count) .. chars .. trailer
return text
end