zheng111.c

本程序是利用c编写的词法分析器

#include <stdio.h>
#include <string.h>
#include <process.h>
struct shaomiao_type
{

  char danci[12];

  int zhongbiema;

}
shaomiao1[60]={{"and",1},{"array",2},{"begin",3},{"bool",4},{"call",5},{"case",6},{"char",7},{"constant",8},{"do",9},{"else",10},{"end",11},{"false",12},{"for",13},{"if",14},{"input",15},{"int",16},{"not",17},{"of",18},{"or",19},{"output",20},{"procedure",21},{"program",22},{"read",23},{"repeat",24},{"set",25},{"true",26},{"until",27},{"var",28},{"while",29},{"write",30}};
struct teshufu_type
{
	char yiyi[12];
	int  erer;
}teshufu1[60]={{"'",38},{"(",39},{")",40},{"*",41},{"+",42},{",",43},{"-",44},{"、",45},{":",46},{">",47},{";",48},{"<",49},{"=",50}}; 


void main()
{
     FILE *in,*out;/*存放输入字符串和输出单词串的文件*/
     char arr[1024];/*arr数组存放单词符号*/
     int ch;
     char N;/*currentchar存放当前输入字符*/
     int i=0;/*arr数组的一个指针*/
	 int j;
	 int n;
	 int m;
	 int p;
      /*以读方式打开输入文件*/
     if((in=fopen("infile.txt","r"))==NULL)
	 {
        printf("can not open file\n");
	 }
        exit(0);
      /*以写方式打开输出文件*/
    if((out=fopen("outfile.txt","w"))==NULL)
	 {
        printf("cannout open outfile\n");
        exit(1);
	 }
	 /*if((guanjianzi=fopen("guanjianzifile.txt","r"))==NULL)
	 {
		 printf("cannout open guanjianzifile\n");
		 exit(2);
	 }
     if((fuhao=fopen("fuhaofile.txt","r"))==NULL)
	 {
		 printf("cannout open fuhaofile\n");
		 exit(3);
	 }
*/     


      //去掉开头空格
     N=fgetc(in);
     while(N==' ')
	 { 
         N=fgetc(in);
	 }



     while(N!='$')
	 {
           /*常数部分判断*/
           if((N>='a'&&N<='z')||(N>='A'&&N<='Z')
              ||(N>='0'&&N<='9')||N=='('||N==')'||N=='{'||N=='}'||N=='>'||N=='<'||N==';'||N==':'||N=='+'||N=='-'
              ||N=='*'||N=='/'||N=='='||N=='!'||N=='&'||(ch=N)=='\n'||N==' '||N=='['||N==']')
		   {
               i=0;//清空arr字符数组
               if(N>='0'&&N<='9')
			   {
                   arr[i++]=N;
                   N=fgetc(in);//再读入下一个字符
                   while(N>='0'&&N<='9')
				   {
                           arr[i++]=N;
                           N=fgetc(in);
				   }
               if(N!='.')//如果当前读入的符号不为小数点，则常数读完毕，输出此常数
			   {
                   arr[i++]='\0';
                   fprintf(out,"%s%d,%c%s%c%s\n","(",15,'"',arr,'"',")");//格式化输出到目标文件，15代表种别码， arr为内码值，规定用数字本身代表
			   }
               else //当前字符为小数点则继续向下读入
			   {
                    arr[i++]=N;
                    N=fgetc(in);
                    while(N>='0'&&N<='9')
					{
                        arr[i++]=N;
                        N=fgetc(in);
					}
					if(N=='e')
					{
                           arr[i++]=N;
                            N=fgetc(in);
                              while(N>='0'&&N<='9')
							  {
                                  arr[i++]=N;
                                 N=fgetc(in);
							  }
				        arr[i++]='\0';
                    fprintf(out,"%s%d,%c%s%c%s\n","(",15,'"',arr,'"',")");  
					}
					else
                    {
						arr[i++]='\0';
                    fprintf(out,"%s%d,%c%s%c%s\n","(",15,'"',arr,'"',")");
					}
			   }
               while(N==' ')
			   { 
                     N=fgetc(in);
			   }
		}
/*识别注释*/


/*判断标识符和关键字部分*/
if((N>='a'&&N<='z')||(N>='A'&&N<='Z'))
{
i=0;//清空arr字符数组
    while((N>='a'&&N<='z')||(N>='0'&&N<='9')||(N>='A'&&N<='Z'))
 {
    arr[i++]=N;
    N=fgetc(in);
 }
//把字符数组arr和关键字表比较，判断单词串是关键字还是标识符
    arr[i++]='\0';
	for(j=0;j<60;j++)
	{
		n=strcmp(arr,shaomiao1[j].danci);
		if(n==0)
		{
			fprintf(out,"%s%d,%c%s%c%s\n","(",shaomiao1[j].zhongbiema,'"',arr,'"',")");
		}
		else
           fprintf(out,"%s%d,%c%s%c%s\n","(",14,'"',arr,'"',")");
	}
	
    /*if(strcmp(arr,"and")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",0,'"',arr,'"',")");
    else if(strcmp(arr,"array")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",1,'"',arr,'"',")");
    else if(strcmp(arr,"begin")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",2,'"',arr,'"',")");
    else if(strcmp(arr,"bool")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",3,'"',arr,'"',")");
    else if(strcmp(arr,"call")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",4,'"',arr,'"',")");
    else if(strcmp(arr,"case")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",5,'"',arr,'"',")");
    else if(strcmp(arr,"char")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",6,'"',arr,'"',")");
    else if(strcmp(arr,"constant")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",7,'"',arr,'"',")");
    else if(strcmp(arr,"do")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",8,'"',arr,'"',")");
    else if(strcmp(arr,"else")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",9,'"',arr,'"',")");
    else if(strcmp(arr,"end")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",10,'"',arr,'"',")");
    else if(strcmp(arr,"false")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",11,'"',arr,'"',")");
    else if(strcmp(arr,"for")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",12,'"',arr,'"',")");
    else if(strcmp(arr,"if")==0)
    fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");

	else
 fprintf(out,"%s%d,%c%s%c%s\n","(",14,'"',arr,'"',")");*/
}
while(N==' ')
{ 
 N=fgetc(in);
}
//判断标识符包括：+, -, *, /, (, ), {, }, <, >, ;, :, !=, >=, <=, ==, =.
if(N=='('||N==')'||N=='{'||N=='}'||N=='>'||N=='<'||N==';'||N==':'||N=='+'||N=='-'
              ||N=='*'||N=='/'||N=='='||N=='!'||N=='&'||(ch=N)=='\n'||N==' '||N=='['||N==']')
	for(m=0;m<60;m++)
	{
		p=strcmp(arr,teshufu[m].yiyi);
		if(p==0)
		{
			fprintf(out,"%s%d,%c%s%c%s\n","(",teshufu[j].erer,'"',arr,'"',")");
		}
		N=fgetc(in);
	}
/*if(N=='+')
{
    fprintf(out,"%s%d,%c%c%c%s\n","(",9,'"',N,'"',")");
    N=fgetc(in);
}*/
while(N==' ')
{ 
 N=fgetc(in);
}
/*if(N=='-')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",10,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='*')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",11,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}*/
if(N=='/')
{i=0;
arr[i++]=N;
 N=fgetc(in);

	   if (N=='*')
	{
		 arr[i++]=N;
         N=fgetc(in);
         while(N!='*')
		 {
            arr[i++]=N;
            N=fgetc(in);
		 }
		 if(N=='*')
		 {
		    arr[i++]=N;
            N=fgetc(in);
			if(N=='/')
            {arr[i++]=N;
			arr[i++]='\0';
                    fprintf(out,"%s%d,%c%s%c%s\n","(",20,'"',arr,'"',")");
					N=fgetc(in);
			}
		 }
	}
else

{arr[i++]='\0';
	fprintf(out,"%s%d,%c%c%c%s\n","(",12,'"',N,'"',")");
N=fgetc(in);}
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='=')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N=='=')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
     N=fgetc(in);
 }
 else
 { arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",17,'"',arr,'"',")");
    }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N==';')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",4,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='{')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",5,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='}')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",6,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='[')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",20,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N==']')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",21,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
