Forth 词典和词汇
body, table{font-family: 微软雅黑; font-size: 13.5pt}
table{border-collapse: collapse; border: solid gray; border-width: 2px 0 2px 0;}
th{border: 1px solid gray; padding: 4px; background-color: #DDD;}
td{border: 1px solid gray; padding: 4px;}
tr:nth-child(2n){background-color: #f8f8f8;}
VARIABLE DP 用户变量,其值为词典上部第一个可被使用的内存地址。 |
: HERE ( - addr ) DP @ ; 返回词典上方的地址,它告诉编译程序待用的自由存贮区域始于何处 |
: ALLOT ( n - ) DP +! ; 使 DP 之值增加 n,也即为了某种目的给词典的区域增加 n 个字节。 |
: , ( n - ) HERE ! 2 ALLOT ; 把参数堆栈顶上的数 n 送入到词典上部的下一个可用单元,使 DP 之值增加 2 。(把 n 编入词典) |
: C, ( byte - ) HERE C! 1 ALLOT ; |
INTERPRET -> -FIND -> (FIND) : INTERPRET ( - ) 逐个顺序处理从输入流中分离出来的字符串;或是执行或是编译由当时系统的状态决定。 BEGIN 开始解释程序循环 -FIND ( - pfa b tf , or ff ) 把从输入流中检测到的下一个字符串送到 HERE 处。首先搜索 context 词汇,继之搜索 current 词汇,核实在词典中是否有与在 HERE 处的字符串同名的定义。若有,被找到之词的参数域地址 pfa,长度字节 b 及为真标志 tf 留在堆栈上;若没有,堆栈上仅留下为假标志 ff 。 AGAIN ; : -FIND ( - pfa b tf , or ff ) BL WORD 把以空格为终止符的下一个字符串从输入流中分离出来,并将它送到词典的顶部(HERE 处) HERE 有待去词典中发现的字符串的地址 CONTEXT @ @ 取出在 context 词汇中最后一个(最新)一个被定义词的名字域地址 nfa ,词典搜索行将开始。 (FIND) (addr1 addr2 - pfa b tf , or ff) CODE 词,承担具体搜索工作。addr1是有待被搜索的字符串的地址,addr2是被搜索区的起始地址。(FIND) 从堆栈顶上给出的地址出发搜索词典,以求发现和堆栈上的第二个地址(addr1)处的字符串相符合的名字。若找到,返回相符定义的 pfa , 长度字节以及为真标志。若未找到则仅返回一个假标志。 DUP 0= 检查栈顶标志。 IF 在 context 词汇中未找到同名的定义 DROP 丢弃假标志 HERE 重新取得字符串的地址。 CURRENT @ @ 取出在 current 词汇中最后一个被定义的词的 nfa。 (FIND) 搜索 current 词汇。 ENDIF ; |
Forth 词典和词汇的更多相关文章
- C++第15周(春)项目3 - OOP版电子词典(一)
课程首页在:http://blog.csdn.net/sxhelijian/article/details/11890759.内有完整教学方案及资源链接 [项目3-OOP版电子词典](本程序中须要的相 ...
- 第14周 项目三-OOP版电子词典
做一个简单的电子词典.在文件dictionary.txt中,保存的是英汉对比的一个词典,词汇量近8000个,英文.中文释义与词性间用'\t'隔开. (1)编程序,由用户输入英文词.显示词性和中文释义. ...
- wxWidgets+wxSmith版电子词典
课程首页在:http://blog.csdn.net/sxhelijian/article/details/11890759,内有完整教学方案及资源链接 [项目3-OOP版电子词典](本程序须要的相关 ...
- C++第15周(春)项目3 - OOP版电子词典(二)
课程首页在:http://blog.csdn.net/sxhelijian/article/details/11890759,内有完整教学方案及资源链接 [项目3-OOP版电子词典](本程序须要的相关 ...
- OOP版电子词典
输入代码: /* * Copyright (c) 2014, 烟台大学计算机学院 * All rights reserved. * 文件名:sum123.cpp * 作 者:林海云 * 完毕日期:20 ...
- 第十四周(OOP版电子词典)
/* *copyright(c) 2015,烟台大学计算机学院 *All rights reserved. *文件名:第十四周(OOP版电子词典) *作者:王忠 *完毕日期:2015.6.10 *版本 ...
- 侣行APP
本次要做的是团队共同完成一个项目.由队长组织,全体队员一起讨论分析并完成一款APP的需求调研,分析等工作. 1.团队介绍 队长:杨晓帅 队员 ...
- 看美剧英文字幕学英语的利器——“深蓝英文字幕助手”简介
我从初中开始基本上就是一个英语很烂的人,数理化再好有什么用,工作了,结果发现数理化都没啥用,最有用的还是当年学的最烂的英语.于是在2011年年底开始了学习英语的课程,在学习的过程中,外教经常会放英剧美 ...
- 2013级C++第15周(春)项目——输入输出流及文件文件操作
课程首页在:http://blog.csdn.net/sxhelijian/article/details/11890759.内有完整教学方案及资源链接 本周程序阅读及程序调试中须要的文件,请到htt ...
随机推荐
- Kafka笔记1(初步认识)
Kafka 被称为“分布式提交日志”或“分布式流平台” 文件系统或数据库提交日志用来提供所有事务的持久记录,通过重放这些日志重建系统状态,同时Kafka数据是按照一定顺序持久化保存的,可以按需读取 K ...
- haier周的计算原则
现使用oracle的sql表示出haier周, 经过对其生成结果的分析,发现海尔周是以周日到周六分别作为一周的始末, 用到的oracle sql中会涉及到calendar week的定义,还涉及到了I ...
- gateway + jwt 网关认证
思路: 全局过滤器对所有的请求拦截(生成token有效期30分钟,放入redis设置有效期3天.3天之类可以通过刷新接口自动刷新,超过3天需要重新登录.) 前端在调用接口之前先判断token是否过期( ...
- Install rapyuta Robot Cloud Engine on Ubuntu14.04
# -Rapyuta-installation-in-Ubuntu14.04-LTS-Trusty-This gzip folder is a tested version which can ins ...
- SQL Server通过BCP进行大批量数据导入导出
预置条件: 使用sa帐号登录SQL Server Management Studio,右键点击安全性-登录名-数据库用户名属性,设置服务器角色为sysadmin. 删除已存在的存储过程 String ...
- 第七节 DOM操作应用-高级
表格应用: 获取:tBodies.tHead.tFoot.rows.cells <!DOCTYPE html> <html lang="en"> <h ...
- Linux 网络管理、软件包安装
1.fdisk -l 查看处系统磁盘设备,打boot“*”的是系统启动的磁盘块. (1)查看磁盘Disk /dev/sdb:5368MB(总大小),5368709120bytes(比特位) (2)25 ...
- Ansible 的安装
On Fedora: $ sudo dnf install ansible On RHEL and CentOS: $ sudo yum install ansible On Ubuntu: $ su ...
- 字段值为 null 时,序列化或反序列化成其他值
using Newtonsoft.Json; using Newtonsoft.Json.Serialization; using System; using System.Collections.G ...
- 3rd,Python登录模拟
需求: 1. 用户输入帐号密码进行登陆 2. 用户信息保存在文件内 3. 用户密码输入错误三次后锁定用户 #导入getpass库,用于密码验证 import getpass #定义用户名.密码 _us ...