}

　　/* 词法分析，获取一个符号 */
　　int getsym()
　　{
　　　int i,j,k;
　　　while(ch==' '||ch==10||ch==9) /* 忽略空格、换行和TAB */
　　　{
　　　　getchdo;
　　　}
　　　if(ch>='a'&&ch<='z')
　　　{ 　　　　　　/* 名字或保留字以a..z开头 */
　　　　k=0;
　　　　do
　　　　{
　　　　　if(k<al)
　　　　　{
　　　　　　a[k]=ch;
　　　　　　k++;
　　　　　}
　　　　　getchdo;
　　　　}
　　　　while(ch>='a'&&ch<='z'||ch>='0'&&ch<='9');
　　　　a[k]=0;
　　　　strcpy(id,a);
　　　　i=0;
　　　　j=norw-1;
　　　　do /* 搜索当前符号是否为保留字 */
　　　　{
　　　　　k=(i+j)/2;
　　　　　if(strcmp(id,word[k])<=0)j=k-1;
　　　　　if(strcmp(id,word[k])>=0)i=k+1;
　　　　}
　　　　while(i<=j);
　　　　if(i-1>j)sym=wsym[k]; else sym=ident; /* 搜索失败则，是名字或数字 */
　　　}
　　　else
　　　{
　　　　if(ch>='0'&&ch<='9')
　　　　{ 　　　　　　　/* 检测是否为数字：以0..9开头 */
　　　　　k=0;
　　　　　num=0;
　　　　　sym=number;
　　　　　do
　　　　　{
　　　　　　num=10*num+ch-'0';
　　　　　　k++;
　　　　　　getchdo;
　　　　　}
　　　　　while(ch>='0'&&ch<='9'); /* 获取数字的值 */
　　　　　k--;
　　　　　if(k>nmax)error(30);
　　　　}
　　　　else
　　　　{
　　　　　if(ch==':') /* 检测赋值符号 */
　　　　　{
　　　　　　getchdo;
　　　　　　if(ch=='=')
　　　　　　{
　　　　　　　sym=becomes;
　　　　　　　getchdo;
　　　　　　}
　　　　　　else
　　　　　　　{
　　　　　　　　sym=nul; /* 不能识别的符号 */
　　　　　　　}
　　　　　　}
　　　　　　else
　　　　　　{
　　　　　　　if(ch=='<') /* 检测小于或小于等于符号 */
　　　　　　　{
　　　　　　　　getchdo;
　　　　　　　　if(ch=='=')
　　　　　　　　{
　　　　　　　　　sym=leq;
　　　　　　　　　getchdo;
　　　　　　　　}
　　　　　　　　else
　　　　　　　　{
　　　　　　　　　sym=lss;
　　　　　　　　}
　　　　　　　}
　　　　　　　else
　　　　　　　{
　　　　　　　　if(ch=='>') /* 检测大于或大于等于符号 */
　　　　　　　　{
　　　　　　　　　getchdo;
　　　　　　　　　if(ch=='=')
　　　　　　　　　{
　　　　　　　　　　sym=geq;
　　　　　　　　　　getchdo;
　　　　　　　　　}
　　　　　　　　　else
　　　　　　　　　{
　　　　　　　　　　sym=gtr;
　　　　　　　　　}
　　　　　　　　}
　　　　　　　　else
　　　　　　　　{
　　　　　　　　　sym=ssym[ch]; /* 当符号不满足上述条件时，全部按照单字符符号处理 */
　　　　　　　　　getchdo;
　　　　　　　　}
　　　　　　　}
　　　　　　}
　　　　　}
　　　　}
　　　　return 0;
　　　}