mtcontrib/pdisc
1
0
Fork 1
mirror of https://github.com/HybridDog/pdisc.git synced 2025-07-02 16:20:41 +02:00
Code Issues Releases Wiki Activity

update instructions

Browse Source 
M  README.md
M  faden.lua
M  standardbefehlssatz.lua
M  util/standartbefehlssatz_doc.lua
This commit is contained in:
Hybrid Dog
2017-02-03 23:20:22 +01:00
parent f566b8b557
commit c821cafc14
4 changed files with 99 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
standardbefehlssatz.lua
View File

@ -9,6 +9,10 @@ s = {
return true, params[2]
end,
xchg = function(params)
return true, params[2], params[1]
end,
getvar = function(params, faden)
local p = params[1]
if type(p) ~= "string" then
@ -29,7 +33,12 @@ s = {
return true, p1 + p2
end
if t1 == "boolean" then
return true, p1 and p2
for _,k in pairs(params) do
if k then
return true, true
end
end
return true, false
end
if t1 == "string" then
if #p1 + #p2 > faden.strlen_max then
@ -40,6 +49,22 @@ s = {
return false, UAT
end,
sub = function(params)
local b = params[2]
b = b and tonumber(b)
local t2 = type(b)
if t2 ~= "number" then
return false, UAT
end
local t1 = type(params[1])
if t1 == "number" then
return true, params[1] - b
end
if t1 == "string" then
return true, params[1]:sub(b, params[3] and tonumber(params[3]))
end
end,
mul = function(params)
local p1,p2 = unpack(params)
local t1 = type(p1)
@ -59,11 +84,39 @@ s = {
return true, p1 * p2
end
if t1 == "boolean" then
return true, p1 or p2
for _,k in pairs(params) do
if not k then
return true, false
end
end
return true, p1 and p2 -- nil is tested in the first two params
end
return false, UAT
end,
div = function(params)
local p1,p2 = unpack(params)
if type(p1) ~= "number"
or type(p2) ~= "number" then
return false, UAT
end
return true, p1 / p2
end,
inc = function(params)
if type(params[1]) ~= "number" then
return false, UAT
end
return true, params[1] + 1
end,
dec = function(params)
if type(params[1]) ~= "number" then
return false, UAT
end
return true, params[1] - 1
end,
neg = function(params)
local v = params[1]
local t = type(v)
@ -74,7 +127,7 @@ s = {
return true, not v
end
if t == "string" then
return true, v:rev()
return true, v:rev() -- does string.rev exist?
end
return false, UAT
end,
@ -190,6 +243,10 @@ s = {
return true, p1 < p2
end,
greater = function(params)
return s.less{params[2], params[1]}
end,
usleep = function(params, faden)
local p = params[1]
if type(p) ~= "number" then
@ -217,7 +274,15 @@ s = {
end,
tostring = function(params)
return true, tostring(params[1])
return true, params[1] and tostring(params[1]) or nil
end,
tonumber = function(params)
return true, params[1] and tonumber(params[1])
end,
toboolean = function(params)
return true, params[1] and true or false
end,
print = function(params, faden)
@ -259,4 +324,20 @@ for i = 1,#to_math_fcts do
end
end
local abbreviations = {
mov = ":=",
add = "+",
sub = "-",
mul = "*",
div = "/",
inc = "++",
dec = "--",
neg = "!",
less = "<",
equal = "==",
jmp = "@",
usleep = "...",
}
-- TODO set metatable
return s