forth-stuff/Interpreters.tl

26 lines
1012 B
Plaintext

local ds = require("DataStructures")
local Stack, Dictionary, WordInfo, Environment = ds.Stack, ds.Dictionary, ds.WordInfo, ds.Environment
local helpers = require("CoreHelpers")
local isNumber, skipWhitespace, parseToken = helpers.isNumber, helpers.skipWhitespace, helpers.parseToken
local istream = require("InputStream")
local CoreWords = require("CoreWords")
local Pointer = ds.Pointer
local type Interpreters = record
inner: function(Environment)
outer: function(Environment)
end
function Interpreters.start(env: Environment)
table.insert(env.dictionaries, CoreWords)
local interpreterInstructions = {}
table.insert(interpreterInstructions, helpers.interpreters_outer)
table.insert(interpreterInstructions, helpers.reset)
table.insert(env.recognizers, helpers.recNumber)
table.insert(env.recognizers, helpers.recWord)
local startPointer = Pointer:new()
startPointer.referant = interpreterInstructions
env.instructionPointer = startPointer
helpers.interpreters_inner(env)
end
return Interpreters