Forth:用Ada编写的Forth口译员

在阿达的第四 这是我在Ada中编写Forth解释器的尝试。 我没有使用直接方法，而是选择给系统提供一些类型（最著名的是整数和字符串）。 解析/解释性奇数 Forth.Tokenize输入字符串解析为以空格分隔的[当前不处理选项卡]字。 然后处理该单词列表（ Forth.Handle_Strings ），以使。“和s”触发例程以合并列表中的尾随字符串[并添加缺少的空格]，该例程以列表中以字符串结尾的字符串终止双引号，并且不是两个连续的双引号。 将两个连续的双引号引起来的单词转换为单个双引号。 到目前为止，所有内容都没有使用返回堆栈。 去做： 继续添加核心词。 为基本类型（特别是BLOB）实现明智的运算符。 利润？