3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-- completely breaks the cortav build process, so we supply our own
-- ultra-simplistic and painfully primitive luac replacement.
-- this does not generate very good object code.
-- pass luac-broken=1 when building to use
local pgm = ""
local strip = os.getenv("strip")=="1"
if #arg > 1 then
local chunks = {}
for i, f in ipairs(arg) do
local nc = assert(loadfile(f))
nc = string.format("load%q(...)", string.dump(nc))
table.insert(chunks, nc)
end
pgm = assert(string.dump(load(table.concat(chunks))))
else
pgm = assert(string.dump(loadfile(arg[1])))
end
io.stdout:write(pgm)
|
|
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-- completely breaks the cortav build process, so we supply our own
-- ultra-simplistic and painfully primitive luac replacement.
-- this does not generate very good object code.
-- pass luac-broken=1 when building to use
local pgm = ""
local strip = os.getenv("strip")=="1"
if #arg > 1 then
local chunks = {'local load=load;'}
for i, f in ipairs(arg) do
local nc = assert(loadfile(f))
nc = string.format("load%q(...)", string.dump(nc))
table.insert(chunks, nc)
end
pgm = string.dump(assert(load(table.concat(chunks))))
else
pgm = string.dump(assert(loadfile(arg[1])))
end
io.stdout:write(pgm)
|