lex.c

用C语言实现了简单的词法分析功能

  #include   <stdio.h>
  #include   <stdlib.h>   
  #include   <string.h>   
  #include   <ctype.h>   
  #define   LEN   sizeof(struct   Node)   
  #define   NULL   0   
    
  struct   Node   
  { char   data;
    struct   Node   *next;   /* 符号表格式 */
  };   
    
    
  struct   Node   *head,*p;   
  char   ch;
  char   *key[]={"int","char","if","else","while","do","return"};   /*关键字表*/
  char   token[20];   /*字符数组，存放构成单词的符号串*/   


    
  void   output(struct   Node   *head)
  {   if(!head)   {printf("error");exit(1);}  /*扫描缓冲区函数*/  
      p=head->next;   
      while(p->next!=NULL)   
    {   
    printf("%c",p->data);
    p=p->next;
    }
      printf("\n");   
  }   
    

    
  void   getch()         /*从缓冲区读入一字符*/   
  {   
  ch=p->data;   
  p=p->next;   
  }   

    /*去除空白符 */
  void   getbc()
  {   
  while   (ch==' ')
  getch();   
  }
     
  void   concat()       /*将ch中的字符连接到token的后面*/   
  {   
  unsigned   int   i;   
  i=strlen(token);   
  token[i]=ch;   
  token[i+1]='\0';   
  }   
    
  int   letter(char   ch)   /*判断ch中的是否是字母*/   
  {   
  return   isalpha((int)ch);   
  }   
    
  int   digit(char   ch)     /*判断ch中的是否是数字*/   
  {   
  return   isdigit((int)ch);   
  }   
    
  int   reserve()   /*判断token中的字符串是否是关键字或是标识符*/   
  {   
   int   k;
   for(k=0;k<7;k++)
   {
    if(strcmp(key[k],token)==0)   return   (k+1);   
   }
   return   100;
  }
    
  void   retract()   /*指针回退一个字符*/   
  {   
   struct   Node   *Q;
   Q=head->next;
   while(Q->next!=p)
   Q=Q->next;
   p=Q;
  }   
    
  void   back(char *a, int b)         /*返回函数，输出序列*/
  {   
   printf("(%s,%d)\n",a,b);
  }
    
    
  void   lexer()   /*词法分析函数*/
  {   
   int   c;
   token[0]=NULL;   /*将token清空*/
   getch();
   getbc();   /*读入一个单词*/
   if(letter(ch))   /*处理字符的情况*/
   {
    while(letter(ch)||digit(ch))
    {
     concat();
     getch();
    }
    retract();
    c=reserve();
    if(c!=100)   back(token,c);
    else   back(token,100);
   }

    else   if(digit(ch))   /*处理数字的情况*/
   {
    while(digit(ch))
   {
    concat();
    getch();
   }
   retract();
   printf("(%d,20)\n",atoi(token));
  }   
  else   
  switch(ch)     /*处理特殊符号的情况*/   
  {
  case'+':   back("+",101);break;
  case'-':   back("-",102);break;
  case'*':   back("*",103);break;
  case'/':   back("/",104);break;
  case'%':   back("%",105);break;
  case'=':  back("=",106);break;
  case'<':   getch();
  if(ch=='=')   back("<=",107);
    retract();   
    back("<",108);
    break;
  case'>':   getch();   
  if(ch=='=')   back(">=",109);
    retract();   
    back(">",110);
    break;
  case';':   back(";",111);break;
  case'(':   back("(",112);break;
  case')':   back(")",113);break;
  case':':   back(":",114);break;
  }
}   

  main()
  {   
      head=(struct   Node   *)malloc(LEN);   /*分配头节点存储空间*/   
            if(!head)   {printf("error");exit(1);}   
      head->next=NULL;   
      head->data=' ';
      p=head;   

      printf("Please input your codes:");
      printf("(input a '$'at a new line to end your program)\n");
    
  while(1)   
  {   int   i=0;   
      char   temp[256];/*每行长度不超过256个字符*/   
      gets(temp);   /*输入源程序，以行为单位*/   
      if(temp[0]=='$')   break;/*当输入的第一个字符为$时表示输入源代码结束*/
    
      p->next=(struct   Node   *)malloc(LEN);   
      if(!(head->next))   {printf("error");exit(1);}
      p=p->next;   

  /*将输入的代码以行为单位存入缓冲区*/  
  while(temp[i]!='\0'   &&   i<256)
  {   
  p->data=temp[i];   
  p->next=(struct   Node   *)malloc(LEN);   
        if(!(p->next))   {printf("error");exit(1);}   
  p=p->next;   
                  i++;   
    }   
  p->data='\n';   
  p->next=NULL;             /*尾结点*/   
  }   
    
  output(head);           /*扫描缓冲区，输出结果*/   
  p=head->next;   
  while(p->next!=NULL)   
  lexer();
    
  system("pause");   

  }