heavpoot/potatOS-patch-1
1
0
Fork 0
forked from osmarks/potatOS
Code Issues Pull Requests Releases Wiki Activity

Fix bugs or something

Browse Source
This commit is contained in:
heavpoot 2021-01-29 19:31:43 +00:00
parent 3596824ffb
commit e2909fa834
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/xlib/03_heavlisp.lua
View File

@ -1,3 +1,5 @@
if not unpack then unpack = table.unpack end
local pprint = require("pprint")
function deepclone(t)
local res={}
for i,v in ipairs(t) do
@ -173,7 +175,8 @@ function into_ast(tokens)
local tmp=p()
if (tmp==nil) or tmp==false or tokens[bk][1]=="EOF" then
if tokens[bk][1]~="EOF" then
error("[HL] line "..tokens[bk].line..": some syntax error occured.")
print("line "..tokens[bk].line..": some syntax error occured.")
os.exit(1)
end
ptr=bk
break
@ -265,7 +268,8 @@ function interpret(ast,imports)
end
end
local function throwerror(reason)
error("[HL] line "..cline..": "..reason)
print("line "..cline..": "..reason)
os.exit(1)
end
local function get(k)
local t=top()
@ -298,6 +302,7 @@ function interpret(ast,imports)
["number"]="number",
["boolean"]="bool",
["table"]="list",
["function"]="function",
})[type(v)],value=v})
end
end
@ -363,7 +368,7 @@ function interpret(ast,imports)
if x and x.type=="list" then
local res={type="list",value={}}
for i,v in pairs(x.value) do
table.insert(res.value,i)
table.insert(res.value,to(i))
end
return res
end
@ -419,7 +424,7 @@ function interpret(ast,imports)
tmp[#tmp+1]="(function)"
end
end
print(#args>0 and unpack(tmp) or "nil")
print(unpack(tmp))
return {type="bool",value=true}
end,
["type"]=function(x)
@ -574,4 +579,4 @@ end
local function run(x,lua)
return interpret(into_ast(tokenize(x)),lua)
end
return {run=run, interpret=interpret, into_ast=into_ast, tokenize=tokenize}
return {run=run}