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