Forth 文本解释程序

Posted meihao1203

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Forth 文本解释程序相关的知识,希望对你有一定的参考价值。

      FORTH 中有一组用户变量,由这组变量记录和保存程序的运行环境。DP 指向词典区的下一个可用地址。SP0 指向参数堆栈的起点。RP0 指向返回堆栈的起点。
[email protected] (- addr) 参数堆栈指针
SP!  ( n - ) 把参数堆栈指针设置成规定的数值
[email protected] (- addr) 返回堆栈指针
RP! (n - ) 把返回堆栈指针置为规定的数值

:  QUIT     FORTH 的主要循环。接收来自终端的输入并解释执行,如果成功则显示“ok”.  
        SP0  @  '  TIB   !     置终端输入缓存区在参数堆栈上方。
        BLK  OFF     令 BLK 为0,处理来自终端的输入。
        [COMPILE]  [     令 STATE 为0,使系统处于解释状态。
        BEGIN     进入 FORTH 主要循环。
            RP0  @  RP!  STATUS     初始化返回堆栈指针。送出一个回车换行。
            QUERY     催促使用者从终端输入下一行并将输入行传送到 TIB 中。
            RUN     处理所接收的行。
            STATE  @  NOT     如果 STATE 为0,系统处于执行状态。
            IF  ."  OK"  THEN     显示出信息"ok"。
        AGAIN  ;     无穷循环:一行处理完毕后要求得到下一行。

:  RUN  ( - )     改进了的解释程序,运行分行输入一个冒号定义。
        STATE  @  IF     若 STATE 不为0。系统必须处于编译状态。
        ]     调用编译程序。
        STATE  @  NOT     编译完一源行后再次检查 STATE 之值。
           IF  INTERPRET  THEN     若系统已脱离了编译状态,那么就执行该行的剩余部分,否则退出。
        ELSE  INTERPRET     STATE 为0,执行命令
        THEN  ;

RUN 的过程就是: IF 编译  ELSE  执行  THEN  ;   


:  INTERPRET   ( - )     forth 解释程序循环:分离出输入流中的词,如果它在词典中有定义,则执行之。否则将其转换为一个数字并放置到参数栈上。
        BEGIN
             ?STACK                 检查堆栈有无上溢或下溢
             DEFINED               取出输入流中的下一个词,返回它的 cfa 及一个标志
             IF  EXECUTE          如果该词已被定义,则执行
             ELSE  NUMBER     否则转换成为一个数字
                  DOUBLE?         它是一个双精度数吗?
                  NOT  IF  DROP  THEN             不是就丢弃它的高 16 位,仅保留低 16 位
             THEN
             FALSE                    在堆栈上为 DONE? 留下一个 FALSE;解释程序死循环,一直在运行
             DONE?                  到了行的末端了?
         UNTIL  ;                     如果已到行结束处,退出循环;否则再次循环去处理下一词。
     // DEFINED 首先取出输入流中的下一个词并把它放到词缓冲区中,然后再词典中搜索该词,若该词在词典中存在,则把它的 cfa 放在堆栈上,并在其后跟上一个为真标志。然后就是 EXECUTE 接过堆栈上的 cfa 执行该定义。如果该词不在词典中,控制程序就传给命令 NUMBER ,以期待把缓冲区中的字符串转换成为一个数字。
      在循环开始处 ?STACK 检查堆栈是否有溢出发生。若有溢出系统就被迫转去执行 ABORT,于是一切就从新开始。如果在数字转换过程中遇到错误,系统也同样转去 ABORT 处执行。这两种情况就是非正常脱离解释循环的条件。
:  ?STACK      ( - )          检查参数堆栈是否上溢或下溢,若溢出则控制返回终端。
        [email protected]                      取出现行堆栈指针的值
        SP0  @                  取出栈底的位置
        SWAP  U<            检查是否下溢
        ABORT"  STACK Underflow"                若下溢则执行 ABORT"
        [email protected]  PAD            PAD 之值同时也是参数栈顶的上限
        U<                         检查是否上溢
        ABORT"  Stack Overflow"  ;                 若上溢则也执行 ABORT"

      FORTH 工作的主要轮廓是一个二重循环:外循环是 QUIT 循环;内循环是 INTERPRET 循环。FORTH 启动后即执行 QUIT ,QUIT 选择终端作为输入设备,调用 QUERY 等待使用者从键盘输入一命令行。输入行送至终端输入缓冲区后,QUIT 调用 RUN 处理已接收进来的命令行。RUN 有两个分支:若系统处于编译状态,则 RUN 调用编译程序对所接收的源行进行编译,当从键盘上键入一个冒号开头的定义时,就进入 RUN 的这一个分支;若系统处于解释状态(又叫执行状态),则调用解释程序 INTERPRET 。INTERPRET 调用 DEFINED ,DEFINED 有两个任务:检测出输入流中下一个词并把它复制到词典缓冲区( WORD);再词典中搜索放在词缓冲区中的词( FIND )。// WORD 首先调用 PARSE-WORD ,PARSE-WORD 能够确定输入流来自哪一个输入缓存区。因此文本解释程序不仅仅能处理来自终端的源行,而且能够处理来自磁盘块的源行。输入流不能输入太多字符,如果输入流耗尽,FORTH 就退出 INTERPRET 循环而回到 QUIT 外循环。

以上是关于Forth 文本解释程序的主要内容,如果未能解决你的问题,请参考以下文章

YonBuilder带您解释Forth的由来

如何在替换从文本文件中读取的单词的程序中解释不同的单词长度?

字符编码及文本一

R语言构建文本分类模型并使用LIME进行模型解释实战:文本数据预处理构建词袋模型构建xgboost文本分类模型基于文本训练数据以及模型构建LIME解释器解释一个测试语料的预测结果并可视化

R语言构建文本分类模型并使用LIME进行模型解释实战:文本数据预处理构建词袋模型构建xgboost文本分类模型基于文本训练数据以及模型构建LIME解释器解释多个测试语料的预测结果并可视化

Forth编辑器/可自定义编辑器