#include <iostream.h>            //定義I/o庫所用的某些宏和變量
#include <string.h>              //定義字符串庫函數
#include <stdio.h>
char prog[80],token[8];
char ch;
int syn,p,m,n,sum,kk=0;                //p是緩沖區prog 的指針，m 是token 的指針
char *rwtab[6]={"begin","if","then","while","do","end"};
void term();
void statement();
void foctor();
void expression();
void yucu();
void main()
{
    void irparser();
    void scaner();      //對 scaner 函數進行聲明
p=0;
cout<<"\n please input string:\n"<<endl;
do 
{
	scanf("%c",&ch);
	prog[p++]=ch;        //輸入源程序字符串,送入緩沖區
}
while (ch!='#');
p=0;
//do
//{
	scaner();                //調用詞法分析函數
    irparser();
//}while(ch!=0);
}
 void scaner()
{
	for(n=0;n<8;n++)
		token[n]=NULL;
	m=0;
	ch=prog[p++];       //讀下一個字符
	while(ch==' ')
		ch=prog[p++];    //讀下一個字符
	if((65<=ch && ch<=90)||(97<=ch && ch<=122))   //ch是字母字符
	{
		while((65<=ch && ch<=90)||(97<=ch && ch<=122)||(48<=ch && ch<=57))  //ch為字母字符或數字字符
		{
		token[m]=ch;
		m++;
		ch=prog[p++];         //讀下一個字符
		}
	token[m++]='\0';
	p--;                //回退一個字符
	syn=10;
	for(n=0;n<6;n++)
		if(strcmp(token,rwtab[n])==0)
		{
			switch(n)                    //給出syn的值
			{
             case 0:syn=1;break;
		     case 1:syn=2;break;
		     case 2:syn=3;break;
		     case 3:syn=4;break;
		     case 4:syn=5;break;
			 case 5:syn=6;break;
			}
		}
	}
	else if(ch>=48 && ch<=57)        //如果ch數字字符
		{
		  while(ch>=48 && ch<=57)    //當ch為數字字符時
		  {
			sum=sum*10+ch-'0';
			ch=prog[p++];        //讀下一個字符
		  }
		  p-- ;                   //回退一個字符
		  syn=11;
		}
	else
	switch(ch)
	{
		case'<':m=0;token[m++]=ch;
			    ch=prog[p++];     //讀下一個字符
				if(ch=='>') 
				{
					syn=21;
					token[m++]=ch;
				}
				else if(ch=='=')
				{
					syn=22;
					token[m++]=ch;
				}
				else  { syn=20;  p-- ; }     //回退一個字符
				break;
		case'>':m=0;
			    token[m++]=ch;
			    ch=prog[p++];          //讀下一個字符
				if(ch=='=')
				{
					syn=24;
					token[m++]=ch;        //將>=的種別碼賦給syn
				}
				else
				{
					syn=23;           //將>的種別碼賦給syn
					p--; 
				}
				break;
		case':':m=0;token[m++]=ch;
			    ch=prog[p++];  
				if(ch=='=')
				{
					syn=18;          //將:=的種別碼賦給syn
                    token[m++]=ch;
				}
				else
				{
					syn=17;         //將:的種別碼賦給syn
					p--;  
				}
				break;
	
				case'+':syn=13;token[0]=ch;break;
		        case'-':syn=14;token[0]=ch;break;
	          	case'*':syn=15;token[0]=ch;break;
	           	case'/':syn=16;token[0]=ch;break;
	          	case'=':syn=25;token[0]=ch;break;
	            case';':syn=26;token[0]=ch;break;
	        	case'(':syn=27;token[0]=ch;break;
	            case')':syn=28;token[0]=ch;break;
	        	case'#':syn=0;token[0]=ch;break;
		        default:syn=-1;
}}

 void irparser()
{
	if(syn==1)
	{
		scaner();
	    yucu();
		if(syn==6)
		{
			scaner();
		    if(syn==0&&(kk==0))
			cout<<"success"<<endl;
		}
		else 
		{
			if(kk!=1)
		    cout<<"缺 end 錯誤"<<endl;kk=1;
		}
	}
	else{cout<<"缺 begin 錯誤"<<endl;kk=1;}
		return;
}

	void yucu()
	{
	statement();
	while(syn==26)
	{
		scaner();
		statement();
	}
	return;

	}
 void statement()
	{
	if(syn==10)
	{
		scaner();
	    if(syn==18)
		{
			scaner();
	        expression();
		}
	    else{cout<<"賦值號錯誤"<<endl;kk=1;}
	}
	else{cout<<"語句錯誤"<<endl;kk=1;}
	return;
	}

	void expression()
	{
		term();
		while(syn==13 || syn==14)
		{scaner();
		term();
		}
		return;
	}

	void term()
	{
		foctor();
		while(syn==15 || syn==16)
		{
			scaner();
			foctor();
		}
		return;
	}

	void foctor()
	{
		if(syn==10 || syn==11)
			scaner();
		else if(syn=27)
		{
			scaner();
			expression();
			if(syn==28)
			scaner();
			else
			{
			cout<<"')'錯誤"<<endl;
			kk=1;
			}
		}
		else{cout<<"表達式錯誤"<<endl;kk=1;}
		return;
	}