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

more instructions, string length test and dont try executing nil

Browse Source 
M  faden.lua
M  standardbefehlssatz.lua
This commit is contained in:
Hybrid Dog
2016-12-29 14:14:20 +01:00
parent 641aa73686
commit 79fd928b68
2 changed files with 82 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
faden.lua
View File

@ -2,7 +2,11 @@ local function befehl_ausfuhren(faden)
local is = faden.is
local imms = faden.imms
local vars = faden.vars
local befehl, args = unpack(faden.liste[faden.ip])
local anw = faden.liste[faden.ip]
if not anw then
return false, "Invalid instruction pointer"
end
local befehl, args = unpack(anw)
for i = 1,#is do
local bfunk = is[i][befehl]
if bfunk then
@ -64,8 +68,9 @@ return function(faden_manip, parsed)
log = "",
vars = {pi = math.pi},
ip = 1,
sp = 50,
sb = 50,
sp = 3500,
sb = 3500,
strlen_max = 2000,
stack = {},
is = {pdisc.standard_befehlssatz},
suscitate = programm_ausfuhren,
@ -93,6 +98,12 @@ return function(faden_manip, parsed)
if parsed then
faden.imms = parsed[1]
faden.liste = parsed[2]
if not faden.liste[1] then
faden.suscitate = function(self)
self.log = self.log .. "Nothing to execute.\n"
self:exit()
end
end
end
faden_manip(faden)
return faden