(基于Java)编写编译器和解释器第11章：解析程序、过程和函数第一部分

本章中，你将会完成从第5章开始的解析器开发，以便可以解析程序头(header）、过程和函数申明以及对它们的调用。

方法和目标

我们的目标是解析完整Pascal程序，或者至少能覆盖你所用到的语言特性。如前面章节所做的那样，你将会开发解析子类用来解析：

• Pascal程序头
• Pascal过程和函数申明
• 对已申明过的过程和函数的调用（当然不能调用没有申明过的，因为不存在）
• 对标准过程和函数的调用（标准过程和函数类似于库函数，内置函数等）

你将会继续深入的使用符号表堆栈。我们一直在完善的测试实用程序语法检查器(syntax checker)，它的最终版即IV版（第五版)，将会在本章结束的时候验证你的开发工作。

程序、过程和函数申明

在第9章中你已完成绝大部分申明的解析工作，现在得继续解析Pascal程序申明(即程序头)以及过程和函数的申明，彻底完成这部分工作（解析工作）。

图11-1 展示了一个完整的Pascal程序的语法图，它包含程序头，引用了图形9-1 中块(block)图。

（前面的章节并没有解析program，而是使用了一个dummyprogramname的标识符，不过这个过程相对简单，仅仅包含一个类似于函数参数的东西）

在Pascal语言规范中，头（程序头）可以包含一个用括号围住以逗号分割的参数列表。这些标识符表示在运行期被传入到程序的文件（输入文件）或者被程序写入的文件（输出文件）。如果使用标准的输入输出，则这些参数是可选的，标准IO可以被运行期的执行器（executor)操作。因此或者你解析这些程序参数并验证它们的语法正确性，或者忽略它们。

看下面的程序头例子：

PROGRAM WolfIsland;

PROGRAM XRef (input, output);

如果你从命令行运行程序，标准输入输出默认是控制台。你可以用<或者>分别重定向标准输入和输出到文本文件。例如：

java -classpath classes Pascal execute wolfisland.pas < wolfisland.in

将会编译并执行Pascal程序wolfisland.pas，并且在运行期间，程序将会从文本文件wolfisland.pas中读取输入内容。

图11-2 引入过程和函数申明，完善了语法图9-1，这两个分别以PROCEDURE和FUNCTION关键字开头。

可以看到，函数和过程的申明最后必以块(block)申明收尾，它们之间可以以任意顺序出现在程序中。形参表(formal parameter list)是可选的。一个函数申明必须包含一个返回值的类型（即第二个identifier)。每个过程或函数申明必须有一个块申明（说的有点多余），或者跟一个forward标识符（这个有待本节结束时解释一下）。

一个申明了的过程或函数是一个被程序员视为程序一部分而写的程式(routine)。标准过程和函数内置在Pascal中，相当于隐式的申明在全局中。（在嵌套层0）。图11-3 展示了过程和函数申明的形参表语法图。

Pascal过程和函数申明可以互相嵌套到任意深度。一个函数申明包含一个冒号:，紧接着是函数返回类型的标识符(比如int、string等)，这里匿名类型不允许。

一个形参表的申明是不是让我们想到了语法图9-1中的变量申明？形参表包含一个或多个由分号; 切分的子表(sublists)。每个子表包含一个或多个用作参数名的标识符，每个子表后面跟着一个冒号还有一个指明子表中每个参数类型的类型标识符。匿名类型是禁止的。如果每个子表前面有个VAR，那么每个在子表中的参数是一个VAR参数（比如，通过引用传递）；否则是通过值传递。

（这里我提醒一下子表的意思 比如 var a,b,c : int ; var d,e : string，那么a,b,c是一个子表，d,e 是另一个子表，a,b,c,d,e都是参数，a,b,c类型为int，而d,e 为string。函数传值有两种类型，值传递和引用传递，在C中都是值传递，在Java中复杂类型都是引用传递，而Pascal是可以表明的，跟C++差不多）

这儿举一些过程和函数申明的例子：

PROCEDURE proc (j, k : integer; VAR x, y, z : real; VAR v : arr;
                VAR p : boolean; ch : char);
    BEGIN
        ...
    END;

