编译原理实验一——简单词法分析

[实验任务]
完成以下正则文法所描述的Pascal语言子集单词符号的词法分析程序。
<标识符>→字母︱ <标识符>字母︱ <标识符>数字
    <无符号整数>→数字︱ <无符号整数>数字
    <单字符分界符> →+ ︱－ ︱* ︱; ︱(︱)
    <双字符分界符>→<大于>=︱<小于>=︱<小于>>︱<冒号>=︱<斜竖>*
    <小于>→<                   
<等于>→=
<大于>→>
<冒号> →:
<斜竖> →/
该语言的保留字 ：begin  end  if  then  else  for  do  while  and or not   说明： 1 该语言大小写不敏感。
     2 字母为a-z A-Z，数字为0-9。
3可以对上述文法进行扩充和改造。
4 ‘/*……*/’为程序的注释部分。
[设计要求]
1、给出各单词符号的类别编码。
2、词法分析程序应能发现输入串中的错误。
3、词法分析作为单独一遍编写，词法分析结果为二元式序列组成的中间文件。
4、设计两个测试用例（尽可能完备），并给出测试结果。 

demo.cpp

#include <stdio.h> #include <ctype.h> #include <string.h> #include "demo.h" char token[20]; int lookup(char *token) {  for (int i = 0; i < 11; i++) {   if (strcmp(token, KEY_WORDS[i]) == 0) {    return i+1;   }  }  return 0; } char getletter(FILE *fp) {  return tolower(fgetc(fp)); } void out(FILE *fp, int c, char *value) {  fprintf(fp, "%d,%s/n", c, value); } void report_error(FILE *fp, char ch) {  fprintf(fp, "There must be some error./n");  fprintf(fp, "%c.../n", ch);  fprintf(fp, "^/n"); } void scanner(FILE *infile, FILE *outfile) {  char ch;  int i, c;  do {   do {    ch = getletter(infile);   } while(isspace(ch));   if (isalpha(ch)) {    token[0] = ch;    ch = getletter(infile);    i = 1;    while (isalnum(ch)) {     token[i] = ch;     i++;     ch = getletter(infile);    }    token[i] = '/0';    fseek(infile, -1, 1);    c = lookup(token);    if (c == 0) {     out(outfile, ID, token);    }    else {     out(outfile, c, " ");    }   }   else {    if (isdigit(ch)) {     token[0] = ch;     ch = getletter(infile);     i = 1;     while (isdigit(ch)) {      token[i] = ch;      i++;      ch = getletter(infile);     }     token[i] = '/0';     fseek(infile, -1, 1);     out(outfile, INT, token);    }    else {     switch(ch) {     case '<':      {       ch = getletter(infile);       if (ch == '=') {        out(outfile, LE, " ");       }       else if (ch == '>') {        out(outfile, NE, " ");       }       else {        fseek(infile, -1, 1);        out(outfile, LT, " ");       }       break;      }     case '=':      {       out(outfile, EQ, " ");       break;      }     case '>':      {       ch = getletter(infile);       if (ch == '=') {        out(outfile, GE, " ");       }       else {        fseek(infile, -1, 1);        out(outfile, GT, " ");       }       break;      }     case ':':      {       ch = getletter(infile);       if (ch == '=') {        out(outfile, FU, " ");       }       else {        fseek(infile, -1, 1);        out(outfile, MAO, " ");       }       break;      }     case '/':      {       ch = getletter(infile);       if (ch == '*') {        out(outfile, ZHU, " ");       }       else {        fseek(infile, -1, 1);        out(outfile, XIE, " ");       }       break;      }     case '+':      {       out(outfile, JIA, " ");       break;      }     case '-':      {       out(outfile, JIAN, " ");       break;      }     case '*':      {       out(outfile, CHEN, " ");       break;      }     case ';':      {       out(outfile, FEN, " ");       break;      }     case '(':      {       out(outfile, ZUO, " ");       break;      }     case ')':      {       out(outfile, YOU, " ");       break;      }     default:      {       if (ch != EOF) {        report_error(outfile, ch);       }       break;      }     }    }   }  } while(ch != EOF);  return; } void main() {  FILE *in, *out;  in = fopen("pascal.txt", "r");  out = fopen("result.txt", "w");  scanner(in, out);  fprintf(out, "0,#");  fclose(in);  fclose(out);  printf("Finished!/n"); }