font.read_tfm = require'luametalatex-font-tfm' local read_vf = require'luametalatex-font-vf' font.read_vf = read_vf local fontmap = require'luametalatex-pdf-font-map'.fontmap local callback_find = callback.find local old_font_define = font.define local old_addcharacters = font.addcharacters require'luametalatex-pdf-font-map'.mapfile(kpse.find_file('pdftex.map', 'map', true)) local all_fonts = {} font.fonts = all_fonts function font.getfont(id) return all_fonts[id] end local fontextensions = { ttf = {"truetype", "truetype fonts",}, otf = {"opentype", "opentype fonts",}, pfb = {"type1", "type1 fonts",}, } fontextensions.cff = fontextensions.otf local fontformats = { fontextensions.pfb, fontextensions.otf, fontextensions.ttf, } local special_parser do local l = lpeg or require'lpeg' local space = l.S' '^0 local name = (1-l.P' ')^1 local reencode = name * space * 'ReEncodeFont' local digit = l.R'09' local number = digit^1 * ('.' * digit^0) + '.' * digit^1/tonumber local milli_stmt = number * space * ('SlantFont' * l.Cc'slant' + 'ExtendFont' * l.Cc'extend') / function(n, k) return k, (n*1000 + .5)//1 end special_parser = l.Cf(l.Carg(1) * (space * (reencode + milli_stmt))^0 * space * -1, rawset) end function font.define(f) if (f.type or "unknown") == "unknown" then local vf = read_vf(f.name, f.size) if vf then f.type = 'virtual' f.fonts = vf.fonts local realchars = f.characters for cp, char in next, vf.characters do assert(realchars[cp]).commands = char.commands end else f.type = 'real' end end local format = f.format or "unknown" local encodingbytes = f.encodingbytes or (f.format:sub(5) == "type" and 2 or 1) f.encodingbytes = encodingbytes if encodingbytes == 1 and f.type ~= 'virtual' and f.format ~= 'type3node' then -- map file lookup local entry = fontmap[f.name] if entry then local filename = entry[3] local format = filename and filename:sub(-4, -4) == '.' and fontextensions[filename:sub(-3, -1)] if format then f.format = format[1] f.filename = kpse.find_file(filename, format[2]) local encoding = entry[4] if encoding then f.encoding = kpse.find_file(encoding, 'enc files') end if entry[5] then assert(special_parser:match(entry[5], 1, f)) end else local done = false for _, format in ipairs(fontformats) do local filename = kpse.find_file(filename, format[2]) if filename then f.filename = filename f.format = format[1] local encoding = entry[4] if encoding then f.encoding = kpse.find_file(encoding, 'enc files') end if entry[5] then assert(special_parser:match(entry[5], 1, f)) end done = true break end end if not done then print('!', 'type3', require'inspect'(entry)) f.format = "type3" end end else f.format = "type3" end end local id = old_font_define(f) all_fonts[id] = f if f.fonts then for i, f in next, f.fonts do if not f.id then f.id = assert(callback_find'define_font'(f.name, f.size or -1000)) elseif f.id == 0 then f.id = id end end end return id end function font.addcharacters(fid, newdir) old_addcharacters(fid, newdir) -- The easy part, the remaining stuff gets crazy local fontdir = assert(all_fonts[fid], 'addcharacters expects an existing font') local fonts_map if newdir.fonts then -- FIXME: Handle default fonts table if fontdir.fonts then fonts_map = {} for i,f in next, newdir.fonts do if not f.id then f.id = assert(callback_find'define_font'(f.name, f.size or -1000)) elseif f.id == 0 then f.id = fid end for j,ff in next, fontdir.fonts do if ff.id == f.id then fonts_map[i] = j goto FONT_MAPPING_SET -- A typical for ... do ... else ... end implemented using goto. end end -- NOT FOUND, so add it local new_f = #fontdir.fonts + 1 fontdir.fonts[new_f] = f fonts_map[i] = f ::FONT_MAPPING_SET:: end else fontdir.fonts = newdir.fonts end end for cp, glyph in next, newdir do local existing = fontdir[cp] if existing ~= glyph then if existing then -- texio.write_nl'Overwriting existing character. Here be dragons' end end if glyph.commands then local font_seen for _, cmd in ipairs(glyph.commands) do if cmd[1] == 'font' then font_seen = true cmd[2] = fonts_map[cmd[2]] elseif cmd[1] == 'slot' then font_seen = true cmd[2] = fonts_map[cmd[2]] elseif not font_seen and cmd[1] == 'char' then font_seen = true cmd[1], cmd[2], cmd[3] = 'slot', fonts_map[1], cmd[2] end end end end end