forth系统门手册22(两个重点).docVIP

forth系统入门手册22(两个重点) 更多FORTH学习资料，请访问/modules/newbb/ QQ群第22章 两个重点 forth曾经被称为只写语言（write-only），写完之后甚至连作者本人都读不懂。其实forth程序是可以变得易读的，只要你能遵循下面两个重点。 第1个重点：命名 ----------------------------《forth的禅思》---------------- ---------- 好的 Forth 程式命名的原则 选择好的指令名称，使程式易读，以下是好的Forth 程式命名的原则 (一)使用有意义的英文字。 (二)不要缩写。 (三)使用复合字如CountEggs , InitDataArray 名字可有31 个字。 (四)使用描述指令做什么的名字，让指令码解释它如何做事。 (五)不要例举像DataAray1,DataArray2 等，给予功能的描述像TemperatureArray , PressArray 等。 (六)指令码分解成短的片语并加以注解。 (七)定义短的定义并使重覆使用他们以提高词汇的再使用能力。 (八)在新定义里避免加入内部回圈的巢状结构。 (九)对输入和输出堆叠(Stack)项目，时时加以注解。 (十)在一个档里组成相关连的指令。 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;; ----------------------------《Thinking Forth》---------------- ---------- 垂直格式对水平格式 注解的目的，在使程式码的读者容易看出正在进行的是什么事。但是，需要多少注解才 够？要决定什么样水平的注解才能满足需要，你必须问自己两个问题： 谁会来读我的程式码？我那些定义的可读性如何？ 注解的文体（styles）基本上有两种可供选择。第一种称为垂直格式，其中包含对过程的逐步叙述，就像是做了很好的注解的组合语言程式列表。这种逐步条列的注解称为叙事式的注解。 \ CRC Checksum : ACCUMULATE ( oldcrc char -- newcrc) 256 * \ shift char to hi-order byte XOR \ xor into previous crc 8 0 DO \ then for eight repetitions, DUP 0 IF \ if hi-order bit is 1 16386 XOR \ xor it with mask and DUP + \ shift it left one place 1+ \ set lo-order bit to 1 ELSE \ otherwise, i.e. hi-order bit is 0 DUP + \ shift it left one place THEN LOOP ; \ complete the loop 另一种不在程式码的片语之间点缀这些叙事式注解的型态称为水平格式。 : ACCUMULATE ( oldcrc char -- newcrc) 256 * XOR 8 0 DO DUP 0 IF 16386 XOR DUP + 1+ ELSE DUP + THEN LOOP ; 垂直格式适用于一大组程式设计师共同撰写及维护一个应用程式的情况。一般而言， 在这样的一组人中，有几个资浅的设计师负责次要的修正工作。在这样的环境下，费一番心力所做的注解总会节省下大量的时间，并且避免不少的困窘。 Moore产业公司的Johnson说：「当维修程式码时，你通常只会对其中的一小段有兴趣，写在那儿的资讯越多，尽快修复的机会也就越大。」 以下为该公司要求符式程式设计师遵守，且颇合要领的规则。 1. 使用垂直格式。注解写在原始码的右方。有需要时，也可以接续到下一行。 2.