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
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
if not modules then modules = { } end modules ['l-lua'] = {
version = 1.001,
comment = "companion to luat-lib.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
-- potential issues with 5.3:
-- i'm not sure yet if the int/float change is good for luatex
-- math.min
-- math.max
-- tostring
-- tonumber
-- utf.*
-- bit32
local next, type, tonumber = next, type, tonumber
-- compatibility hacks and helpers
LUAMAJORVERSION, LUAMINORVERSION = string.match(_VERSION,"^[^%d]+(%d+)%.(%d+).*$")
LUAMAJORVERSION = tonumber(LUAMAJORVERSION) or 5
LUAMINORVERSION = tonumber(LUAMINORVERSION) or 1
LUAVERSION = LUAMAJORVERSION + LUAMINORVERSION/10
if LUAVERSION < 5.2 and jit then
--
-- we want loadstring cum suis to behave like 5.2
--
MINORVERSION = 2
LUAVERSION = 5.2
end
-- lpeg
if not lpeg then
lpeg = require("lpeg")
end
-- if utf8 then
-- utf8lua = utf8
-- utf8 = nil
-- end
-- basics:
if loadstring then
local loadnormal = load
function load(first,...)
if type(first) == "string" then
return loadstring(first,...)
else
return loadnormal(first,...)
end
end
else
loadstring = load
end
-- table:
-- At some point it was announced that i[pairs would be dropped, which makes
-- sense. As we already used the for loop and # in most places the impact on
-- ConTeXt was not that large; the remaining ipairs already have been replaced.
-- Hm, actually ipairs was retained, but we no longer use it anyway (nor
-- pairs).
--
-- Just in case, we provide the fallbacks as discussed in Programming
-- in Lua (http://www.lua.org/pil/7.3.html):
if not ipairs then
-- for k, v in ipairs(t) do ... end
-- for k=1,#t do local v = t[k] ... end
local function iterate(a,i)
i = i + 1
local v = a[i]
if v ~= nil then
return i, v --, nil
end
end
function ipairs(a)
return iterate, a, 0
end
end
if not pairs then
-- for k, v in pairs(t) do ... end
-- for k, v in next, t do ... end
function pairs(t)
return next, t -- , nil
end
end
-- The unpack function has been moved to the table table, and for compatiility
-- reasons we provide both now.
if not table.unpack then
table.unpack = _G.unpack
elseif not unpack then
_G.unpack = table.unpack
end
-- package:
-- if not package.seachers then
--
-- package.searchers = package.loaders -- 5.2
--
-- elseif not package.loaders then
--
-- package.loaders = package.searchers
--
-- end
if not package.loaders then -- brr, searchers is a special "loadlib function" userdata type
package.loaders = package.searchers
end
-- moved from util-deb to here:
local print, select, tostring = print, select, tostring
local inspectors = { }
function setinspector(kind,inspector) -- global function
inspectors[kind] = inspector
end
function inspect(...) -- global function
for s=1,select("#",...) do
local value = select(s,...)
if value == nil then
print("nil")
else
local done = false
-- type driven (table)
local kind = type(value)
local inspector = inspectors[kind]
if inspector then
done = inspector(value)
if done then
break
end
end
-- whatever driven (token, node, ...)
for kind, inspector in next, inspectors do
done = inspector(value)
if done then
break
end
end
if not done then
print(tostring(value))
end
end
end
end
--
local dummy = function() end
function optionalrequire(...)
local ok, result = xpcall(require,dummy,...)
if ok then
return result
end
end
-- nice for non ascii scripts (this might move):
if lua then
lua.mask = load([[τεχ = 1]]) and "utf" or "ascii"
end
local flush = io.flush
if flush then
local execute = os.execute if execute then function os.execute(...) flush() return execute(...) end end
local exec = os.exec if exec then function os.exec (...) flush() return exec (...) end end
local spawn = os.spawn if spawn then function os.spawn (...) flush() return spawn (...) end end
local popen = io.popen if popen then function io.popen (...) flush() return popen (...) end end
end
-- new
FFISUPPORTED = type(ffi) == "table" and ffi.os ~= "" and ffi.arch ~= "" and ffi.load
if not FFISUPPORTED then
-- Maybe we should check for LUATEXENGINE but that's also a bti tricky as we still
-- can have a weird ffi library laying around. Checking for presence of 'jit' is
-- also not robust. So for now we hope for the best.
local okay ; okay, ffi = pcall(require,"ffi")
FFISUPPORTED = type(ffi) == "table" and ffi.os ~= "" and ffi.arch ~= "" and ffi.load
end
if not FFISUPPORTED then
ffi = nil
elseif not ffi.number then
ffi.number = tonumber
end
-- if not bit32 then -- and utf8 then
-- -- bit32 = load ( [[ -- replacement code with 5.3 syntax so that 5.2 doesn't bark on it ]] )
-- bit32 = require("l-bit32")
-- end
-- We need this due a bug in luatex socket loading:
-- local loaded = package.loaded
--
-- if not loaded["socket"] then loaded["socket"] = loaded["socket.core"] end
-- if not loaded["mime"] then loaded["mime"] = loaded["mime.core"] end
--
-- if not socket.mime then socket.mime = package.loaded["mime"] end
--
-- if not loaded["socket.mime"] then loaded["socket.mime"] = socket.mime end
-- if not loaded["socket.http"] then loaded["socket.http"] = socket.http end
-- if not loaded["socket.ftp"] then loaded["socket.ftp"] = socket.ftp end
-- if not loaded["socket.smtp"] then loaded["socket.smtp"] = socket.smtp end
-- if not loaded["socket.tp"] then loaded["socket.tp"] = socket.tp end
-- if not loaded["socket.url"] then loaded["socket.url"] = socket.url end
if LUAVERSION > 5.3 then
collectgarbage("generational")
end
|