epicknex/parseManager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Finally some updates

Browse Source
This commit is contained in:
Ryan Ward 2019-01-07 10:30:22 -05:00
parent e277f8db56
commit abfd69ffe1
5 changed files with 262 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

234
parseManager/init.lua
View File

@ -6,6 +6,7 @@ parseManager.stats={}
parseManager.stack={} parseManager.stack={}
parseManager.cFuncs={} parseManager.cFuncs={}
parseManager.mainENV={} parseManager.mainENV={}
parseManager.__INTERNAL = {}
parseManager.currentENV=parseManager.mainENV parseManager.currentENV=parseManager.mainENV
parseManager.entry="START" parseManager.entry="START"
parseManager.methods={} parseManager.methods={}
@ -43,6 +44,13 @@ end
function parseManager:exposeNamespace(name,ref) function parseManager:exposeNamespace(name,ref)
self.mainENV[name]=ref self.mainENV[name]=ref
end end
function factorial(n)
if (n == 0) then
return 1
else
return n * factorial(n - 1)
end
end
function parseManager:load(path,c) function parseManager:load(path,c)
local c = c local c = c
if not c then if not c then
@ -64,6 +72,7 @@ function parseManager:load(path,c)
end end
end end
-- process the data -- process the data
file.data=file.data:gsub("/%*.-%*/","")
file.data=file.data:gsub('%b""',function(a) a=a:gsub("//","\2") return a end) file.data=file.data:gsub('%b""',function(a) a=a:gsub("//","\2") return a end)
file.data=file.data:gsub("%b''",function(a) a=a:gsub("//","\2") return a end) file.data=file.data:gsub("%b''",function(a) a=a:gsub("//","\2") return a end)
file.data=file.data:gsub("//.-\n","\n") file.data=file.data:gsub("//.-\n","\n")
@ -111,6 +120,8 @@ function parseManager:load(path,c)
c:compile(name,ctype,data) c:compile(name,ctype,data)
end end
--c.chunks=readonlytable(c.chunks) --c.chunks=readonlytable(c.chunks)
c.mainENV["False"]=false
c.mainENV["True"]=true
return c return c
end end
function parseManager:extractState() function parseManager:extractState()
@ -263,19 +274,19 @@ local function pieceList(list,self,name)
local L={} local L={}
local mathass=1 local mathass=1
for i=1,#list do for i=1,#list do
if list[i]:match("[%w_]-%[.-%]") then if list[i]:match("[%w_]-%[.-%]") and list[i]:sub(1,1)~='"' then
local dict,sym=list[i]:match("([%w_]-)%[(.-)%]") local dict,sym=list[i]:match("([%w_]-)%[(.-)%]")
if tonumber(sym) then if tonumber(sym) then
L[#L+1]={"\1"..dict,tonumber(sym),IsALookup=true} L[#L+1]={"\1"..dict,tonumber(sym),IsALookup=true}
elseif sym:sub(1,1)=="\"" and sym:sub(-1,-1)=="\"" then elseif sym:sub(1,1)=="\"" and sym:sub(-1,-1)=="\"" then
L[#L+1]={"\1"..dict,sym:sub(2,-2),IsALookup=true} L[#L+1]={"\1"..dict,sym:sub(2,-2),IsALookup=true}
end end
elseif list[i]:sub(1,1)=="\"" and list[i]:sub(-1,-1)=="\"" then
L[#L+1]=list[i]:sub(2,-2)
elseif list[i]:sub(1,1)=="[" and list[i]:sub(-1,-1)=="]" then elseif list[i]:sub(1,1)=="[" and list[i]:sub(-1,-1)=="]" then
L[#L+1]=pieceList(list[i]:sub(2,-2),self,name) L[#L+1]=pieceList(list[i]:sub(2,-2),self,name)
elseif tonumber(list[i]) then elseif tonumber(list[i]) then
L[#L+1]=tonumber(list[i]) L[#L+1]=tonumber(list[i])
elseif list[i]:sub(1,1)=="\"" and list[i]:sub(-1,-1)=="\"" then
L[#L+1]=list[i]:sub(2,-2)
elseif list[i]:match("[%w_]-%..-") then elseif list[i]:match("[%w_]-%..-") then
local dict,sym=list[i]:match("([%w_]-)%.(.+)") local dict,sym=list[i]:match("([%w_]-)%.(.+)")
L[#L+1]={"\1"..dict,sym,IsALookup=true} L[#L+1]={"\1"..dict,sym,IsALookup=true}
@ -313,9 +324,9 @@ local function pieceAssign(a,self,name)
else else
self:pushError("Invalid way to index a dictonary/array!",ind) self:pushError("Invalid way to index a dictonary/array!",ind)
end end
elseif a:match("[%w_]+")==a then elseif a:match("[%$%w_]+")==a then
var="\1"..a var="\1"..a
elseif a:match("[%w_]-%..-") then elseif a:match("[%$%w_]-%..-") then
local dict,sym=a:match("([%w_]-)%.(.+)") local dict,sym=a:match("([%w_]-)%.(.+)")
var={dict,sym,IsALookup=true} var={dict,sym,IsALookup=true}
elseif a:find(",") then elseif a:find(",") then
@ -329,6 +340,18 @@ local function pieceAssign(a,self,name)
end end
return var return var
end end
function parseManager:compileFuncInExpr(list,name)
local c = 65
str = list:gsub("([%S]+)%s*%((.-)%)",function(a,b)
if a and b then
local d = "$"..string.char(c)
self:compileFWR(a,d,b,name)
c=c+1
return d
end
end)
return str
end
function parseManager:compileAssign(assignA,assignB,name) function parseManager:compileAssign(assignA,assignB,name)
local listA=parseManager.split(assignA) local listA=parseManager.split(assignA)
local listB=parseManager.split(assignB) local listB=parseManager.split(assignB)
@ -339,15 +362,20 @@ function parseManager:compileAssign(assignA,assignB,name)
} }
for k=1,#listA do for k=1,#listA do
local mathTest=false local mathTest=false
local parsetest=false
debug("VAL: "..listB[k]) debug("VAL: "..listB[k])
debug("NAME: "..listA[k]) debug("NAME: "..listA[k])
if listB[k]:sub(1,1)=="[" and listB[k]:sub(-1,-1)=="]" then if tonumber(listB[k]) then
assign.vals[#assign.vals+1]=tonumber(listB[k])
elseif listB[k]:sub(1,1)=="[" and listB[k]:sub(-1,-1)=="]" then
if listB[k]:match("%[%]") then if listB[k]:match("%[%]") then
assign.vals[#assign.vals+1]={} assign.vals[#assign.vals+1]={}
else else
assign.vals[#assign.vals+1]=pieceList(listB[k]:sub(2,-2),self,name) assign.vals[#assign.vals+1]=pieceList(listB[k]:sub(2,-2),self,name)
--~ table.print(assign.vals[#assign.vals])
end end
elseif listB[k]:sub(1,1)=="$" and listB[k]:sub(-1,-1)=="$" then
parsetest = true
self:compileFWR("__PUSHPARSE",listA[k],'"'..listB[k]..'"',name)
elseif listB[k]:match("[%w_]-%[.-%]") then elseif listB[k]:match("[%w_]-%[.-%]") then
local dict,sym=listB[k]:match("([%w_]-)%[(.-)%]") local dict,sym=listB[k]:match("([%w_]-)%[(.-)%]")
if tonumber(sym) then if tonumber(sym) then
@ -355,11 +383,9 @@ function parseManager:compileAssign(assignA,assignB,name)
elseif sym:sub(1,1)=="\"" and sym:sub(-1,-1)=="\"" then elseif sym:sub(1,1)=="\"" and sym:sub(-1,-1)=="\"" then
assign.vals[#assign.vals+1]={"\1"..dict,sym:sub(2,-2),IsALookup=true} assign.vals[#assign.vals+1]={"\1"..dict,sym:sub(2,-2),IsALookup=true}
end end
elseif listB[k]:match("[%w_]-%..-") then elseif listB[k]:match("[%w_]-%..-") and not listB[k]:match("(%d-)%.(%d-)") then
local dict,sym=listB[k]:match("([%w_]-)%.(.+)") local dict,sym=listB[k]:match("([%w_]-)%.(.+)")
assign.vals[#assign.vals+1]={"\1"..dict,sym,IsALookup=true} assign.vals[#assign.vals+1]={"\1"..dict,sym,IsALookup=true}
elseif tonumber(listB[k]) then
assign.vals[#assign.vals+1]=tonumber(listB[k])
elseif listB[k]:sub(1,1)=="\"" and listB[k]:sub(-1,-1)=="\"" then elseif listB[k]:sub(1,1)=="\"" and listB[k]:sub(-1,-1)=="\"" then
assign.vals[#assign.vals+1]=listB[k]:sub(2,-2) assign.vals[#assign.vals+1]=listB[k]:sub(2,-2)
elseif listB[k]=="true" then elseif listB[k]=="true" then
@ -368,19 +394,19 @@ function parseManager:compileAssign(assignA,assignB,name)
assign.vals[#assign.vals+1]=false assign.vals[#assign.vals+1]=false
elseif listB[k]:match("[%w_]+")==listB[k] then elseif listB[k]:match("[%w_]+")==listB[k] then
assign.vals[#assign.vals+1]="\1"..listB[k] assign.vals[#assign.vals+1]="\1"..listB[k]
elseif listB[k]:match("[_%w%+%-/%*%^%(%)%%]+")==listB[k] then elseif listB[k]:match("[_%$%w%+%-/%*%^%(%)%.%%%s]+")==listB[k] then
mathTest=true mathTest=true
self:compileExpr(listA[k],listB[k],name) workit = self:compileFuncInExpr(listB[k],name)
self:compileExpr(listA[k],workit,name)
else else
self:pushError("Invalid Systax:",listB[k]) self:pushError("Invalid Systax:",listB[k])
end end
if not mathTest then if not mathTest and not parsetest then
assign.vars[#assign.vars+1]=pieceAssign(listA[k],self,name) assign.vars[#assign.vars+1]=pieceAssign(listA[k],self,name)
else else
print("debugging:",assignA,assignB,name) debug(assignA,assignB,name)
end end
end end
--~ table.print(assign)
table.insert(self.chunks[name],assign) table.insert(self.chunks[name],assign)
end end
function parseManager:compileCondition(condition,iff,elsee,name) function parseManager:compileCondition(condition,iff,elsee,name)
@ -502,7 +528,8 @@ function parseManager:compileExpr(eql,expr,name)
return expr return expr
end end
end end
if expr:match("[!%$&_%w%+%-/%*%^%(%)%%]+")==expr then if expr:match("[!%$%s&_%w%+%-/%*%.%^%(%)%%]+")==expr then
expr = expr:gsub("%s","")
parseManager:pieceExpr(expr) parseManager:pieceExpr(expr)
cmds[#cmds]["vars"]={"\1"..eql} cmds[#cmds]["vars"]={"\1"..eql}
for i=1,#cmds do for i=1,#cmds do
@ -560,12 +587,13 @@ function parseManager:compileLogic(condition,iff,elsee,name)
conds=conds.." or 1==0" conds=conds.." or 1==0"
conds=conds:gsub(" and ","\4") conds=conds:gsub(" and ","\4")
conds=conds:gsub(" or ","\5") conds=conds:gsub(" or ","\5")
conds=conds:gsub("(\".*[\4].*\")",function(a) -- conds=conds:gsub("(\".*[\4].*\")",function(a)
return a:gsub("\4"," and ") -- return a:gsub("\4"," and ")
end) -- end)
conds=conds:gsub("(\".*[\5].*\")",function(a) -- print(conds)
return a:gsub("\4"," or ") -- conds=conds:gsub("(\".*[\5].*\")",function(a)
end) -- return a:gsub("\4"," or ")
-- end)
local count=0 local count=0
local mathass=0 local mathass=0
_conds=conds:gsub("%s*\5".."1==0","") _conds=conds:gsub("%s*\5".."1==0","")
@ -582,18 +610,24 @@ function parseManager:compileLogic(condition,iff,elsee,name)
} }
local l,r=(l:gsub("[\4\5\6]*%(","")),(r:gsub("%)","")) local l,r=(l:gsub("[\4\5\6]*%(","")),(r:gsub("%)",""))
if l=="true" then if l=="true" then
-- print("L",1,r)
cmds.args[1]=true cmds.args[1]=true
elseif l=="false" then elseif l=="false" then
-- print("L",2,r)
cmds.args[1]=false cmds.args[1]=false
elseif tonumber(l) then elseif tonumber(l) then
-- print("L",3,r)
cmds.args[1]=tonumber(l) cmds.args[1]=tonumber(l)
elseif l:match("[%w_]+")==l then elseif l:match("[%w_]+")==l then
-- print("L",4,r)
cmds.args[1]="\1"..l cmds.args[1]="\1"..l
elseif l:match("[_%w%+%-/%*%^%(%)%%]+")==l then elseif l:match("[%._%w%+%-/%*%^%(%)%%]+")==l then
-- print("L",5,r)
self:compileExpr("&"..charM,l,name) self:compileExpr("&"..charM,l,name)
cmds.args[1]="\1&"..charM cmds.args[1]="\1&"..charM
mathass=mathass+1 mathass=mathass+1
elseif l:sub(1,1)=="\"" and l:sub(-1,-1) then elseif l:sub(1,1)=="\"" and l:sub(-1,-1) then
-- print("L",6,r)
cmds.args[1]=l:sub(2,-2) cmds.args[1]=l:sub(2,-2)
else else
self:pushError("Invalid Syntax in logical expression!",l) self:pushError("Invalid Syntax in logical expression!",l)
@ -601,18 +635,24 @@ function parseManager:compileLogic(condition,iff,elsee,name)
r=r:gsub("%s*\5".."1==0","") r=r:gsub("%s*\5".."1==0","")
charM=string.char(mathass+65) charM=string.char(mathass+65)
if r=="true" then if r=="true" then
-- print(1,r)
cmds.args[2]=true cmds.args[2]=true
elseif r=="false" then elseif r=="false" then
-- print(2,r)
cmds.args[2]=false cmds.args[2]=false
elseif tonumber(r) then elseif tonumber(r) then
-- print(3,r)
cmds.args[2]=tonumber(r) cmds.args[2]=tonumber(r)
elseif r:match("[%w_]+")==r then elseif r:match("[%w_]+")==r then
-- print(4,r)
cmds.args[2]="\1"..r cmds.args[2]="\1"..r
elseif r:match("[_%w%+%-/%*%^%(%)%%]+")==r then elseif r:match("[_%w%+%-/%*%^%(%)%%]+")==r then
-- print(5,r)
self:compileExpr("&"..charM,r,name) self:compileExpr("&"..charM,r,name)
cmds.args[2]="\1&"..charM cmds.args[2]="\1&"..charM
mathass=mathass+1 mathass=mathass+1
elseif r:sub(1,1)=="\"" and r:sub(-1,-1) then elseif r:sub(1,1)=="\"" and r:sub(-1,-1) then
-- print(6,r)
cmds.args[2]=r:sub(2,-2) cmds.args[2]=r:sub(2,-2)
else else
self:pushError("Invalid Syntax in logical expression!",r) self:pushError("Invalid Syntax in logical expression!",r)
@ -635,7 +675,11 @@ function parseManager:compileLogic(condition,iff,elsee,name)
}) })
FWORi,argsi=iff:match("^([%w_]+)%s*%((.*)%)") FWORi,argsi=iff:match("^([%w_]+)%s*%((.*)%)")
FWORe,argse=elsee:match("^([%w_]+)%s*%((.*)%)") FWORe,argse=elsee:match("^([%w_]+)%s*%((.*)%)")
if FWORi=="SKIP" then
self:compileFWOR(FWORi,tostring(tonumber(argsi)+1),name)
else
self:compileFWOR(FWORi,argsi,name) self:compileFWOR(FWORi,argsi,name)
end
self:compileFWOR(FWORe,argse,name) self:compileFWOR(FWORe,argse,name)
end end
pieceLogic(condition) pieceLogic(condition)
@ -654,6 +698,11 @@ function parseManager:compile(name,ctype,data)
self.methods[name]=function(...) self.methods[name]=function(...)
self:Invoke(name,...) self:Invoke(name,...)
end end
self.__INTERNAL[name] = true
-- if not self.variables.__internal then
-- self.variables.__internal = {}
-- end
-- self.variables.__internal[name] = true
self.mainENV[name]=self.methods[name] self.mainENV[name]=self.methods[name]
table.insert(self.chunks[name],{ table.insert(self.chunks[name],{
Type="funcblock", Type="funcblock",
@ -770,12 +819,16 @@ function parseManager:testDict(dict)
return return
end end
end end
function parseManager:dataToValue(name,envF) -- includes \1\ function parseManager:dataToValue(name,envF,b) -- includes \1\
envF=envF or self.currentENV envF=envF or self.currentENV
local tab=name local tab=name
if type(name)=="string" then if type(name)=="string" then
if tonumber(name) then return tonumber(name) end
local ret
if name:sub(1,1)=="\1" then if name:sub(1,1)=="\1" then
return self:parseHeader(envF[name:sub(2)]) return self:parseHeader(envF[name:sub(2)])
elseif b then
return self:parseHeader2(name)
else else
return self:parseHeader(name) return self:parseHeader(name)
end end
@ -784,7 +837,7 @@ function parseManager:dataToValue(name,envF) -- includes \1\
return name return name
end end
if self:testDict(name) then if self:testDict(name) then
return envF[name[1]:sub(2,-1)][self:dataToValue(name[2])] return envF[name[1]:sub(2,-1)][self:dataToValue(name[2],envF)]
else else
tab={} tab={}
for i=1,#name do for i=1,#name do
@ -819,6 +872,7 @@ function parseManager:Invoke(func,vars,...)
self.fArgs={self.lastCall} self.fArgs={self.lastCall}
end end
push(self.stack,{chunk=self.currentChunk,pos=self.currentChunk.pos,env=self.currentENV,vars=vars}) push(self.stack,{chunk=self.currentChunk,pos=self.currentChunk.pos,env=self.currentENV,vars=vars})
self.currentENV = self:newENV()
self.methods.JUMP(self,name) self.methods.JUMP(self,name)
return return
else else
@ -828,14 +882,132 @@ function parseManager:Invoke(func,vars,...)
self:pushError("Attempt to call a non existing function!",name) self:pushError("Attempt to call a non existing function!",name)
end end
end end
function round(num, numDecimalPlaces)
local mult = 10^(numDecimalPlaces or 0)
return math.floor(num * mult + 0.5) / mult
end
function parseManager:parseHeader2(data)
dat = data:sub(2,-2)
if dat:find(":") and not dat:find("%[") then
local var,num = dat:match("(.-):(.+)")
local num = tonumber(num)
if type(self.currentENV[var])=="number" then
return round(self.currentENV[var],num)
else
self:pushError("Attempt to round a non number!")
end
elseif dat:find("%[") then
if not type(self.currentENV[dat])=="table" then
self:pushError("Attempt to index a non table object!")
return
else
if dat:find(":") then
local var,inwards = dat:match("(.-)%[(.+)%]")
local ind = parseManager.split(inwards,":")
if #ind==2 then
local a,b = tonumber(ind[1]),tonumber(ind[2])
if b <= #self.currentENV[var] then
local str={}
for i=1,b do
table.insert(str,self.currentENV[var][i])
end
return str
else
self:pushError("Attempt to index a table at a non existing location!")
end
end
else
local var,inwards = dat:match("(.-)%[(.+)%]")
local num = tonumber(inwards)
local ind = self.currentENV[inwards]
local sind = self.currentENV[var][inwards]
if num then
return self.currentENV[var][num]
elseif ind then
return self.currentENV[var][ind]
elseif sind then
return sind
else
self:pushError("Invalid index: "..inwards.."!")
end
end
end
else
-- regular strings
debug("PARSE DATA: "..tostring(self.currentENV[dat]))
if self.currentENV[dat]~=nil then
if type(self.currentENV[dat])=="table" then
local str={}
for i=1,#self.currentENV[dat] do
table.insert(str,self.currentENV[dat][i])
end
return str
else
return self.currentENV[dat]
end
else
return nil
end
end
end
function parseManager:parseHeader(data) function parseManager:parseHeader(data)
if type(data)=="string" then if type(data)=="string" then
data=data:gsub("%$([%w_:%.%[%]\"']+)%$",function(dat) data=data:gsub("%$([%w_,:%.%[%]%-\"']+)%$",function(dat)
debug("PARSE: "..dat) debug("PARSE: "..dat)
if dat:find(":") then if dat:find(":") and not dat:find("%[") then
-- for later use local var,num = dat:match("(.-):(.+)")
local num = tonumber(num)
if type(self.currentENV[var])=="number" then
local str = ""
local n = num
num = round(self.currentENV[var],num)
if n>0 and math.floor(num)==num then -- This only for string version
str = "."..string.rep("0",n)
elseif n>0 then
local s = tostring(num)
str = string.rep("0",n-(#s-s:find("%.")))
end
return num..str
else
self:pushError("Attempt to round a non number!")
end
elseif dat:find("%[") then elseif dat:find("%[") then
-- for dicts if not type(self.currentENV[dat])=="table" then
self:pushError("Attempt to index a non table object!")
return
else
if dat:find(":") then
local var,inwards = dat:match("(.-)%[(.+)%]")
local ind = parseManager.split(inwards,":")
if #ind==2 then
local a,b = tonumber(ind[1]),tonumber(ind[2])
if b <= #self.currentENV[var] then
local str=""
for i=1,b do
str=str..tostring(self.currentENV[var][i])..","
end
str=str:sub(1,-2)
return "["..str.."]"
else
self:pushError("Attempt to index a table at a non existing location!")
end
end
else
local var,inwards = dat:match("(.-)%[(.+)%]")
local num = tonumber(inwards)
local ind = self.currentENV[inwards]
local sind = self.currentENV[var][inwards]
if num then
return tostring(self.currentENV[var][num])
elseif ind then
return tostring(self.currentENV[var][ind])
elseif sind then
return tostring(sind)
else
self:pushError("Invalid index: "..inwards.."!")
end
end
end
else else
-- regular strings -- regular strings
debug("PARSE DATA: "..tostring(self.currentENV[dat])) debug("PARSE DATA: "..tostring(self.currentENV[dat]))
@ -920,7 +1092,7 @@ function parseManager:next(block,choice)
self.currentChunk=chunk self.currentChunk=chunk
return {Type="method"} return {Type="method"}
elseif data.Type=="fwr" then elseif data.Type=="fwr" then
local args=self:dataToValue(data.args) local args=self:dataToValue(data.args,nil,data.Func == "__PUSHPARSE")
local rets={} local rets={}
local Func local Func
local Ext=false local Ext=false
@ -932,6 +1104,8 @@ function parseManager:next(block,choice)
end end
if Ext then if Ext then
rets={Func(unpack(args))} rets={Func(unpack(args))}
elseif self.__INTERNAL[data.Func] then
self:Invoke(data.Func,data.vars,unpack(args))
else else
if type(Func)~="function" then if type(Func)~="function" then
rets={self:Invoke(data.Func,data.vars,unpack(args))} rets={self:Invoke(data.Func,data.vars,unpack(args))}

12
parseManager/standardDefine.lua
View File

@ -1,4 +1,13 @@
parseManager:define{ parseManager:define{
__PUSHPARSE = function(self,dat)
return dat
end,
getInput = function(self,prompt)
if prompt then
io.write(prompt)
end
return io.read()
end,
print=function(self,...) print=function(self,...)
print(...) print(...)
end, end,
@ -182,6 +191,9 @@ parseManager:define{
self:pushError("Invalid Arguments!","\2") self:pushError("Invalid Arguments!","\2")
end end
end, end,
random = function(self,a,b)
return math.random(a,b)
end,
ceil=function(self,a) ceil=function(self,a)
if type(self.lastCall)=="number" then if type(self.lastCall)=="number" then
return math.ceil(self.lastCall) return math.ceil(self.lastCall)

71
parsetest3.txt
View File

@ -1,38 +1,37 @@
ENABLE leaking ENTRY START
[TEST]{
"Jump was successful!"
--GOTO("HERE")
}
[START]{ [START]{
"Test 1:" ::name::
t=15 name = getInput("Enter your name: ")
test=2*100 if name=="" then GOTO("name")|SKIP(0)
"test = $test$" ::good::
c=5 print("Player Name: $name$")
test2 = func(2, 3) choice = getInput("Is this name correct? (y/n): ")
"Function calls work :D $test2$" if choice=="y" then SKIP(0)|GOTO("name")
::HERE:: print("Let's play $name$!")
a,b="sdf",true list=["r","p","s"]
"a,b,c = $a$ $b$ $c$" list2=["rock","paper","scissors"]
food="yum" list3=[]
test=true list3["r"]="rock"
stop=21 list3["p"]="paper"
"food = $food$" list3["s"]="scissors"
"test = $test$" ::gameloop::
"stop = $stop$" cpus_mov=random(1,3)
"Test 2:" cpus_move=$list[cpus_mov]$
count=0 player_move = getInput("Enter 'r' 'p' or 's': ")
::loop:: if player_move=="r" or player_move=="p" or player_move=="s" then SKIP(0)|GOTO("gameloop")
"Count = $count$" a=$list2[cpus_mov]$
count=count+1 b=$list3[player_move]$
if count>10 then GOTO("end")|GOTO("loop") if player_move==cpus_move then print("We both played $b$, no one won...")|SKIP(0)
::end:: if cpus_move=="r" and player_move=="s" then print("I won $name$, you lose! You know $a$ beats $b$")|SKIP(0)
"Done!" if cpus_move=="p" and player_move=="r" then print("I won $name$, you lose! You know $a$ beats $b$")|SKIP(0)
QUIT() if cpus_move=="s" and player_move=="p" then print("I won $name$, you lose! You know $a$ beats $b$")|SKIP(0)
b=$list2[cpus_mov]$
a=$list3[player_move]$
if player_move=="r" and cpus_move=="s" then print("$name$ you won wow! I guess my $b$ was no match for your $a$")|SKIP(0)
if player_move=="p" and cpus_move=="r" then print("$name$ you won wow! I guess my $b$ was no match for your $a$")|SKIP(0)
if player_move=="s" and cpus_move=="p" then print("$name$ you won wow! I guess my $b$ was no match for your $a$")|SKIP(0)
::choice::
cho=getInput("That was a fun game! Do you want to play again? (y/n): ")
if cho=="y" then GOTO("gameloop")|SKIP(0)
if cho=="n" then print("Thanks for playing!")|SKIP(0)
} }
[func:function(a,b)]{
"$a$ $b$"
return a+b
}
-- (count==stop and name=="bob") ? GOTO(end) : GOTO(loop)

6
test.lua
View File

@ -15,11 +15,13 @@ parseManager:define({
end end
}) })
test=parseManager:load("parsetest3.txt") test=parseManager:load("parsetest3.txt")
t=test:next("START")
print(test:dump()) print(test:dump())
t=test:next()
while true do while true do
if not t then break end
if t.Type=="text" then if t.Type=="text" then
print(t.text) io.write(t.text)
io.read()
t=test:next() t=test:next()
elseif t.Type=="condition" then elseif t.Type=="condition" then
t=test:next() t=test:next()

5
test2.lua Normal file
View File

@ -0,0 +1,5 @@
function round(num, numDecimalPlaces)
local mult = 10^(numDecimalPlaces or 0)
return math.floor(num * mult + 0.5) / mult
end
print(round(123456.345,2))