forth-stuff/ForthMachine.tl

22 lines
700 B
Plaintext

local istream = require("InputStream")
local helpers = require("CoreHelpers")
local interpreters = require("Interpreters")
local standardInputRefill = helpers.standardInputRefill
local CoreWords = require("CoreWords")
local oneReadInputStream = helpers.oneReadInputStream
local fileStream = helpers.fileStream
local Environment = require("DataStructures").Environment
--interpreters.start(fileStream("codetest.txt"))
local core_dicts = {CoreWords}
local env = Environment:new(istream:new(standardInputRefill), core_dicts)
--local env = Environment:new(fileStream("codetest.forth"), core_dicts)
--local env = Environment:new(oneReadInputStream("14 11 + ."), core_dicts)
interpreters.start(env)