cifafenxiqi.doc

刚学了编译原理

/*本程序用于词法分析：从DOS界面输入一行的C语句，并以#号结尾(注意必须以这个为结束标志，否则出错），要求输出对应的单词的种类码和该类中的
  内码。其中，关键字种类为1，分界符种类为2，算术运算符、关系运算符、常数、标识符分别为3、4、5、6。
  问题：记得对给指针分配内存，否则会出现异常！
  作者：02级计算机4班：chenyiyin于2005年4月13日 Email:[e-mail]
*/


#include<string.h>
#include<stdio.h>
#include<malloc.h>

char * key[8]={"BEGIN","DO","ELSE","END","IF","THEN","VAR","WHILE"};/*存放关键字*/
char * identify[20];                                                /*存放标识符*/
char * constant[20];                                                /*存放常数*/
int id=0;                                            /*全局变量，用于表示标识符的个数*/
int cd=0;                                            /*用于表示常数的个数*/


int Is_number(char ch)                               /*是否是数字*/
{
 return (ch>='0'&&ch<='9');
}

int Is_alphe(char ch)                                /*是否是字母*/
{
 return (ch>='a'&&ch<='z'||ch>='A'&&ch<='Z');
}

void Key_analyse(char * str)                         /*关键字和标识符的分析*/
{
 int i=0;
 int j=0;


 for(;i<8;i++)                                       /*如果和关键字数组中的一个字相同则表示它为关键字*/
 {
  if((strcmp(str,key[i]))==0)                        /*比较*/
  {
   j=1;
   printf("%s	[type,number]---[1,%d]\n",str,i);     /*输出种类和内码*/
  }

 }
 if(j!=1)                                             /*j=1则表示它已经是关键字，否则就是标识符*/
 {
  int i=0;
  for(;i<id;i++)                                      /*和常数表中比较，若表中已经存在这个常数*/
  {                                                   /*则不再添加到表中，否则加入表中。*/
    if(strcmp(identify[i],str)==0)break;
  }
  
  printf("%s    [type,number]---[6,%d]\n",str,i);
  if(i==id)
  {
   identify[id]=(char*)malloc(sizeof(str));
   strcpy(identify[id++],str);
  }
 }

}


void Constant_analyse(char *str)                      /*常数分析*/
{
 int i=0;
 for(;i<cd;i++)
 {
	 if(strcmp(constant[i],str)==0) break;           /*和标识符分析同理*/
 }

 printf("%s     [type,number]---[5,%d]\n",str,i);
 if(i==cd)
 {
  constant[cd]=(char*)malloc(sizeof(str));
  strcpy(constant[cd++],str);
 }
}

void Error_out(char * str)
{
  printf("Error! %s\n",str);
}

void main()
{
 char input[100];                                     /*存放输入的字符串*/
 char ch[10];                                        /*存放用于分析的单词*/

 int input_i=0;
 int ch_i=0;
 int m;
 int n;


 printf("Please input a file name to analyse:\n");
 gets(input);                                  /*输入*/


k:

 ch[ch_i]=input[input_i];                            
 while(ch[ch_i]==' ')                                /*当是空格则继续从input[]中取值*/
    ch[ch_i]=input[++input_i];

 if(Is_alphe(ch[ch_i]))                              /*当第一个为字母时，可以肯定它组成的单词*/
 {                                                   /*不是关键字就是标识符。*/
  while(Is_number(input[input_i+1])||Is_alphe(input[input_i+1]))
    ch[++ch_i]=input[++input_i];                     /*后面可以跟字母或数字*/
  ch[++ch_i]='\0';                                   /*若不是字母或数字就表示这是个单词，结束取数。*/
  Key_analyse(ch);                                   /*分析是关键字还是标识符。*/
 }

 else                                                /*如果第一个不是字母，那么它组成的单词*/
 {                                                   /*可能是常数或符号。*/
  if(Is_number(ch[ch_i]))
  {
    while(Is_number(input[input_i+1]))               /*取常数单词。*/
      ch[++ch_i]=input[++input_i];
	if(Is_alphe(input[input_i+1]))
    { 
	  Error_out("It is not a number!");
	  return;
	}
    ch[++ch_i]='\0';  
    Constant_analyse(ch);                            /*常数分析*/
  }

  else                                               /*符号分析*/
  {

   switch(ch[ch_i])
   {
    case ',' : printf("%c   [type,number]---[2,0]\n",ch[ch_i]);break;
    case ';' : printf("%c   [type,number]---[2,1]\n",ch[ch_i]);break;
    case '.' : printf("%c   [type,number]---[2,2]\n",ch[ch_i]);break;
    case ':' : if(input[input_i+1]=='=' )
	       printf(":=   [type,number]---[2,3]\n");break;
    case '(' : printf("%c   [type,number]---[2,4]\n",ch[ch_i]);break;
    case ')' : printf("%c   [type,number]---[2,5]\n",ch[ch_i]);break;


    case '+' : printf("%c   [type,number]---[3,10]\n",ch[ch_i]);break;
    case '-' : printf("%c   [type,number]---[3,11]\n",ch[ch_i]);break;
    case '*' : printf("%c   [type,number]---[3,20]\n",ch[ch_i]);break;
    case '/' : printf("%c   [type,number]---[3,21]\n",ch[ch_i]);break;


    case '<' : if(input[input_i+1]=='=')
	       printf("<=   [type,number]---[4,01]\n",ch[ch_i]);
	       else if(input[input_i+1]=='>')
	       printf("<>   [type,number]---[4,00]\n",ch[ch_i]);
	       else
	       printf("%c   [type,number]---[4,05]\n",ch[ch_i]);break;
    case '=' : printf("%c   [type,number]---[4,02]\n",ch[ch_i]);break;
    case '>' : if(input[input_i+1]=='=')
	       printf(">=   [type,number]---[4,04]\n");
	       else
	       printf("%c   [type,number]---[4,03]\n",ch[ch_i]);break; 
    default: printf("Error! You enter the wrong words!"); goto end;  /*都不是，那肯定是错误输入！*/


   }
  }

 }

ch_i=0;                                                           /*设置为0，为ch[]接着取单词作准备。*/
if(input[++input_i]!='#') goto k; 
end:                                /*循环*/
for( m=0;m<cd;m++)
{
	free(constant[m]);
}
for( n=0;n<id;n++)
{
	free(identify[n]);
}