forked from mtcontrib/pdisc
d57e096706
M standardbefehlssatz.lua
139 lines
2.4 KiB
Lua
139 lines
2.4 KiB
Lua
local WNOA = "wrong number of arguments"
|
|
local UAT = "unsupported argument type"
|
|
local SE = "error with cmd-cmd executing: "
|
|
|
|
local s
|
|
s = {
|
|
mov = function(params)
|
|
if #params ~= 2 then
|
|
return false, WNOA
|
|
end
|
|
return true, params[2]
|
|
end,
|
|
|
|
add = function(params)
|
|
if #params ~= 2 then
|
|
return false, WNOA
|
|
end
|
|
local p1,p2 = unpack(params)
|
|
local t1 = type(p1)
|
|
local t2 = type(p2)
|
|
if t1 ~= t2 then
|
|
return false, "different argument types"
|
|
end
|
|
|
|
if t1 == "number" then
|
|
return true, p1 + p2
|
|
end
|
|
if t1 == "string" then
|
|
return true, p1 .. p2
|
|
end
|
|
return false, UAT
|
|
end,
|
|
|
|
jmp = function(params, faden)
|
|
if #params ~= 1 then
|
|
return false, WNOA
|
|
end
|
|
local p = params[1]
|
|
if type(p) ~= "number" then
|
|
return false, UAT
|
|
end
|
|
if p < 1
|
|
or p%1 ~= 0
|
|
or p > #faden.liste + 1 then
|
|
return false, "jump target out of range"
|
|
end
|
|
faden.ip = p-1
|
|
if not s.sleep({0}, faden) then
|
|
error(SE)
|
|
end
|
|
return true
|
|
end,
|
|
|
|
jif = function(params, faden)
|
|
if #params ~= 2 then
|
|
return false, WNOA
|
|
end
|
|
if params[1] then
|
|
local jmpd,msg = s.jmp({params[2]}, faden)
|
|
if not jmpd then
|
|
return false, SE .. msg
|
|
end
|
|
end
|
|
return true
|
|
end,
|
|
|
|
push = function(params, faden)
|
|
local pc = #params
|
|
if pc == 0 then
|
|
return false, WNOA
|
|
end
|
|
for i = 1,pc do
|
|
faden.stack[faden.sp] = params[i]
|
|
faden.sp = faden.sp-1
|
|
end
|
|
if faden.sp < 0 then
|
|
return false, "stack overflow"
|
|
end
|
|
return true
|
|
end,
|
|
|
|
pop = function(params, faden)
|
|
local pc = #params
|
|
if pc == 0 then
|
|
return false, WNOA
|
|
end
|
|
local rt = {}
|
|
for i = 1,pc do
|
|
faden.sp = faden.sp+1
|
|
rt[i] = faden.stack[faden.sp]
|
|
end
|
|
if faden.sp > faden.sb then
|
|
return false, "stack underflow"
|
|
end
|
|
return true, rt
|
|
end,
|
|
|
|
equal = function(params)
|
|
if #params ~= 2 then
|
|
return false, WNOA
|
|
end
|
|
return true, params[1] == params[2]
|
|
end,
|
|
|
|
less = function(params)
|
|
if #params ~= 2 then
|
|
return false, WNOA
|
|
end
|
|
local t1 = type(p1)
|
|
local t2 = type(p2)
|
|
if t1 ~= t2 then
|
|
return false, "different argument types"
|
|
end
|
|
if t1 ~= "number"
|
|
and t1 ~= "string" then
|
|
return false, UAT
|
|
end
|
|
return true, params[1] < params[2]
|
|
end,
|
|
|
|
sleep = function(params, faden)
|
|
if #params ~= 1 then
|
|
return false, WNOA
|
|
end
|
|
local p = params[1]
|
|
if type(p) ~= "number" then
|
|
return false, UAT
|
|
end
|
|
faden.rebirth = minetest.get_gametime() + p
|
|
faden:stop()
|
|
return true
|
|
end,
|
|
|
|
flush = function(params, faden)
|
|
return faden:flush(params)
|
|
end,
|
|
}
|
|
return s
|