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
|
--
-- 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.08a,
date = "2010/05/28",
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
luaotfload.loadmodule('node-ini.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
tex.attribute[0] = 0
luaotfload.loadmodule('node-res.lua')
luaotfload.loadmodule('node-inj.lua')
luaotfload.loadmodule('node-fnt.lua')
luaotfload.loadmodule('node-dum.lua')
luaotfload.loadmodule('font-ini.lua')
luaotfload.loadmodule('font-tfm.lua')
luaotfload.loadmodule('font-cid.lua')
luaotfload.loadmodule('font-map.lua')
luaotfload.loadmodule('font-ott.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')
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',
fonts.define.read,
'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'.
|