PROCEDURE SortWords;
    BEGIN
        ...
    END;

FUNCTION func (VAR x : real; i, n : integer) : real;
    BEGIN
        ...
        func := ...;
        ...
    END;

请留意过程SortWords没有形参。

Pascal并没有return语句。一个程式在执行到块结束（即end处）自然的退出。从上面的例子可以看到(函数func)，在块执行的过程中，可通过赋值给函数名称标识符(func :=)实现返回值。

Pascal程序不能调用没有被申明过的过程和函数，因而如果想用必须用一个前向申明(forward declaration)，比如：

FUNCTION forwarded (m : integer; VAR t : real) : real; forward;

前向申明以forward（记住它是一个关键字）代替了块(block)，但是后面完整的申明必须要有（这有点类似与C语言的申明和定义，申明之后可以使用，但是如果没有完整的定义，后续链接过程会找不到符号）：

FUNCTION forwarded;
    BEGIN
        ...
        forwarded := ...;
        ...
    END;

注意完整申明不重复任何的形参表，还有返回类型。

嵌套作用域和符号表堆栈

因为申明过的过程和函数可以任意嵌套，所以符号表堆栈扮演了一个突出角色。每个过程和函数都有属于自己的符号表用来容纳其定义的标识符。当解析器从头到尾读入源程序时，在解析程式(过程和函数统称为程式）进入和退出其作用域。解析器在碰到一个程式时，在符号表栈中放入一个新表，随后在此程式解析完成后弹出这个新创建的符号表。

图11-4a到11-4f 展示了在解析器解析人造的程序Test是符号表栈的各个阶段情况。这个程序包含一个过程p，且p中还嵌套一个函数f。

图11-4a 在解析完程序头后的符号表栈。解析器将程序Test的名字放入层级0(即全局）的符号表中。

 

图11-4b 在解析完过程p名字后的符号表栈。解析器往栈中推入一个新的层级为1（程序级）的符号表，并将程序局部变量i、j、k、n和过程名字p放到这个表中。

（按层级可以是全局级->程序级->程式级->块级->XXX)

 

图11-4c 符号表栈在刚解析完函数f名字后的情况。解析器创建一个新的级别为2的新符号表，放在堆栈中，并将过程p的形参j和局部变量k，还有程序的名字f放在这个表中。

 

图11-4d 解析函数f的块内容时符号表栈的情况。解析器创建一个新的级别为3的符号表放在堆栈中，并将函数的形参x和局部变量i放到此表中。当解析器碰到赋值语句时，在符号表栈中从顶到底搜索语句中的各个标识符，它发现x, i在局部表中，j和f在层级为2的表中，而n在级别为1的符号表中。

 

图11-4e 解析过程p中的内容是符号表栈的情况。解析器从栈中脱掉层级为3的符号表。它发现k和f在局部表中，而i和n在层级为1的表中，还有chr在层级为0的符号表中。

 

图11-4f 解析程序主体时堆栈的情况。解析器现在脱掉层级为2 的符号表，并发现所有的符号都在局部表中。

 

留意解析器将每个程式的名称放在包含此程式的符号表中。例如将函数名f 放在过程p且层级为2的表中，将过程名字p放在主程序层级为1的符号表中，还有把主程序名字test放在全局表中。这使得p中的赋值语句可以引用函数f，如图11-4e所示。

新申明解析子类

图11-5 扩展了类图9-5以便展示新的申明解析子类。类ProgramParser用来解析程序的申明，DeclaredRoutineParser 解析申明过的过程和函数。为配合解析程式，DeclarationsParser及其子类的parse()方法必须返回一个符号表项。这些parse()方法一般返回null，除了DeclaredRoutineParser.parse()方法，它返回刚才解析过的程式名称所对应的符号表项。

清单11-1 展示了类PascalParserTD中的新版parse()方法。它调用programParser.parse()解析整个Pascal程序。（即从program开始的)。

