d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Better compatibility between Lua versions.

Browse source
This commit is contained in:
David Given 2022-07-15 00:11:19 +02:00
parent 25b6712e63
commit 870ecef75e
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
first/ackbuilder.lua
View file

@ -20,6 +20,24 @@ local loadingstack = {}
-- Forward references -- Forward references
local loadtarget local loadtarget
-- Compatibility polyfill for load
local function loadf(text, source, mode, env)
if rawget(_G, "loadstring") then
local chunk, e = loadstring(text, "@"..source)
if chunk then
setfenv(chunk, env)
end
return chunk, e
else
return load(text, source, mode, env)
end
end
-- Compatibility polyfill for unpack
if not rawget(_G, "unpack") then
unpack = table.unpack
end
local function print(...) local function print(...)
local function print_no_nl(list) local function print_no_nl(list)
for _, s in ipairs(list) do for _, s in ipairs(list) do
@ -341,7 +359,7 @@ local function templateexpand(list, vars)
o[#o+1] = s:gsub("%%%b{}", o[#o+1] = s:gsub("%%%b{}",
function(expr) function(expr)
expr = expr:sub(3, -2) expr = expr:sub(3, -2)
local chunk, e = load("return ("..expr..")", expr, nil, vars) local chunk, e = loadf("return ("..expr..")", expr, nil, vars)
if e then if e then
error(string.format("error evaluating expression: %s", e)) error(string.format("error evaluating expression: %s", e))
end end
@ -376,7 +394,7 @@ local function loadbuildfile(filename)
local thisglobals = {} local thisglobals = {}
thisglobals._G = thisglobals thisglobals._G = thisglobals
setmetatable(thisglobals, {__index = globals}) setmetatable(thisglobals, {__index = globals})
chunk, e = load(data, filename, nil, thisglobals) chunk, e = loadf(data, filename, nil, thisglobals)
end end
end end
if e then if e then