词法分析子程序名为 getsym，功能是从源程序中读出一个单词符号
（token），把它的信息放入全局变量 sym、id 和 num 中，语法分析器需
要
单词时，直接从这三个变量中获得。（注意！语法分析器每次用完这三个变
量的值就立即调用 getsym 子程序获取新的单词供下一次使用。而不
是在需要新单词 时才调用 getsym 过程。）getsym 过程通过反 复调用
getch 子过程从源程序过获取字符，并把它们拼成单词。getch 过程中使用
了
行缓冲区技术以提高程序运行效率。
词法分析器的分析过程：调用 getsym 时，它通过 getch 过程从源程序
中获得一个字符。如果这个字符是字母，则继续获取字符或数字，最终
可以拼成一个单词，查保留字表，如果查到为保留字，则把 sym 变量赋成相
应的保留字类型值；如果没有查到，则这个单词应是一个用户自定义
的标识符（可能是变量名、常量名或是过程的名字），把 sym 置为 ident，
把这个单词存入 id 变量。查保留字表时使用了二分法查找以提高效率
。如果 getch 获得的字符是数字，则继续用 getch 获取数字，并把它们拼成
一个整数，然后把 sym 置为 number，并把拼成的数值放入 num 变量。如
果识别出其它合法的符号（比如：赋值号、大于号、小于等于号等），则把
sym 则成相应的类型。如果遇到不合法的字符，把 sym 置成 nul。
procedure getsym;
var
i, j, k: integer;
(* 读取原程序中下一个字符过程 getch *)
procedure getch;
begin
if cc = ll then (* 如果行缓冲区指针指向行缓冲区最后一个字符就从文件
读一行到行缓冲区 *)
begin
if eof(%n) then (* 如果到达文件末尾 *)
begin
write(‘Program incomplete’); (* 出错，退出程序 *)
close(%n);
exit;
end;
ll := 0; (* 行缓冲区长度置 0 *)
cc := 0; (* 行缓冲区指针置行首 *)
write(cx: 4, ‘ ‘); (* 输出 cx 值，宽度为 4 *)
write(fa1, cx: 4, ‘ ‘); (* 输出 cx 值，宽度为 4 到文件 *)
while not eoln(%n) do (* 当未到行末时 *)