/**
     * Pascal的解析过程，交由ProgramParser
     */
    public void parse() throws Exception {

        long startTime = System.currentTimeMillis();
        //ICode iCode = ICodeFactory.createICode();
        //初始化预定义
        Predefined.initialize(symTabStack);
        try {
            Token token = nextToken();

            // 解析程序
            ProgramParser programParser = new ProgramParser(this);
            programParser.parse(token, null);
            token = currentToken();

            // 发送编译摘要消息
            float elapsedTime = (System.currentTimeMillis() - startTime)/1000f;
            sendMessage(new Message(PARSER_SUMMARY,
                                    new Number[] {token.getLineNumber(),
                                                  getErrorCount(),
                                                  elapsedTime}));
        }
        catch (java.io.IOException ex) {
            errorHandler.abortTranslation(PascalErrorCode.IO_ERROR, this);
        }
    }

现在我们的扩展DeclarationsParser的parse()方法，加上过程和函数申明的解析。参见下面的清单11-2：

public SymTabEntry parse(Token token, SymTabEntry parentId)
        throws Exception
    {
        token = synchronize(DECLARATION_START_SET);

        //常量申明？
        if (token.getType() == CONST) {
            token = nextToken();

            ConstantDefinitionsParser constantDefinitionsParser =
                new ConstantDefinitionsParser(this);
            constantDefinitionsParser.parse(token);
        }

        token = synchronize(TYPE_START_SET);
        //类型申明？
        if (token.getType() == TYPE) {
            token = nextToken();

            TypeDefinitionsParser typeDefinitionsParser =
                new TypeDefinitionsParser(this);
            typeDefinitionsParser.parse(token);
        }

        token = synchronize(VAR_START_SET);
        //变量申明？
        if (token.getType() == VAR) {
            token = nextToken();

            VariableDeclarationsParser variableDeclarationsParser =
                new VariableDeclarationsParser(this);
            variableDeclarationsParser.setDefinition(VARIABLE);
            variableDeclarationsParser.parse(token);
        }
        //程式申明
        token = synchronize(ROUTINE_START_SET);
        TokenType tokenType = token.getType();
        while ((tokenType == PROCEDURE) || (tokenType == FUNCTION)) {
            DeclaredRoutineParser routineParser =
                new DeclaredRoutineParser(this);
            routineParser.parse(token, parentId);

            // 每个定义以分号结束
            token = currentToken();
            if (token.getType() == SEMICOLON) {
                while (token.getType() == SEMICOLON) {
                    token = nextToken(); //吞掉分号
                }
            }
            token = synchronize(ROUTINE_START_SET);
            tokenType = token.getType();
        }
        return null;
    }

方法parse()需要参数当前token以及包含待解析程式的程式名称对应的符号表项（程式可以嵌套）。在处理完PROCEDURE或FUNCTION token之后，它调用routineParser.parse()解析程式剩下的部分，接着搜寻表示程式结束的分号并继续下一个过程或函数的解析工作。

解析一个程序申明（Program Declaration)

清单11-3 展示了申明解析子类ProgramParser的parse()方法。在方法吞噬掉PROGRAM token后，它调用routineParser.parse()解析程序剩下的部分。在返回的时候，搜索最终的句号token（句号.表示一个程序申明的结束）。

// 程序开始处的同步集
static final EnumSet<PascalTokenType> PROGRAM_START_SET =
    EnumSet.of(PROGRAM, SEMICOLON);
static {
    PROGRAM_START_SET.addAll(DeclarationsParser.DECLARATION_START_SET);
}

/**
 * 解析一个Pascal程序
 * @param token 初始token
 * @param parentId 包含此申明的程式名称符号表项
 * @return null
 * @throws Exception
 */
public SymTabEntry parse(Token token, SymTabEntry parentId)
    throws Exception
{
    token = synchronize(PROGRAM_START_SET);

    // 调用routine程式解析器
    DeclaredRoutineParser routineParser = new DeclaredRoutineParser(this);
    routineParser.parse(token, parentId);

    //搜寻结束程序的句号点
    token = currentToken();
    if (token.getType() != DOT) {
        errorHandler.flag(token, MISSING_PERIOD, this);
    }

    return null;
}

解析过程和函数申明

申明解析子类DeclaredRoutineParser做了差不多与程序，过程和函数相关的所有解析工作。清单11-4 展示了它的parse()方法。

