编译原理的一个简单的枚举算法
模仿C
能判断#include;main();int;char;for;printf;scanf;{};
private
//在str中找第一个单词 如果 找到则返回第一个单词的地址（phrase）和下一个要分析单词的入口（nextptr）
//如果str是空串则返回false
function phrase(str:string;phrase,nextptr:pchar):bool; //
//括号匹配函数
//p；判断字符的地址，char：什么括号（包括：;()2种)，deep:允许嵌套么？匹配成功返回true;
function brkmatch(p:pchar;brk:char;deep:bool;next:pchar):bool;
function corbeil(r:trichedit;line,col:pinteger):bool; //line 返回出错的行,col返回出错的列;
function semicolon(p,next:p...[ 查看全文 ]
