53 lines
1.3 KiB
Lua
53 lines
1.3 KiB
Lua
local tA = {...}
|
|
local si = tA[1]
|
|
spawn("lua shell", function() print(pcall(function()
|
|
os.setenv("sI",si)
|
|
_ENV = shutil.genenv()
|
|
coroutine.yield()
|
|
log(pcall(login))
|
|
|
|
print(_VERSION)
|
|
local function shexec(line)
|
|
local words = {}
|
|
for w in line:gmatch("%S+") do table.insert(words,w) end
|
|
local pth = os.getenv("PATH") or "."
|
|
for d in pth:gmatch("[^:]+") do
|
|
local prg = words[1]
|
|
_,lex = pcall(fs.exists,d.."/"..prg..".lua")
|
|
_,nex = pcall(fs.exists,d.."/"..prg)
|
|
if lex or nex then
|
|
table.remove(words,1)
|
|
end
|
|
if lex then
|
|
return pcall(loadfile(d.."/"..prg..".lua",table.unpack(words)))
|
|
elseif nex then
|
|
return pcall(loadfile(d.."/"..prg,table.unpack(words)))
|
|
end
|
|
end
|
|
if _ENV[words[1]] then
|
|
local prg = table.remove(words,1)
|
|
local r={pcall(_ENV[prg],table.unpack(words))}
|
|
if r[1] == true then
|
|
table.remove(r,1)
|
|
end
|
|
return table.unpack(r)
|
|
end
|
|
if line:sub(1,1) == "=" then
|
|
line="return "..line:sub(2)
|
|
end
|
|
local r={pcall(load(line,"shell","bt",_ENV))}
|
|
return table.unpack(r)
|
|
end
|
|
while true do
|
|
local didexec = false
|
|
write((os.getenv("PWD") or "").."> ")
|
|
local inp=readln()
|
|
if not inp then break end
|
|
local rt = {shexec(inp)}
|
|
if rt[1] == true then
|
|
table.remove(rt,1)
|
|
end
|
|
print(table.unpack(rt))
|
|
end
|
|
end)) end)
|