luametalatex/luametalatex-pdf-font-cmap1...

55 lines
1.2 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
1 begincodespacerange
<00> <FF>
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)
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 u, char in pairs(f.characters) do
if char.used and char.tounicode then
count = count + 1
chars = chars .. ("<%02X> <%s>\n"):format(u, char.tounicode)
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