符读入ch中搜索指示器前移一字符位chformkkvoidGetBC检查ch中的字符是否为空白若是则调用Getchar直至ch中进入一个非空白字符whilechkGetCharvoidCo
cat将ch中的字符连接到strToke
之后strToke
ichiboolIsLetter判断ch中的字符是否为字符ifchzchachZchAretur
1elseretur
0boolIsDigit判断ch中的字符是否为数字kifch9ch0retur
1elseretur
0i
tReserve对strToke
中的字符串查找保留字表若它是一个保留字则返回它的编码否则返回1值fori
tq0q5q
fifstrcmpKeyWordqstrToke
0retur
qifq4retur
1voidRetract将搜索指示器回调一个字符位置将ch置为空白字符kchNULLcharI
sertId将strToke
中的标识符插入符号表返回符号表的指针chr_formjstrToke
jretur
chr_form0charI
sertCo
st将strToke
中的常数插入常数表返回常数表指针i
t_formtstrToke
tretur
i
t_form0i
tcodevoidOutputi
tacharp1charp2cout