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
169
170
171
172
173
174
175
|
--
-- This is file `luaotfload.lua',
-- generated with the docstrip utility.
--
-- The original source files were:
--
-- luaotfload.dtx (with options: `lua')
-- This is a generated file.
--
-- Copyright (C) 2009-2010 by by Elie Roux <elie.roux@telecom-bretagne.eu>
-- and Khaled Hosny <khaledhosny@eglug.org>
--
-- This work is under the CC0 license.
--
-- This work consists of the main source file luaotfload.dtx
-- and the derived files
-- luaotfload.sty, luaotfload.lua
--
module('luaotfload', package.seeall)
luaotfload.module = {
name = "luaotfload",
version = 1.13,
date = "2010/06/24",
description = "ConTeXt font loading system.",
author = "Elie Roux & Hans Hagen",
copyright = "Elie Roux",
license = "CC0"
}
luatexbase.provides_module(luaotfload.module)
local format = string.format
local function log(...)
luatexbase.module_log ('luaotfload', format(...))
end
local function error(...)
luatexbase.module_error ('luaotfload', format(...))
end
local function warning(...)
luatexbase.module_warning('luaotfload', format(...))
end
local luatex_version = 60
if tex.luatexversion < luatex_version then
warning('LuaTeX v%.2f is old, v%.2f is recommended.',
tex.luatexversion/100,
luatex_version /100)
end
function luaotfload.loadmodule(name)
local tofind = 'otfl-'..name
local found = kpse.find_file(tofind,"tex")
if found then
log('loading file %s.', found)
dofile(found)
else
error('file %s not found.', tofind)
end
end
luaotfload.loadmodule('luat-dum.lua') -- not used in context at all
luaotfload.loadmodule('luat-ovr.lua') -- override some luat-dum functions
luaotfload.loadmodule('data-con.lua') -- maybe some day we don't need this one
tex.attribute[0] = 0
luaotfload.loadmodule('font-ini.lua')
luaotfload.loadmodule('node-dum.lua')
luaotfload.loadmodule('node-inj.lua')
function attributes.private(name)
local attr = 'otfl@' .. name
local number = luatexbase.attributes[attr]
if not number then
number = luatexbase.new_attribute(attr)
end
return number
end
luaotfload.loadmodule('font-tfm.lua')
luaotfload.loadmodule('font-cid.lua')
luaotfload.loadmodule('font-ott.lua')
luaotfload.loadmodule('font-map.lua')
luaotfload.loadmodule('font-otf.lua')
luaotfload.loadmodule('font-otd.lua')
luaotfload.loadmodule('font-oti.lua')
luaotfload.loadmodule('font-otb.lua')
luaotfload.loadmodule('font-otn.lua')
luaotfload.loadmodule('font-ota.lua')
luaotfload.loadmodule('font-otc.lua')
luaotfload.loadmodule('font-def.lua')
luaotfload.loadmodule('font-xtx.lua')
luaotfload.loadmodule('font-dum.lua')
luaotfload.loadmodule('font-nms.lua')
luaotfload.loadmodule('font-clr.lua')
local function def_font(...)
local fontdata = fonts.define.read(...)
if type(fontdata) == "table" and fontdata.shared then
local capheight
local units = fontdata.units
local size = fontdata.size
local otfdata = fontdata.shared.otfdata
if otfdata.pfminfo.os2_capheight > 0 then
capheight = otfdata.pfminfo.os2_capheight / units * size
else
if fontdata.characters[string.byte("X")] then
capheight = fontdata.characters[string.byte("X")].height
else
capheight = otfdata.metadata.ascent / units * size
end
end
fontdata.parameters[8] = capheight
if otfdata.metadata.math then
for k,v in next, otfdata.metadata.math do
if k == "RadicalDegreeBottomRaisePercent" then
-- this is a percent
fontdata.MathConstants[k] = v
else
fontdata.MathConstants[k] = v / units * size
end
end
end
end
return fontdata
end
fonts.mode = "node"
function luaotfload.register_callbacks()
luatexbase.add_to_callback('pre_linebreak_filter',
nodes.simple_font_handler,
'luaotfload.pre_linebreak_filter')
luatexbase.add_to_callback('hpack_filter',
nodes.simple_font_handler,
'luaotfload.hpack_filter')
luatexbase.reset_callback('define_font')
luatexbase.add_to_callback('define_font',
def_font,
'luaotfload.define_font', 1)
luatexbase.add_to_callback('find_vf_file',
fonts.vf.find,
'luaotfload.find_vf_file')
end
function luaotfload.unregister_callbacks()
luatexbase.remove_from_callback('pre_linebreak_filter',
'luaotfload.pre_linebreak_filter')
luatexbase.remove_from_callback('hpack_filter',
'luaotfload.hpack_filter')
luatexbase.remove_from_callback('define_font',
'luaotfload.define_font')
luatexbase.remove_from_callback('find_vf_file',
'luaotfload.find_vf_file')
end
--
-- End of File `luaotfload.lua'.
|
