op.lua

local lang = require "oplang"
local args = {...}
if args[1] then
    ---@type string
    local path = args[1]
    local file = io.open(path, "r")
    if not file then
        print(("couldn't open path %q"):format(path))
        return
    end
    local text = file:read("a")
    file:close()
    local tokens = lang.lexer.lex(path, text)
    -- for _, token in ipairs(tokens) do io.write(tostring(token).." ") end print()
    local node, err, epos = lang.parser.parse(tokens) if err and not node then
        print(tostring(epos).." - ERROR: "..err)
    end
    -- print(node:repr())
    local context = lang.eval.STDContext()
    local value, ret, err, epos = lang.eval.eval(node, context) if err then
        print(tostring(epos).." - ERROR: "..err.."\n"..context:trace())
    end
    if ret == "return" then print(value) end
end