/*if(N=='(')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",7,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N==')')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",8,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}*/
if(N==':')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N==':')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",18,'"',arr,'"',")");
     N=fgetc(in);
 }
 else
 { arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",16,'"',arr,'"',")");
    }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='>')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N=='=')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
     N=fgetc(in);
 }
 else
 { arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
    }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='<')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N=='=')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
     N=fgetc(in);
 }
 else
 { arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
    }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='!')
{
 i=0;
 arr[i++]=N;
 N=fgetc(in);
 if(N=='=')
 {
  arr[i++]=N;
  arr[i++]='\0';
  fprintf(out,"%s%d,%c%s%c%s\n","(",13,'"',arr,'"',")");
     N=fgetc(in);
 }
}
while(N==' ')
{ 
 N=fgetc(in);
}
if(N=='&')
{
 fprintf(out,"%s%d,%c%c%c%s\n","(",19,'"',N,'"',")");
    N=fgetc(in);
}
while(N==' ')
{ 
 N=fgetc(in);
}
while((ch=N)=='\n')
{
 N=fgetc(in);
}
 while(N==' ')
{
 N=fgetc(in);
}
}
else
{
 fprintf(out,"%s,%c%c%c\n","error",'"',N,'"');
    N=fgetc(in);
}

}//结束开头while语句
/*关闭文件退出*/
fclose(in);
fclose(out);
}