// 程式名字计数器，在解析过程中可能有些程式忘记写名字了，为了不影响解析的进行，
   //需要纠错补上一个模拟名字，以数字代替
   private static int dummyCounter = 0;

   /**
    * 解析一个标准的子程式声明
    * @param token 初始的token
    * @param parentId 父程式对应的符号表项
    * @return 声明程式对应的符号项
    * @throws Exception if an error occurred.
    */
   public SymTabEntry parse(Token token, SymTabEntry parentId)
       throws Exception
   {
       Definition routineDefn = null;
       String dummyName = null;
       SymTabEntry routineId = null;
       TokenType routineType = token.getType();

       //判断倒是何种程式
       switch ((PascalTokenType) routineType) {

           case PROGRAM: { //程序
               token = nextToken();
               routineDefn = DefinitionImpl.PROGRAM;
               dummyName = "DummyProgramName".toLowerCase();
               break;
           }

           case PROCEDURE: {//过程
               token = nextToken();
               routineDefn = DefinitionImpl.PROCEDURE;
               dummyName = "DummyProcedureName_".toLowerCase() +
                           String.format("%03d", ++dummyCounter);
               break;
           }

           case FUNCTION: {//函数
               token = nextToken();
               routineDefn = DefinitionImpl.FUNCTION;
               dummyName = "DummyFunctionName_".toLowerCase() +
                           String.format("%03d", ++dummyCounter);
               break;
           }

           default: {
               routineDefn = DefinitionImpl.PROGRAM;
               dummyName = "DummyProgramName".toLowerCase();
               break;
           }
       }

       // 解析程式的名称
       routineId = parseRoutineName(token, dummyName);
       routineId.setDefinition(routineDefn);

       token = currentToken();

       //创建此程式的中间码
       ICode iCode = ICodeFactory.createICode();
       routineId.setAttribute(ROUTINE_ICODE, iCode);
       routineId.setAttribute(ROUTINE_ROUTINES, new ArrayList<SymTabEntry>());

       // 判断程式是否前向来决定是否创建符号表
       if (routineId.getAttribute(ROUTINE_CODE) == FORWARD) {
           SymTab symTab = (SymTab) routineId.getAttribute(ROUTINE_SYMTAB);
           symTabStack.push(symTab);
       }
       else {
           routineId.setAttribute(ROUTINE_SYMTAB, symTabStack.push());
       }

       // 如果是程序，设置堆栈的程序ID
       if (routineDefn == DefinitionImpl.PROGRAM) {
           symTabStack.setProgramId(routineId);
       }else if (routineId.getAttribute(ROUTINE_CODE) != FORWARD) {
           //对于非前向程式申明，将其放入到父程式的子程式列表中
           ArrayList<SymTabEntry> subroutines = (ArrayList<SymTabEntry>)
                                      parentId.getAttribute(ROUTINE_ROUTINES);
           subroutines.add(routineId);
       }

       //如果这个是已经前向申明过后“定义”，不能有任何参数和返回值，应该是分号;
       if (routineId.getAttribute(ROUTINE_CODE) == FORWARD) {
           if (token.getType() != SEMICOLON) {
               errorHandler.flag(token, ALREADY_FORWARDED, this);
               parseHeader(token, routineId);
           }
       }else { //正常（非前向）的解析程式头（参数+返回式）
           parseHeader(token, routineId);
       }

       // 头完之后是否是分号
       token = currentToken();
       if (token.getType() == SEMICOLON) {
           do {
               token = nextToken();
           } while (token.getType() == SEMICOLON);
       }
       else {
           errorHandler.flag(token, MISSING_SEMICOLON, this);
       }

       //解析之后的块或者代替的forward
       if ((token.getType() == IDENTIFIER) &&
           (token.getText().equalsIgnoreCase("forward")))
       {
           //是一个前向申明
           token = nextToken();
           routineId.setAttribute(ROUTINE_CODE, FORWARD);
       }else { //正常的调用块解析
           routineId.setAttribute(ROUTINE_CODE, DECLARED);
           BlockParser blockParser = new BlockParser(this);
           ICodeNode rootNode = blockParser.parse(token, routineId);
           iCode.setRoot(rootNode);
       }

       // 程式的作用域结束，出栈
       symTabStack.pop();

       return routineId;
   }

