119 lines
2.2 KiB
Lua
119 lines
2.2 KiB
Lua
|
local fs;
|
||
|
|
|
||
|
|
if not TAL then
|
||
|
|
local module = require "core.module";
|
||
|
|
local root = module.init {
|
||
|
|
tal_path = { "./mod/" },
|
||
|
|
lua_path = package.path,
|
||
|
|
target_glob = _G,
|
||
|
|
|
||
|
|
pwd = "./",
|
||
|
|
home = "",
|
||
|
|
|
||
|
|
join = require "mod.path".join,
|
||
|
|
cwd = require "mod.path".cwd,
|
||
|
|
};
|
||
|
|
|
||
|
|
require = root.require;
|
||
|
|
import = root.import;
|
||
|
|
export = root.export;
|
||
|
|
exports = root.exports;
|
||
|
|
end
|
||
|
|
|
||
|
|
fs = require "fs";
|
||
|
|
|
||
|
|
local args = require "..mod.args";
|
||
|
|
local modules = {
|
||
|
|
"core.entry",
|
||
|
|
"core.module",
|
||
|
|
"mod.path",
|
||
|
|
"mod.fs",
|
||
|
|
};
|
||
|
|
|
||
|
|
local function main(...)
|
||
|
|
local arg_readers = {};
|
||
|
|
local target;
|
||
|
|
local executable;
|
||
|
|
local paths = array {};
|
||
|
|
|
||
|
|
function arg_readers.dst(v)
|
||
|
|
target = v;
|
||
|
|
return true;
|
||
|
|
end
|
||
|
|
function arg_readers.path(v)
|
||
|
|
paths:push(v);
|
||
|
|
return true;
|
||
|
|
end
|
||
|
|
function arg_readers.executable(v)
|
||
|
|
executable = v;
|
||
|
|
return true;
|
||
|
|
end
|
||
|
|
function arg_readers.linux()
|
||
|
|
target = fs.home() .. "/.local/bin/tal";
|
||
|
|
|
||
|
|
if fs.exists "/bin/luajit" then
|
||
|
|
executable = "/bin/luajit";
|
||
|
|
elseif fs.exists "/bin/lua" then
|
||
|
|
executable = "/bin/lua"
|
||
|
|
else
|
||
|
|
print "No valid lua runtime found, WTF?";
|
||
|
|
end
|
||
|
|
|
||
|
|
paths = array {
|
||
|
|
"~/.local/lib/tal",
|
||
|
|
"~/.local/lib/.tal_mod",
|
||
|
|
"/usr/lib/tal",
|
||
|
|
"/usr/lib/.tal_mod",
|
||
|
|
"/usr/local/lib/.tal_mod",
|
||
|
|
};
|
||
|
|
|
||
|
|
return false;
|
||
|
|
end
|
||
|
|
|
||
|
|
arg_readers.o = arg_readers.dst;
|
||
|
|
arg_readers.x = arg_readers.executable;
|
||
|
|
arg_readers.p = arg_readers.path;
|
||
|
|
|
||
|
|
args(arg_readers, ...);
|
||
|
|
|
||
|
|
if not target then error "No target specified" end
|
||
|
|
|
||
|
|
local f = assert(io.open(target, "w"));
|
||
|
|
|
||
|
|
if executable then
|
||
|
|
f:write(("#!%s\n"):format(executable));
|
||
|
|
end
|
||
|
|
|
||
|
|
f:write "load(string.dump(function(...)\n";
|
||
|
|
f:write "function package.preload.__tal__PATH() return {\n";
|
||
|
|
f:write(paths:map(function (v) return "\t" .. v:quote() .. ",\n" end, true):join"");
|
||
|
|
f:write("} end\n");
|
||
|
|
|
||
|
|
for i = 1, #modules do
|
||
|
|
local name = modules[i];
|
||
|
|
local file = name:gsub("%.", "/") .. ".lua";
|
||
|
|
|
||
|
|
f:write(("package.preload[%q] = function(...)\n"):format(name));
|
||
|
|
for el in assert(io.open(file, "r")):lines(1024) do
|
||
|
|
f:write(el);
|
||
|
|
end
|
||
|
|
f:write("\nend\n");
|
||
|
|
end
|
||
|
|
|
||
|
|
f:write(("require %q(...)"):format("core.entry"));
|
||
|
|
|
||
|
|
f:write "\nend, true), '<internal>', 'b')(...)";
|
||
|
|
|
||
|
|
f:close();
|
||
|
|
|
||
|
|
if executable then
|
||
|
|
os.execute(("chmod +x %q"):format(target));
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
if type(module) ~= "table" then
|
||
|
|
main(...);
|
||
|
|
else
|
||
|
|
return main;
|
||
|
|
end
|