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
|
luaotfload = luaotfload or { }
luaotfload.fonts = { }
luaotfload.fonts.module = {
name = "luaotfload.fonts",
version = 1.001,
date = "2010/01/12",
description = "luaotfload font database.",
author = "Khaled Hosny",
copyright = "Khaled Hosny",
license = "CC0"
}
kpse.set_program_name("luatex")
require("luaextra.lua")
require("otfl-luat-dum.lua")
local upper, splitpath, expandpath, glob, basename = string.upper, file.split_path, kpse.expand_path, dir.glob, file.basename
luaotfload.fonts.basename = "otfl-names.lua"
luaotfload.fonts.version = 1.001
luaotfload.fonts.log = false
local function log(...)
if luaotfload.fonts.log then
logs.simple(...)
end
end
local function info(...)
logs.simple(...)
end
local function clean(str)
return string.gsub(string.lower(str), "[^%a%d]", "")
end
local function load_font(filename, names, texmf)
local mappings = names.mappings
local key
if filename then
local info = fontloader.info(filename)
if texmf == true then filename = basename(filename) end
if info then
if type(info) == "table" and #info > 1 then
for index,sub in ipairs(info) do
key = clean(sub.fullname)
if not mappings[key] then
mappings[key] = { sub.fullname, filename, index }
else
log("Font '%s' already exists.", key)
end
end
else
key = clean(info.fullname)
if not mappings[key] then
mappings[key] = { info.fullname, filename }
else
log("Font '%s' already exists.", key)
end
end
else
log("Failed to load %s", filename)
end
end
end
local function scan_dir(dirname, names, recursive, texmf)
local list, found = { }, { }
for _,ext in ipairs { "otf", "ttf", "ttc", "dfont" } do
if recursive then pat = "/**." else pat = "/*." end
log("Scanning '%s' for '%s' fonts", dirname, ext)
found = glob(dirname .. pat .. ext)
log("%s fonts found", #found)
table.append(list, found)
log("Scanning '%s' for '%s' fonts", dirname, upper(ext))
found = glob(dirname .. pat .. upper(ext))
log("%s fonts found", #found)
table.append(list, found)
end
for _,fnt in ipairs(list) do
load_font(fnt, names, texmf)
end
end
local function scan_os_fonts(names)
local fontdirs
fontdirs = expandpath("$OSFONTDIR")
if not fontdirs:is_empty() then
fontdirs = splitpath(fontdirs, ":")
for _,d in ipairs(fontdirs) do
scan_dir(d, names, true)
end
end
end
local function scan_txmf_tree(names)
local fontdirs = expandpath("$OPENTYPEFONTS")
fontdirs = fontdirs .. expandpath("$TTFONTS")
if not fontdirs:is_empty() then
fontdirs = splitpath(fontdirs, ":")
for _,d in ipairs(fontdirs) do
scan_dir(d, names, false, true)
end
end
end
local function generate()
local fnames = {
mappings = { },
version = luaotfload.fonts.version
}
scan_os_fonts(fnames)
scan_txmf_tree(fnames)
logs.simple("%s fonts saved in the database", #table.keys(fnames.mappings))
io.savedata(luaotfload.fonts.basename, table.serialize(fnames, true))
logs.simple("Saved font names database in %s\n", luaotfload.fonts.basename)
end
luaotfload.fonts.scan = scan_dir
luaotfload.fonts.generate = generate
if arg[0] == "luaotfload-fonts.lua" then
generate()
end
|