在处理完PROGRAM、PROCEDURE或FUNCTION token并选择恰当的标识符定义之后（ 21-51行)，parse()方法调用parseRoutineName()解析程式名称。它为此程式新建一个中间码并以ROUTINE_ICODE属性存储在程式名称对应的符号表项上，除此之外还推入一个新的符号表到栈中并以ROUTINE_SYMTAB属性存放在表项上。不过如果过程或函数之前在前向申明中出现过（也就是一样的名字已经被定义成前向申明），直接推入解析前向申明中创建过的符号表（而不需新建）。

如果是前向申明（此程式名称表示的符号表项），此程式就不能有形参或者函数返回类型，否则就是重复申明。但是为了错误恢复，parse()还是会解析它们（指形参或者返回类型等程式头）。反正不管怎么样，它都得掉用parseHeader()来解析参数和函数返回类型。

在解析完参数和返回类型后，parse()或处理forward标识符（意味这是一个forward前向申明)，或调用blockParser.parse()处理程式的块（即主要内容），这解析完之后，方法弹出程式对应的符号表并返回程式名称对应的表项。

设计笔记

在解析器返程程式解析之后，弹出的符号表并没有消失。如清单11-4所示，程式名称的符号表项有个属性ROUTINE_SYMTAB正好指向这个表（不然被垃圾收集了）。类似地，符号表项的ROUTINE_ICODE维护一个指向程式块生成树（即中间码）。后端解释器或编译器在后面需要用到每个程式的符号表和分析树。

清单11-5 展示了parseRoutineName()或parseHeader()等方法。

/**
     * 解析程式的名字
     * @param token 当前token
     * @param dummyName 解析出问题时的假名字
     * @return 申明的程式名字对应的符号表项
     * @throws Exception
     */
    private SymTabEntry parseRoutineName(Token token, String dummyName)
        throws Exception
    {
        SymTabEntry routineId = null;

        //解析程式名称标识符
        if (token.getType() == IDENTIFIER) {
            String routineName = token.getText().toLowerCase();
            routineId = symTabStack.lookupLocal(routineName);

            // 如果没有定义，放到符号表中
            if (routineId == null) {
                routineId = symTabStack.enterLocal(routineName);
            }

            // 如果已经被定义，则判断是否一个前向申明
            else if (routineId.getAttribute(ROUTINE_CODE) != FORWARD) {
                routineId = null;
                errorHandler.flag(token, IDENTIFIER_REDEFINED, this);
            }

            token = nextToken();
        }
        else { //忘记写名字了
            errorHandler.flag(token, MISSING_IDENTIFIER, this);
        }

        //如果routineID没有名字，放个假名字代替
        if (routineId == null) {
            routineId = symTabStack.enterLocal(dummyName);
        }

        return routineId;
    }

    /**
     * 解析程式的头，包括参数列表和返回
     * @param token 当前Token
     * @param routineId 申明过程式名称对应的符号表项
     * @throws Exception
     */
    private void parseHeader(Token token, SymTabEntry routineId)
        throws Exception
    {
        //先解析形参列表
        parseFormalParameters(token, routineId);
        token = currentToken();

        // 如果程式是函数，则要解析它的返回值类型function p : int
        if (routineId.getDefinition() == DefinitionImpl.FUNCTION) {
            VariableDeclarationsParser variableDeclarationsParser =
                new VariableDeclarationsParser(this);
            variableDeclarationsParser.setDefinition(DefinitionImpl.FUNCTION);
            TypeSpec type = variableDeclarationsParser.parseTypeSpec(token);

            token = currentToken();

            // 返回值类型不能是数组或者记录，只能是标量类型
            if (type != null) {
                TypeForm form = type.getForm();
                if ((form == TypeFormImpl.ARRAY) ||
                    (form == TypeFormImpl.RECORD))
                {
                    errorHandler.flag(token, INVALID_TYPE, this);
                }
            } else { //函数漏掉了返回类型
                type = Predefined.undefinedType;
            }

            routineId.setTypeSpec(type);
            token = currentToken();
        }
    }

