为pl/0语言建立一个词法分程序getsym(函数

PL/0是一种简单的过程式语言，其中一个重要的部分就是词法分析器。getsym()函数是一个用于实现PL/0词法分析的函数。

getsym()函数从输入的源代码中读取一个字符或一个单词，并将其解释为一个符号。在PL/0中，符号可以是关键字（如var、begin、end等），标识符（变量名、函数名等）或运算符（如+、-、*、/等）。

下面是一个简单的getsym()函数实现：

int getsym() {
    int i, j = 0;
    char ch;

    while (isspace(ch = getchar())); //跳过空格、制表符、换行符等
    if (isdigit(ch)) { //处理数字
        do {
            j = j * 10 + ch - '0';
            ch = getchar();
        } while (isdigit(ch));
        num = j;
        return number;
    } else if (isalpha(ch)) { //处理标识符或关键字
        do {
            str[j++] = ch;
            ch = getchar();
        } while (isalnum(ch));
        str[j] = '\0';
        if (strcmp(str, "begin") == 0) return beginsym;
        else if (strcmp(str, "call") == 0) return callsym;
        else if (strcmp(str, "const") == 0) return constsym;
        else if (strcmp(str, "do") == 0) return dosym;
        else if (strcmp(str, "end") == 0) return endsym;
        else if (strcmp(str, "if") == 0) return ifsym;
        else if (strcmp(str, "odd") == 0) return oddsym;
        else if (strcmp(str, "procedure") == 0) return procsym;
        else if (strcmp(str, "then") == 0) return thensym;
        else if (strcmp(str, "var") == 0) return varsym;
        else if (strcmp(str, "while") == 0) return whilesym;
        else return identsym;
    } else if (ch == ':') { //处理赋值符号
        if ((ch = getchar()) == '=') {
            ch = getchar();
            return becomessym;
        } else {
            return nul; //错误：缺少等号
        }
    } else if (ch == '<') { //处理小于符号
        if ((ch = getchar()) == '=') {
            ch = getchar();
            return leqsym;
        } else {
            return lsssym;
        }
    } else if (ch == '>') { //处理大于符号
        if ((ch = getchar()) == '=') {
            ch = getchar();
            return geqsym;
        } else {
            return gtrsym;
        }
    } else if (ch == '+') { //处理加号
        ch = getchar();
        return plussym;
    } else if (ch == '-') { //处理减号
        ch = getchar();
        return minussym;
    } else if (ch == '*') { //处理乘号
        ch = getchar();
        return timesym;
    } else if (ch == '/') { //处理除号
        ch = getchar();
        return slashsym;
    } else if (ch == '(') { //处理左括号
        ch = getchar();
        return lparentsym;
    } else if (ch == ')') { //处理右括号
        ch = getchar();
        return rparentsym;
    } else if (ch == '=') { //处理等号
        ch = getchar();
        return eqsym;
    } else if (ch == ',') { //处理逗号
        ch = getchar();
        return commasym;
    } else if (ch == '.') { //处理句号
        ch = getchar();
        return periodsym;
    } else {
        return nul; //不合法字符
    }
}

在实现getsym()函数时，需要预先定义一些符号类型的常量，例如：

#define nul     0   //空符号
#define ident   1   //标识符
#define number  2   //数字
#define plus    3   //+
#define minus   4   //-
#define times   5   //*
#define slash   6   // /
#define oddsym  7   //odd
#define eql     8   //=
#define neq     9   //#
#define lss     10  //<
#define leq     11  //<=
#define gtr     12  //>
#define geq     13  //>=
#define lparent 14  //(
#define rparent 15  //)
#define comma   16  //,
#define semic   17  //;
#define period  18  //.
#define becomes 19  //:=
#define beginsym    20  //begin
#define callsym     21  //call
#define constsym    22  //const
#define dosym       23  //do
#define endsym      24  //end
#define ifsym       25  //if
#define oddsym      26  //odd
#define procsym     27  //procedure
#define thensym     28  //then
#define varsym      29  //var
#define whilesym    30  //while
#define elsesym     31  //else

这样一来，getsym()函数就可以根据读取的字符或单词判断其类型，并将其转换为对应的符号类型并返回。在编译器中，getsym()函数会被调用多次，以识别整个输入程序中的所有符号，从而实现词法分析功能。