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
|
local lni = require 'lni'
local fs = require 'bee.filesystem'
local function mergeEnum(lib, locale)
if not lib or not locale then
return
end
local pack = {}
for _, enum in ipairs(lib) do
if enum.enum then
pack[enum.enum] = enum
end
if enum.code then
pack[enum.code] = enum
end
end
for _, enum in ipairs(locale) do
if pack[enum.enum] then
pack[enum.enum].description = enum.description
end
if pack[enum.code] then
pack[enum.code].description = enum.description
end
end
end
local function mergeField(lib, locale)
if not lib or not locale then
return
end
local pack = {}
for _, field in ipairs(lib) do
if field.field then
pack[field.field] = field
end
end
for _, field in ipairs(locale) do
if pack[field.field] then
pack[field.field].description = field.description
end
end
end
local function mergeLocale(libs, locale)
if not libs or not locale then
return
end
for name in pairs(locale) do
if libs[name] then
libs[name].description = locale[name].description
mergeEnum(libs[name].enums, locale[name].enums)
mergeField(libs[name].fields, locale[name].fields)
end
end
end
local function mergeSource(alllibs, name, lib)
if not lib.source then
alllibs.global[name] = lib
return
end
for _, source in ipairs(lib.source) do
local sourceName = source.name or name
if source.type == 'global' then
alllibs.global[sourceName] = lib
elseif source.type == 'library' then
alllibs.library[sourceName] = lib
elseif source.type == 'object' then
alllibs.object[sourceName] = lib
end
end
end
local function copy(t)
local new = {}
for k, v in pairs(t) do
new[k] = v
end
return new
end
local function insert(tbl, name, key, value)
if not name or not key then
return
end
if not tbl[name] then
tbl[name] = {
type = name,
name = name,
child = {},
}
end
tbl[name].child[key] = copy(value)
end
local function mergeParent(alllibs, name, lib)
for _, parent in ipairs(lib.parent) do
if parent.type == 'global' then
insert(alllibs.global, parent.name, name, lib)
elseif parent.type == 'library' then
insert(alllibs.library, parent.name, name, lib)
elseif parent.type == 'object' then
insert(alllibs.object, parent.name, name, lib)
end
end
end
local function mergeLibs(alllibs, libs)
if not libs then
return
end
for _, lib in pairs(libs) do
if lib.parent then
mergeParent(alllibs, lib.name, lib)
else
mergeSource(alllibs, lib.name, lib)
end
end
end
local function loadLocale(language, relative)
local localePath = ROOT / 'locale' / language / relative
local localeBuf = io.load(localePath)
if localeBuf then
local locale = table.container()
xpcall(lni.classics, log.error, localeBuf, localePath:string(), {locale})
return locale
end
return nil
end
local function fix(libs)
for name, lib in pairs(libs) do
lib.name = lib.name or name
lib.child = {}
end
end
local function init()
local language = require 'language'
local alllibs = {
global = table.container(),
library = table.container(),
object = table.container(),
}
for path in io.scan(ROOT / 'libs') do
local libs
local buf = io.load(path)
if buf then
libs = table.container()
xpcall(lni.classics, log.error, buf, path:string(), {libs})
fix(libs)
end
local relative = fs.relative(path, ROOT)
local locale = loadLocale('en-US', relative)
mergeLocale(libs, locale)
if language ~= 'en-US' then
locale = loadLocale(language, relative)
mergeLocale(libs, locale)
end
mergeLibs(alllibs, libs)
end
return alllibs
end
return init()
|
