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 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' 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