1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
if not modules then modules = { } end modules ["loaders"] = {
version = "2.4",
comment = "companion to luaotfload.lua",
author = "Hans Hagen, Khaled Hosny, Elie Roux, Philipp Gesang",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
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 stringlower = string.lower
local stringupper = string.upper
local findbinfile = resolvers.findbinfile
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
local f = io.open(filename,"rb")
if f then
--logs.show_load(filename)
local s = f:read("*a") -- io.readall(f) is faster but we never have large files here
if checkgarbage then
checkgarbage(#s)
end
f:close()
if s then
return true, s, #s
end
end
end
return loaders.notfound()
end
resolvers.loadbinfile = function (filename, filetype)
local fname = kpse.find_file (filename, filetype)
if fname and fname ~= "" then
return resolvers.openbinfile(fname)
else
return resolvers.loaders.notfound()
end
end
--- this function is required because AFM precedes TFM in the reader
--- chain (see definers.loadfont() in font-def.lua
local check_tfm = function (specification, fullname)
local foundname = findbinfile (fullname, "tfm") or ""
if foundname == "" then
foundname = findbinfile (fullname, "ofm") or ""
end
if foundname == "" then
foundname = fonts.names.getfilename (fullname,"tfm") or ""
end
if foundname ~= "" then
specification.filename = foundname
specification.format = "ofm"
return font.read_tfm (specification.filename,
specification.size)
end
end
readers.check_tfm = check_tfm
--[[ <EXPERIMENTAL> ]]
--[[doc--
Here we load extra AFM libraries from Context.
In fact, part of the AFM support is contained in font-ext.lua, for
which the font loader has a replacement: luatex-fonts-ext.lua.
However, this is only a stripped down version with everything AFM
removed. For example, it lacks definitions of several AFM features
like italic correction, protrusion, expansion and so on. In order to
achieve full-fledged AFM support we will either have to implement our
own version of these or consult with Hans whether he would consider
including the AFM code with the font loader.
For the time being we stick with two AFM-specific libraries:
font-afm.lua and font-afk.lua. When combined, these already supply us
with basic features like kerning and ligatures. The rest can be added
in due time.
--doc]]--
require "luaotfload-font-afm.lua"
require "luaotfload-font-afk.lua"
--[[ </EXPERIMENTAL> ]]
--[[doc--
The PFB/PFA 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 mk_type1_reader = function (format)
format = stringlower (format)
local first = stringsub (format, 1, 1)
local second = stringsub (format, 2, 2)
local third = stringsub (format, 3, 3)
local p_format = P"."
* (P(first) + P(stringupper (first)))
* (P(second) + P(stringupper (second)))
* (P(third) + P(stringupper (third)))
--- 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_format = 1 - p_format
local p_format_file = no_format^1 * Cp() * p_format * Cp()
local 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_format_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, format, "type1")
end
return reader
end
formats.pfa = "type1"
readers.pfa = mk_type1_reader "pfa"
handlers.pfa = { }
formats.pfb = "type1"
readers.pfb = mk_type1_reader "pfb"
handlers.pfb = { } --- empty, as with tfm
-- vim:tw=71:sw=2:ts=2:expandtab
|
