Add missing file

luametalatex-font-resolve.lua

@@ -0,0 +1,113 @@
+local read_tfm = require'luametalatex-font-tfm'
+local read_vf = require'luametalatex-font-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'/0
+  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
+              print(entry[5])
+          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
+              print(entry[5])
+              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