#include"scanner.h"

#define TOKEN_LEN 100

unsigned int LineNo;
static FILE* InFile;
static char TokenBuffer[TOKEN_LEN];

//初始化詞法分析器
extern int InitScanner(const char *FileName){
  LineNo=1;
  InFile=fopen(FileName,"r");
  if(InFile!=NULL)return 1;
  else return 0;
}

//關閉詞法分析器
extern void CloseScanner(void){
	if(InFile!=NULL)fclose(InFile);
}

//從輸入源程序中讀入一個字符
static char GetChar(void){
	int Char=getc(InFile);
	return toupper(Char);
}

//把預讀的字符退回到輸入源程序
static void BackChar(char Char)
{
	if(Char!=EOF) ungetc(Char,InFile);
}

//加入字符到記號緩沖區(qū)
static void AddCharTokenString(char Char){
	int TokenLength=strlen(TokenBuffer);
	if(TokenLength+1>=sizeof(TokenBuffer)) return;
	TokenBuffer[TokenLength ]=Char;
	TokenBuffer[TokenLength+1]='\0';
}

//清空記號緩沖區(qū)
static void EmptyTokenString(){
    memset(TokenBuffer,0,TOKEN_LEN);
}

//判斷所給的字符串是否在符號表中
static JudgeKeyToken(const char* IDString){
	int loop;
	for(loop=0;loop<sizeof(TokenTab)/sizeof(TokenTab[0]); loop++)
	{
		if(strcmp(TokenTab[loop].lexeme,IDString)==0 )return TokenTab[loop];
	}
	Token errortoken;
	memset(&errortoken,0,sizeof(Token));
	errortoken.type =ERRORTOKEN;
	return errortoken;
}

//獲取一個記號
extern Token GetToken(void){
	Token token;
	int Char;

	memset(&token,0,sizeof(Token));
	EmptyTokenString();
	token.lexeme =TokenBuffer;
	for(;;)
	{
		Char=GetChar();
		if(Char==EOF){
		token.type =NONTOKEN;
		return token;
		}
		if(Char=='\n') LineNo++;
		if(!isspace(Char)) break;
	}
	AddCharTokenString(Char);
	//若不是空格，TAB,回車，文件結束符，則先加到記號的字符緩沖區(qū)中
	if(isalpha(Char)){
        for(;;)
		{
			Char=GetChar();
			if(isalnum(Char)) AddCharTokenString(Char);
			else break;
		}
		BackChar(Char);
		token=JudgeKeyToken(TokenBuffer);
		token.lexeme =TokenBuffer;
		return token;
	}
	else if(isdigit(Char)){
		for(;;)
		{
			Char=GetChar();
			if(isdigit(Char))  AddCharTokenString(Char);
			else break;
		}
	    if(Char=='.'){
			AddCharTokenString(Char);
			for(;;){
				Char=GetChar();
				if(isdigit(Char)) AddCharTokenString(Char);
				else break;
			}
		}
	   BackChar(Char);
	   token.type =CONST_ID;
	   token.value=atof(TokenBuffer);
	   return token;
	}
	else{
		switch(Char){
		  case';':token.type =SEMICO; break;
		  case'(':token.type =L_BRACKET; break;
		  case')':token.type =R_BRACKET; break;
		  case',':token.type =COMMA; break;
		  case'+':token.type =PLUS; break;
		  case'-':
			Char=GetChar();
			if(Char=='-'){
			   while(Char!='\n'&&Char!=EOF) Char=GetChar();
			   BackChar(Char);
			   return GetToken();
			}
			else {
				BackChar(Char);
				token.type =MINUS;
				break;
			}
		 case'/':
			Char=GetChar();
			if(Char=='/'){
				while(Char!='\n'&&Char!=EOF) Char=GetChar();
				BackChar(Char);
				return GetToken();
			}
			else{
				BackChar(Char);
				token.type =DIV;
				break;
			}
		
		 case'*':
			Char=GetChar();
			if(Char=='*'){
				token.type =POWER;
				break;
			}
			else{
				BackChar(Char);
				token.type =MUL;
				break;
			}
		default: token.type =ERRORTOKEN; break;

		}
	}
	return token;
}