lexer.c

来自「编译原理 做一个后缀翻译 还有抽象堆栈机代码翻译」· C语言 代码 · 共 49 行

/****lexer.c*******/

#include "global.h"

char lexbuf[BSIZE];
int lineno=1;
int tokenval=NONE;

int lexan()
{
	int t;
	while(1){
		t=fgetc(fpo);//t=getchar();
		if(t==' '||t=='\t')
			;
		else if(t=='\n')
			lineno++;
		else if(isdigit(t)){
			ungetc(t,fpo);//ungetc(t,stdin);
			fscanf(fpo,"%d",&tokenval);//scanf("%d",&tokenval);
			return NUM;
		}
		else if(isalpha(t)){
			int p,b=0;
			while(isalnum(t)){
				lexbuf[b]=t;
				t=fgetc(fpo);//t=getchar();
				b++;
				if(b>=BSIZE)
					error("compiler error");
			}
			lexbuf[b]=EOS;
			if(t!=EOF)
				ungetc(t,fpo);//ungetc(t,stdin);
			p=lookup(lexbuf);
			if(p==0)
				p=insert(lexbuf,ID);
			tokenval=p;
			return symtable[p].token;
		}
		else if(t==EOF)
			return DONE;
		else {
			tokenval=NONE;
			return t;
		}
	}
}