方法parseRoutineName()验证过程或函数的名字知否已在局部符号表中定义，如果有，一定得是来自一个前向申明。

方法parseHeader()调用parseFormalParameters()解析程式的形参列表。如果程式是一个函数，它还需要调用variableDeclarationsParser.parseTypeSpec()解析返回类型。Pascal不允许一个函数的返回值类型为数组或记录（为何？是不是实现会很复杂，大脑风暴一下？）

形式参数列表(Formal Parameter Lists，或形参表)

清单11-6 展示了方法parseFormalParameters()

// 形参子表的同步集
private static final EnumSet<PascalTokenType> PARAMETER_SET =
    DeclarationsParser.DECLARATION_START_SET.clone();
static {
    PARAMETER_SET.add(VAR);
    PARAMETER_SET.add(IDENTIFIER);
    PARAMETER_SET.add(RIGHT_PAREN);
}

//左括号处的同步集
private static final EnumSet<PascalTokenType> LEFT_PAREN_SET =
    DeclarationsParser.DECLARATION_START_SET.clone();
static {
    LEFT_PAREN_SET.add(LEFT_PAREN);
    LEFT_PAREN_SET.add(SEMICOLON);
    LEFT_PAREN_SET.add(COLON);
}

//右括号的同步集
private static final EnumSet<PascalTokenType> RIGHT_PAREN_SET =
    LEFT_PAREN_SET.clone();
static {
    RIGHT_PAREN_SET.remove(LEFT_PAREN);
    RIGHT_PAREN_SET.add(RIGHT_PAREN);
}

/**
 * 解析程式的形参列表
 * @param token 当前token
 * @param routineId 程式名称对应的符号表项
 * @throws Exception
 */
protected void parseFormalParameters(Token token, SymTabEntry routineId)
    throws Exception
{
    // 同步左括号集
    token = synchronize(LEFT_PAREN_SET);
    if (token.getType() == LEFT_PAREN) {//必须得是一个左括号
        token = nextToken();
        ArrayList<SymTabEntry> parms = new ArrayList<SymTabEntry>();
        token = synchronize(PARAMETER_SET);
        TokenType tokenType = token.getType();

        // 遍历解析形参子表，注意参数前面加VAR表示引用传递
        while ((tokenType == IDENTIFIER) || (tokenType == VAR)) {
            parms.addAll(parseParmSublist(token, routineId));
            token = currentToken();
            tokenType = token.getType();
        }

        // 参数结束的右括号
        if (token.getType() == RIGHT_PAREN) {
            token = nextToken();  // consume )
        }
        else {
            errorHandler.flag(token, MISSING_RIGHT_PAREN, this);
        }

        routineId.setAttribute(ROUTINE_PARMS, parms);
    }
}

如果有形参，方法parseFormalParameters()循环的调用parseParmSublist()处理参数申明中的每一个子表。最终这回建立一个参数标识符的符号表项列表，并以此为程式名称对应表项的ROUTINE_PARMS属性值。

清单11-7 展示了方法parseParmSublist()

