diff options
author | Philipp Gesang <phg42.2a@gmail.com> | 2013-08-11 12:18:04 +0200 |
---|---|---|
committer | Philipp Gesang <phg42.2a@gmail.com> | 2013-08-11 12:18:04 +0200 |
commit | 168ad92adb99764cf36e592cfdbd541c780a05b5 (patch) | |
tree | 0558cd55ee7369ff4a39ce348fb4507e201ef998 | |
parent | e20a16e95b45dde2dd0b65c6bda460c5c2fe0164 (diff) | |
download | luaotfload-168ad92adb99764cf36e592cfdbd541c780a05b5.tar.gz |
[type1] improve PFB reader so it calls the AFM reader where necessary
-rw-r--r-- | luaotfload-loaders.lua | 70 |
1 files changed, 58 insertions, 12 deletions
diff --git a/luaotfload-loaders.lua b/luaotfload-loaders.lua index 15a97e0..58b06aa 100644 --- a/luaotfload-loaders.lua +++ b/luaotfload-loaders.lua @@ -6,8 +6,19 @@ if not modules then modules = { } end modules ["loaders"] = { license = "see context related readme files" } -local fonts = fonts -local readers = fonts.readers +local fonts = fonts +local readers = fonts.readers +local handlers = fonts.handlers +local formats = fonts.formats + +local lfsisfile = lfs.isfile +local fileaddsuffix = file.addsuffix +local filebasename = file.basename +local stringsub = string.sub + +local lpeg = require "lpeg" +local lpegmatch = lpeg.match +local P, S, Cp = lpeg.P, lpeg.S, lpeg.Cp resolvers.openbinfile = function (filename) if filename and filename ~= "" then @@ -65,21 +76,56 @@ require "luaotfload-font-afk.lua" --[[ </EXPERIMENTAL> ]] -local pfb_reader = function (specification) - return readers.opentype(specification,"pfb","type1") -end - local pfa_reader = function (specification) return readers.opentype(specification,"pfa","type1") end -fonts.formats.pfa = "type1" -fonts.readers.pfa = pfa_reader -fonts.handlers.pfa = { } +--[[doc-- + + The PFB reader checks whether there is a corresponding AFM file and + hands the spec over to the AFM loader if appropriate. Context uses + string.gsub() to accomplish this but that can cause collateral + damage. + +--doc]]-- + +local p_pfb = P"." * S"pP" * S"fF" * S"bB" +--- we have to be careful here so we don’t affect harmless +--- substrings + * (P"(" --- subfont + + P":" --- feature list + + P(-1)) --- end of string +local no_pfb = 1 - p_pfb +local p_pfb_file = no_pfb^1 * Cp() * p_pfb * Cp() --- first occurrence + +local pfb_reader = function (specification, method) + + local afmfile = fileaddsuffix (specification.name, "afm") + + if lfsisfile (afmfile) then + --- switch to afm reader + logs.names_report ("log", 0, "type1", + "Found corresponding AFM file %s, using that.", + filebasename (afmfile)) + local oldspec = specification.specification + local before, after = lpegmatch (p_pfb_file, oldspec) + specification.specification = stringsub (oldspec, 1, before) + .. "afm" + .. stringsub (oldspec, after - 1) + specification.forced = "afm" + return readers.afm (specification, method) + end + + --- else read pfb via opentype mechanism + return readers.opentype (specification, "pfb", "type1") +end +formats.pfa = "type1" +readers.pfa = pfa_reader +handlers.pfa = { } -fonts.formats.pfb = "type1" -fonts.readers.pfb = pfb_reader -fonts.handlers.pfb = { } --- empty, as with tfm +formats.pfb = "type1" +readers.pfb = pfb_reader +handlers.pfb = { } --- empty, as with tfm -- vim:tw=71:sw=2:ts=2:expandtab |