pdisc/standardbefehlssatz.lua

local WNOA = "wrong number of arguments"
local UAT = "unsupported argument type"
local SE = "error with cmd-cmd executing: "
local STRL = "attempt on exceeding maximum string length"

local s
s = {
	mov = function(params)
		if #params ~= 2 then
			return false, WNOA
		end
		return true, params[2]
	end,

	add = function(params, faden)
		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 == "boolean" then
			return true, p1 and p2
		end
		if #p1 + #p2 > faden.strlen_max then
			return false, STRL
		end
		return true, p1 .. p2
	end,

	mul = 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 == "string"
		and t2 == "number" then
			if #p1 * p2 > faden.strlen_max then
				return false, STRL
			end
			return true, p1:rep(p2)
		end
		if t1 ~= t2 then
			return false, "different argument types"
		end

		if t1 == "number" then
			return true, p1 * p2
		end
		if t1 == "boolean" then
			return true, p1 or p2
		end
		return false, UAT
	end,

	neg = function(params)
		if #params ~= 1 then
			return false, WNOA
		end
		local v = params[1]
		local t = type(v)
		if t == "number" then
			return true, -v
		end
		if t == "boolean" then
			return true, not v
		end
		return true, v:rev()
	end,

	inv = function(params)
		if #params ~= 1 then
			return false, WNOA
		end
		local p = params[1]
		if type(p) ~= "number" then
			return false, UAT
		end
		return true, 1 / p
	end,

	mod = function(params)
		if #params ~= 2 then
			return false, WNOA
		end
		local p1,p2 = unpack(params)
		if type(p1) ~= "number" or type(p2) ~= "number" then
			return false, UAT
		end
		return true, p1 % p2
	end,

	jmp = function(params, faden)
		local pcnt = #params
		if pcnt == 2 then
			if not params[2] then
				return true
			end
		elseif pcnt ~= 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.usleep({0}, faden) then
			error(SE)
		end
		return true
	end,

	call = function(params, faden)
		if #params ~= 1 then
			return false, WNOA
		end
		local subsucc,msg = s.push(faden.ip + 1, faden)
		if not subsucc then
			return false, SE .. msg
		end
		subsucc,msg = s.jmp(params, faden)
		if not subsucc then
			return false, SE .. msg
		end
		return true
	end,

	ret = function(_, faden)
		local subsucc,msg = s.pop({true}, faden)
		if not subsucc then
			return false, SE .. msg
		end
		subsucc,msg = s.jmp({msg}, faden)
		if not subsucc then
			return false, SE .. msg
		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 p1,p2 = unpack(params)
		if type(p1) ~= "number"
		or type(p2) ~= "number" then
			return false, UAT
		end
		return true, p1 < p2
	end,

	usleep = 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_us_time() + p
		faden:stop()
		return true
	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
		subsucc,msg = s.usleep({p * 1000000}, faden)
		if not subsucc then
			return false, SE .. msg
		end
		return true
	end,

	get_us_time = function()
		return true, minetest.get_us_time()
	end,

	tostring = function(params)
		if #params ~= 1 then
			return false, WNOA
		end
		return true, tostring(params[1])
	end,

	print = function(params, faden)
		for i = 1,#params do
			params[i] = tostring(params[i])
		end
		faden.log = faden.log .. table.concat(params, "\t") .. "\n"
		return true
	end,

	flush = function(params, faden)
		return faden:flush(params)
	end,
}

local so_math_fcts = {"sin", "asin", "cos", "acos", "tan", "atan", "exp", "log",
	"abs", "sign", "floor", "ceil"}
for i = 1,#so_math_fcts do
	i = so_math_fcts[i]
	s[i] = function(params)
		if #params ~= 1 then
			return false, WNOA
		end
		local p = params[1]
		if type(p) ~= "number" then
			return false, UAT
		end
		return true, math[i](p)
	end
end

local to_math_fcts = {"pow"}
for i = 1,#to_math_fcts do
	i = to_math_fcts[i]
	s[i] = function(params)
		if #params ~= 2 then
			return false, WNOA
		end
		local p1,p2 = unpack(params)
		if type(p1) ~= "number"
		or type(p2) ~= "number" then
			return false, UAT
		end
		return true, math[i](p1, p2)
	end
end

return s