int code, value;
strToken := ““;
GetChar(); //将下一字符读入ch中, 搜索指示器前移一个字符位置
GetBC(); //检查ch中的字符是否为空白,若是调用GetChar直至读入非空白字符if (IsLetter())//判断ch中的字符是否为字母
begin
while (IsLetter() or IsDigit())
begin
Concat(); //将ch中的字符连接到strToken之后
GetChar();
End
Retract(); //将搜索指示器回退一个字符位置, 将ch置为空
code = Reserve(); //对strToken中的字符串查找保留字表,若是,返回编码;否则返回0 if (code = 0)
begin
value := InsertId(strToken); //将strToken中的标识符插入符号表,返回指针
return ($ID, value);
end
else
return (code, -);
end
else if (IsDigit())//判断ch中的字符是否为数字
begin
while (IsDigit))
begin
Concat();
GetChar();
End
Retract();
Value := InsertToken(); //将strToken中的标识符插入常数表,返回指针
return ($INT, value);
end
else if (ch = ‘=’)return ($ASSIGN, -);
else if (ch = ‘+’)return ($PLUS, -);
else if (ch = ‘*’)
begin
GetChar();
if (ch = ‘*’) return ($POWER,-);
Retract(); return ($STAR,-);
end
else if (ch = ‘;’)return ($SEMICOLON, -);
else if (ch = ‘(’)return ($LPAR, -);
else if (ch = ‘)’)return ($RPAR, -); else if (ch = ‘{’)return ($LBRACE, -); else if (ch = ‘}’ )return ($RBRACE, -); else ProcError(); //错误处理。