114 lines
3.3 KiB
Lua
114 lines
3.3 KiB
Lua
|
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
|