// 一个形参后的同步集
    private static final EnumSet<PascalTokenType> PARAMETER_FOLLOW_SET =
        EnumSet.of(COLON, RIGHT_PAREN, SEMICOLON);
    static {
        PARAMETER_FOLLOW_SET.addAll(DeclarationsParser.DECLARATION_START_SET);
    }

    // 逗号处的同步集
    private static final EnumSet<PascalTokenType> COMMA_SET =
        EnumSet.of(COMMA, COLON, IDENTIFIER, RIGHT_PAREN, SEMICOLON);
    static {
        COMMA_SET.addAll(DeclarationsParser.DECLARATION_START_SET);
    }

    /**
     * 解析形参子表，每个以分号隔开的为一个子表
     * @param token 当前Token
     * @param routineId 程式名称对应的符号表项
     * @return 子表对应的符号表项
     * @throws Exception
     */
    private ArrayList<SymTabEntry> parseParmSublist(Token token,
                                                    SymTabEntry routineId)
        throws Exception
    {
        boolean isProgram = routineId.getDefinition() == DefinitionImpl.PROGRAM;
        Definition parmDefn = isProgram ? PROGRAM_PARM : null;
        TokenType tokenType = token.getType();

        // 引用或值传递？
        if (tokenType == VAR) {
            if (!isProgram) {
                parmDefn = VAR_PARM;
            }
            else {
                errorHandler.flag(token, INVALID_VAR_PARM, this);
            }

            token = nextToken();  // consume VAR
        }
        else if (!isProgram) {
            parmDefn = VALUE_PARM;
        }

        // 解析参数子表及它的类型
        VariableDeclarationsParser variableDeclarationsParser =
            new VariableDeclarationsParser(this);
        variableDeclarationsParser.setDefinition(parmDefn);
        ArrayList<SymTabEntry> sublist =
            variableDeclarationsParser.parseIdentifierSublist(
                                           token, PARAMETER_FOLLOW_SET,
                                           COMMA_SET);
        token = currentToken();
        tokenType = token.getType();

        if (!isProgram) {

            // 搜寻并吞噬一个子表后的分号
            if (tokenType == SEMICOLON) {
                while (token.getType() == SEMICOLON) {
                    token = nextToken();  // consume the ;
                }
            } else if (VariableDeclarationsParser.NEXT_START_SET.contains(tokenType)) {
                errorHandler.flag(token, MISSING_SEMICOLON, this);
            }

            token = synchronize(PARAMETER_SET);
        }

        return sublist;
    }

在方法parseParmSublist()中，一个VAR token意味着子表中的每个形参被定义成为VAR_PARAM(通过引用传递）。否则每个参数被定义成为VALUE_PARAM(通过值传递）。不过，程序参数只能被定义为PROGRAM_PARM。此方法调用variableDeclarationsParser.setDefinition()以便让解析器知道这些参数是怎么定义的，并接着调用variableDeclarationsParser.parseIdentifierSublist()完成参数解析工作。

最后，清单11-8 展示了申明解析子类VariableDeclarationsParser中的新版本parseIdentifierSublist()方法。（改动很小，只是替换了followSet和commaSet)

protected ArrayList<SymTabEntry> parseIdentifierSublist(Token token,
            EnumSet<PascalTokenType> followSet,
            EnumSet<PascalTokenType> commaSet)
        throws Exception
    {
        ArrayList<SymTabEntry> sublist = new ArrayList<SymTabEntry>();
        do {
            token = synchronize(IDENTIFIER_START_SET);
            SymTabEntry id = parseIdentifier(token);

            if (id != null) {
                sublist.add(id);
            }

            token = synchronize(commaSet);
            TokenType tokenType = token.getType();

            // 找逗号
            if (tokenType == COMMA) {
                token = nextToken(); //有逗号吞掉以便下一个

                if (followSet.contains(token.getType())) {
                    errorHandler.flag(token, MISSING_IDENTIFIER, this);
                }
            }else if (IDENTIFIER_START_SET.contains(tokenType)) {
                errorHandler.flag(token, MISSING_COMMA, this);
            }
        } while (!followSet.contains(token.getType()));
        if (definition != DefinitionImpl.PROGRAM)
        {
            // 冒号后面的类型
            TypeSpec type = parseTypeSpec(token);
            // 将子表中的每个变量的类型设置上，比如a,b,c:int，先解析了a,b,c，然后解析了int类型
            // 那么这儿就会给a,b,c设置上int类型
            for (SymTabEntry variableId : sublist) {
                variableId.setTypeSpec(type);
            }
        }
        return sublist;
    }

为适应解析形参子表，而不仅仅是变量申明子表，扩展parseIdentifierSublist()，改变它的签名使之更灵活。对于程序参数，此方法一定不能解析并设置类型说明。

于是类VariableDeclarationsParser的parse()方法调用parseIdentifierSublist()时必须多加两个参数

parseIdentifierSublist(token, IDENTIFIER_FOLLOW_SET, COMMA_SET); （源代码第68行）

你必须还得修改BlockParser的parse()方法以适应程式解析。参见清单11-9

>> 继续第11章