Exemple #1
0
 static AbstractNode assignment(Yytoken ident) {
   // Ident bereits in statement() abgearbeitet
   AbstractNode selectorNode = selector(ident);
   AbstractNode expressionNode = null;
   int line = 0, column = 0;
   if (nexttoken.getName().equals(":=")) {
     line = nexttoken.getLine();
     column = nexttoken.getColumn();
     outStr(":=");
     insymbol();
     expressionNode = expression();
   } else {
     error("':=' expected", nexttoken.getLine(), nexttoken.getColumn());
   }
   if (selectorNode != null) {
     return new AssignmentNode(null, selectorNode, expressionNode, line, column);
   } else {
     return new AssignmentNode(
         new IdentNode(ident.getName(), ident.getLine(), ident.getColumn()),
         selectorNode,
         expressionNode,
         line,
         column);
   }
 }
Exemple #2
0
 static AbstractNode arrayType() {
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   AbstractNode indexEx = null, type = null;
   if (nexttoken.getName().equals("ARRAY")) {
     insymbol();
     outStr("ARRAY");
     if (nexttoken.getName().equals("[")) {
       insymbol();
       indexEx = indexExpression();
       if (nexttoken.getName().equals("]")) {
         insymbol();
         if (nexttoken.getName().equals("OF")) {
           insymbol();
           type = type();
         } else {
           error("'OF' expected", nexttoken.getLine(), nexttoken.getColumn());
         }
       } else {
         error("']' expected", nexttoken.getLine(), nexttoken.getColumn());
       }
     } else {
       error("'[' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else {
     error("ArrayType Error", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new ArrayNode(indexEx, type, line, column);
 }
Exemple #3
0
 static AbstractNode whileStatement() {
   AbstractNode doPart = null, cond = null;
   int line = 0, column = 0;
   if (nexttoken.getName().equals("WHILE")) {
     outStr("WHILE");
     insymbol();
     line = nexttoken.getLine();
     column = nexttoken.getColumn();
     cond = expression();
     if (nexttoken.getName().equals("DO")) {
       outStr("DO");
       insymbol();
       doPart = statementSequence();
       if (nexttoken.getName().equals("END")) {
         outStr("END");
         insymbol();
       } else {
         error("'END' expected", nexttoken.getLine(), nexttoken.getColumn());
       }
     } else {
       error("'DO' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else {
     error("WhileStatementError", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new WhileNode(cond, doPart, line, column);
 }
Exemple #4
0
 static AbstractNode read() {
   AbstractNode node = null;
   if (nexttoken.getName().equals("READ")) {
     insymbol();
     outStr("READ ");
     if (nexttoken.getName().charAt(0) == '"') {
       node = prompt();
     }
   }
   return node;
 }
Exemple #5
0
 static AbstractNode constIdent() {
   AbstractNode node = null;
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   if (nexttoken.getType().equals("Ident")) {
     outStr(nexttoken.getName());
     node = new IdentNode(nexttoken.getName(), line, column);
     insymbol();
   } else {
     error("ConstIdent Error", nexttoken.getLine(), nexttoken.getColumn());
   }
   return node;
 }
Exemple #6
0
 static AbstractNode indexExpression() {
   AbstractNode node = null;
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   if (nexttoken.getType().equals("Integer")) {
     outInt(nexttoken.getName());
     node = new IntegerNode(nexttoken.getName(), line, column);
     insymbol();
   } else {
     node = constIdent();
   }
   return node;
 }
Exemple #7
0
 static AbstractNode factor() {
   AbstractNode node = null;
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   if (nexttoken.getName().equals("(")) {
     insymbol();
     node = expression();
     if (nexttoken.getName().equals(")")) {
       insymbol();
     } else {
       error("')' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else if (nexttoken.getType().equals("Ident")) {
     node = new IdentNode(nexttoken.getName(), line, column);
     outStr(nexttoken.getName());
     Yytoken ident = nexttoken;
     insymbol();
     OperatorNode selectorNode = selector(ident);
     if (selectorNode != null) {
       // selectorNode.setLeft(node);
       node = new ContNode(selectorNode, line, column);
     } else {
       node = new ContNode(node, line, column);
     }
   } else if (nexttoken.getType().equals("Integer")) {
     outInt(nexttoken.getName());
     node = new IntegerNode(nexttoken.getName(), line, column);
     insymbol();
   } else if (nexttoken.getName().equals("READ")) {
     node = read();
   } else if (nexttoken.getName().charAt(0) == '"') {
     node = new ContNode(string(), line, column);
   }
   return node;
 }
Exemple #8
0
 static OperatorNode selector(Yytoken ident) {
   AbstractNode node = null;
   AbstractNode result = null;
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   while (nexttoken.getName().equals(".") || nexttoken.getName().equals("[")) {
     if (nexttoken.getName().equals(".")) {
       insymbol();
       if (nexttoken.getType().equals("Ident")) {
         outStr("." + nexttoken.getName());
         if (node == null) {
           node =
               new OperatorNode(
                   ".",
                   new IdentNode(ident.getName(), ident.getLine(), ident.getColumn()),
                   new IdentNode(nexttoken.getName(), line, column),
                   line,
                   column);
         } else {
           node =
               (new OperatorNode(
                   ".", node, new IdentNode(nexttoken.getName(), line, column), line, column));
         }
         insymbol();
       } else {
         error("identifier expected", nexttoken.getLine(), nexttoken.getColumn());
       }
     } else if (nexttoken.getName().equals("[")) {
       insymbol();
       if (node == null) {
         node =
             new OperatorNode(
                 "[",
                 new IdentNode(ident.getName(), ident.getLine(), ident.getColumn()),
                 expression(),
                 line,
                 column);
       } else {
         node = new OperatorNode("[", node, expression(), line, column);
       }
       if (nexttoken.getName().equals("]")) {
         insymbol();
       } else {
         error("']' expected", nexttoken.getLine(), nexttoken.getColumn());
       }
     }
   }
   return ((OperatorNode) node);
 }
Exemple #9
0
 static AbstractNode ifStatement() {
   AbstractNode conditionNode = null, thenNode = null, elseNode = null;
   int l = 0, c = 0;
   if (nexttoken.getName().equals("IF")) {
     outStr("IF");
     insymbol();
     l = nexttoken.getLine();
     c = nexttoken.getColumn();
     conditionNode = expression();
     if (nexttoken.getName().equals("THEN")) {
       outStr("THEN");
       insymbol();
       thenNode = statementSequence();
       if (nexttoken.getName().equals("ELSIF")) {
         elseNode = ifStatement();
       } else if (nexttoken.getName().equals("ELSE")) {
         outStr("ELSE");
         insymbol();
         elseNode = statementSequence();
       }
       if (nexttoken.getName().equals("END")) {
         outStr("END");
         insymbol();
       } else {
         error("'END' expected", nexttoken.getLine(), nexttoken.getColumn());
       }
     } else {
       error("'THEN' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else if (nexttoken.getName().equals("ELSIF")) {
     outStr("ELSIF");
     insymbol();
     l = nexttoken.getLine();
     c = nexttoken.getColumn();
     conditionNode = expression();
     if (nexttoken.getName().equals("THEN")) {
       outStr("THEN");
       insymbol();
       thenNode = statementSequence();
       if (nexttoken.getName().equals("ELSIF")) {
         elseNode = ifStatement();
       } else if (nexttoken.getName().equals("ELSE")) {
         outStr("ELSE");
         insymbol();
         elseNode = statementSequence();
       }
     } else {
       error("'THEN' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else {
     error("IfStatement error", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new IfNode(conditionNode, thenNode, elseNode, l, c);
 }
Exemple #10
0
 static AbstractNode type() {
   AbstractNode node = null;
   if (nexttoken.getType().equals("Ident")) {
     node = new IdentNode(nexttoken.getName(), nexttoken.getLine(), nexttoken.getColumn());
     outStr(nexttoken.getName());
     insymbol();
   } else if (nexttoken.getName().equals("ARRAY")) {
     node = arrayType();
   } else if (nexttoken.getName().equals("RECORD")) {
     node = recordType();
   } else {
     error("Type Error", nexttoken.getLine(), nexttoken.getColumn());
   }
   return node;
 }
Exemple #11
0
 static AbstractNode string() {
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   String str = null;
   if (nexttoken.getName().charAt(0) == '"') {
     insymbol();
     str = "";
     while (nexttoken.getName().charAt(0) != '"') {
       str += nexttoken.getName();
       insymbol();
     }
     outStr(str = '"' + str + '"');
     insymbol();
   }
   return new StringNode(str, line, column);
 }
Exemple #12
0
 static AbstractNode term() {
   AbstractNode left = null, right = null;
   String operator = null;
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   left = factor();
   if (nexttoken.getName().equals("*") || nexttoken.getName().equals("/")) {
     outOp((operator = nexttoken.getName()) + " ");
     insymbol();
     right = term();
   }
   if (operator != null) {
     return new OperatorNode(operator, left, right, line, column);
   } else {
     return left;
   }
 }
Exemple #13
0
  static AbstractNode module() {
    AbstractNode ident = null, decl = null, statementSeq = null;
    int line = 0, column = 0;
    String identName = "";
    if (nexttoken.getName().equals("MODULE")) {
      outStr("MODULE");
      insymbol();
      if (nexttoken.getType().equals("Ident")) {
        outStr(identName = nexttoken.getName());
        ident = new IdentNode(nexttoken.getName(), nexttoken.getLine(), nexttoken.getColumn());
        insymbol();
        if (nexttoken.getName().equals(";")) {
          outStr(";");
          insymbol();
          decl = declarations();
          if (nexttoken.getName().equals("BEGIN")) {
            outStr("BEGIN MODULE");
            insymbol();

            statementSeq = statementSequence();
            if (nexttoken.getName().equals("END")) {
              outStr("END MODULE");
              insymbol();
              if (nexttoken.getType().equals("Ident") && identName.equals(nexttoken.getName())) {
                outStr(nexttoken.getName());
                insymbol();

                if (nexttoken.getName().equals(".")) {
                  outStr(".");
                  insymbol();
                } else {
                  error("'.' expected", nexttoken.getLine(), nexttoken.getColumn());
                }
              } else {
                error("'Ident' expected", nexttoken.getLine(), nexttoken.getColumn());
              }
            } else {
              error("'END' expected", nexttoken.getLine(), nexttoken.getColumn());
            }
          } else {
            error("'BEGIN' expected", nexttoken.getLine(), nexttoken.getColumn());
          }
        } else {
          error("';' expected", nexttoken.getLine(), nexttoken.getColumn());
        }
      } else {
        error("'Ident' expected", nexttoken.getLine(), nexttoken.getColumn());
      }
    }
    return new ModuleNode(ident, decl, statementSeq, line, column);
  }
Exemple #14
0
 static AbstractNode procedureDeclaration() {
   AbstractNode heading = null, body = null, ident = null;
   int line = nexttoken.getLine(), column = nexttoken.getColumn();
   heading = procedureHeading();
   if (nexttoken.getName().equals(";")) {
     outStr(";");
     insymbol();
     body = procedureBody();
     if (nexttoken.getType().equals("Ident")) {
       outStr("Ident");
       ident = new IdentNode(nexttoken.getName(), nexttoken.getLine(), nexttoken.getColumn());
       insymbol();
     } else {
       error("'Ident' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   }
   return new ProcedureDeclarationNode(heading, body, ident, line, column);
 }
Exemple #15
0
 static AbstractNode procedureBody() {
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   AbstractNode statementSequence = null;
   AbstractNode declarations = declarations();
   if (nexttoken.getName().equals("BEGIN")) {
     outStr("BEGIN");
     insymbol();
     statementSequence = statementSequence();
     if (nexttoken.getName().equals("END")) {
       outStr("END");
       insymbol();
     } else {
       error("'END' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else {
     error("'BEGIN' expected", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new ProcedureBodyNode(declarations, statementSequence, line, column);
 }
Exemple #16
0
 static AbstractNode statementSequence() {
   List<AbstractNode> statementList = new LinkedList<AbstractNode>();
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   statementList.add(statement());
   while (nexttoken.getName().equals(";")) {
     outStr(";");
     insymbol();
     statementList.add(statement());
   }
   return new StatementSequenceNode(statementList, line, column);
 }
Exemple #17
0
 static AbstractNode repeatStatement() {
   AbstractNode cond = null, repeatPart = null;
   int line = 0, column = 0;
   if (nexttoken.getName().equals("REPEAT")) {
     outStr("REPEAT");
     insymbol();
     line = nexttoken.getLine();
     column = nexttoken.getColumn();
     repeatPart = statementSequence();
     if (nexttoken.getName().equals("UNTIL")) {
       outStr("UNTIL");
       insymbol();
       cond = expression();
     } else {
       error("'UNTIL' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else {
     error("RepeatStatement error", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new RepeatNode(cond, repeatPart, line, column);
 }
Exemple #18
0
  static AbstractNode identList() {
    int line = nexttoken.getLine();
    int column = nexttoken.getColumn();
    List<AbstractNode> list = new LinkedList<AbstractNode>();
    if (nexttoken.getType().equals("Ident")) {
      outStr(nexttoken.getName());
      list.add(new IdentNode(nexttoken.getName(), nexttoken.getLine(), nexttoken.getColumn()));
      insymbol();
      while (nexttoken.getName().equals(",")) {
        outStr(",");
        insymbol();
        outStr(nexttoken.getName());
        list.add(new IdentNode(nexttoken.getName(), nexttoken.getLine(), nexttoken.getColumn()));
        insymbol();
      }

    } else {
      error("IdentList Error", nexttoken.getLine(), nexttoken.getColumn());
    }
    return new ListNode(list, line, column);
  }
Exemple #19
0
 static AbstractNode procedureCall(Yytoken ident) {
   AbstractNode actualParameters = null;
   AbstractNode identNode = new IdentNode(ident.getName(), ident.getLine(), ident.getColumn());
   // Ident bereits in statement() abgearbeitet
   if (nexttoken.getName().equals("(")) {
     insymbol();
     if (nexttoken.getName().equals(")")) {
       insymbol();
     } else {
       actualParameters = actualParameters();
       if (nexttoken.getName().equals(")")) {
         insymbol();
       } else {
         error("')' expected", nexttoken.getLine(), nexttoken.getColumn());
       }
     }
   } else {
     error("ProcedureCall error", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new ProcedureCallNode(identNode, actualParameters, ident.getLine(), ident.getColumn());
 }
Exemple #20
0
 static AbstractNode formalParameters() {
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   List<AbstractNode> list = new LinkedList<AbstractNode>();
   list.add(fpSection());
   while (nexttoken.getName().equals(";")) {
     outStr(";");
     insymbol();
     list.add(fpSection());
   }
   return new ListNode(list, line, column);
 }
Exemple #21
0
 static AbstractNode statement() {
   AbstractNode statement = null;
   int line = 0, column = 0;
   if (nexttoken.getType().equals("Ident")) {
     Yytoken ident = nexttoken;
     line = nexttoken.getLine();
     column = nexttoken.getColumn();
     outStr(ident.getName());
     insymbol();
     if (nexttoken.getName().equals("(")) {
       statement = procedureCall(ident);
     } else {
       statement = assignment(ident);
     }
   } else if (nexttoken.getName().equals("IF")) {
     statement = ifStatement();
   } else if (nexttoken.getName().equals("PRINT")) {
     outStr("PRINT");
     insymbol();
     statement = new PrintNode(expression(), line, column);
   } else if (nexttoken.getName().equals("WHILE")) {
     statement = whileStatement();
   } else if (nexttoken.getName().equals("REPEAT")) {
     statement = repeatStatement();
   }
   return new StatementNode(statement, line, column);
 }
Exemple #22
0
 static AbstractNode procedureHeading() {
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   AbstractNode ident = null, formalParameters = null;
   if (nexttoken.getName().equals("PROCEDURE")) {
     outStr("PROCEDURE");
     insymbol();
     if (nexttoken.getType().equals("Ident")) {
       outStr(nexttoken.getName());
       ident = new IdentNode(nexttoken.getName(), nexttoken.getLine(), nexttoken.getColumn());
       insymbol();
       if (nexttoken.getName().equals("(")) {
         outStr("(");
         insymbol();
         if (!nexttoken.getName().equals(")")) {
           formalParameters = formalParameters();
         }
       } else {
         error("Missing '('", nexttoken.getLine(), nexttoken.getColumn());
       }
       if (nexttoken.getName().equals(")")) {
         outStr(")");
         insymbol();
       } else {
         error("Missing ')'", nexttoken.getLine(), nexttoken.getColumn());
       }
     } else {
       error("Ident expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else {
     error("'PROCEDURE' expected", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new ProcedureHeadingNode(ident, formalParameters, line, column);
 }
Exemple #23
0
  static AbstractNode simpleExpression() {
    String sign = null;
    String operator = null;
    AbstractNode left = null;
    AbstractNode node = null;
    int line = nexttoken.getLine();
    int column = nexttoken.getColumn();

    if (nexttoken.getName().equals("-")) {
      sign = nexttoken.getName();
      insymbol();
    }
    left = term();
    if (sign != null && sign.equals("-")) {
      outOp("- ");
      left = new OperatorNode("-", null, left, line, column);
    }

    while (nexttoken.getName().equals("-") || nexttoken.getName().equals("+")) {
      outOp(nexttoken.getName() + " ");
      operator = nexttoken.getName();
      insymbol();
      if (node == null) {
        node = new OperatorNode(operator, left, term(), line, column);
      } else {
        node = new OperatorNode(operator, node, term(), line, column);
      }
    }
    if (node == null) {
      return left;
    } else {
      return node;
    }
  }
Exemple #24
0
 static AbstractNode recordType() {
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   List<AbstractNode> lists = new LinkedList<AbstractNode>();
   if (nexttoken.getName().equals("RECORD")) {
     outStr("RECORD");
     insymbol();
     lists.add(fieldList());
     while (nexttoken.getName().equals(";")) {
       outStr(";");
       insymbol();
       lists.add(fieldList());
     }
     if (nexttoken.getName().equals("END")) {
       insymbol();
       outStr("END");
     } else {
       error("'END' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else {
     error("RecordType Error", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new RecordNode(new ListNode(lists, line, column), line, column);
 }
Exemple #25
0
 static AbstractNode fpSection() {
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   boolean isVar = false;
   AbstractNode identList = null, type = null;
   if (nexttoken.getName().equals("VAR")) {
     outStr("VAR");
     isVar = true;
     insymbol();
   }
   if (nexttoken.getType().equals("Ident")) {
     identList = identList();
   } else {
     error("'IDENT' expected", nexttoken.getLine(), nexttoken.getColumn());
   }
   if (nexttoken.getName().equals(":")) {
     outStr(":");
     insymbol();
     type = type();
   } else {
     error("':' expected", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new FPSectionNode(isVar, identList, type, line, column);
 }
Exemple #26
0
 static AbstractNode fieldList() {
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   AbstractNode identList = null, type = null;
   if (nexttoken.getType().equals("Ident")) {
     identList = identList();
     if (nexttoken.getName().equals(":")) {
       insymbol();
       type = type();
     } else {
       error("':' expected", nexttoken.getLine(), nexttoken.getColumn());
     }
   } else {
     error("FieldList Error", nexttoken.getLine(), nexttoken.getColumn());
   }
   return new FieldListNode(identList, type, line, column);
 }
Exemple #27
0
 static AbstractNode actualParameters() {
   // TODO epxression Nodes????
   List<AbstractNode> params = new LinkedList<AbstractNode>();
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   AbstractNode exprNode = expression();
   if (exprNode instanceof ContNode) {
     exprNode = ((ContNode) exprNode).getNode();
   }
   params.add(exprNode);
   while (nexttoken.getName().equals(",")) {
     insymbol();
     exprNode = expression();
     if (exprNode instanceof ContNode) {
       exprNode = ((ContNode) exprNode).getNode();
     }
     params.add(exprNode);
   }
   return new ListNode(params, line, column);
 }
Exemple #28
0
 static AbstractNode expression() {
   AbstractNode right = null;
   AbstractNode left = null;
   String operator = null;
   int line = nexttoken.getLine();
   int column = nexttoken.getColumn();
   left = simpleExpression();
   if (nexttoken.getName().equals("=")
       || nexttoken.getName().equals("#")
       || nexttoken.getName().equals("<")
       || nexttoken.getName().equals("<=")
       || nexttoken.getName().equals(">")
       || nexttoken.getName().equals(">=")) {
     outOp(nexttoken.getName() + " ");
     operator = nexttoken.getName();
     insymbol();
     right = simpleExpression();
   }
   if (operator != null) {
     return new OperatorNode(operator, left, right, line, column);
   } else {
     return left;
   }
 }
Exemple #29
0
  static AbstractNode declarations() {
    List<AbstractNode> constNodes = new LinkedList<AbstractNode>();
    List<AbstractNode> varNodes = new LinkedList<AbstractNode>();
    List<AbstractNode> typeNodes = new LinkedList<AbstractNode>();
    List<AbstractNode> procDeclNodes = new LinkedList<AbstractNode>();
    AbstractNode identNode;
    AbstractNode expressionNode;
    AbstractNode type;
    int line = 0, column = 0;
    if (nexttoken.getName().equals("CONST")) {
      outStr("CONST");
      insymbol();
      if (nexttoken.getType().equals("Ident")) {
        outStr(nexttoken.getName());
        line = nexttoken.getLine();
        column = nexttoken.getColumn();
        identNode = new IdentNode(nexttoken.getName(), line, column);

        insymbol();
        if (nexttoken.getName().equals("=")) {
          outStr("=");
          insymbol();
          expressionNode = expression();
          if (nexttoken.getName().equals(";")) {
            outStr(";");
            insymbol();
            constNodes.add(new ConstNode(identNode, expressionNode, line, column));
            while (nexttoken.getType().equals("Ident")) {
              line = nexttoken.getLine();
              column = nexttoken.getColumn();
              identNode = new IdentNode(nexttoken.getName(), line, column);
              outStr("Ident");
              insymbol();
              if (nexttoken.getName().equals("=")) {
                outStr("=");
                insymbol();
                expressionNode = expression();
                if (nexttoken.getName().equals(";")) {
                  outStr(";");
                  constNodes.add(new ConstNode(identNode, expressionNode, line, column));
                  insymbol();
                } else {
                  error("';' expected", nexttoken.getLine(), nexttoken.getColumn());
                }
              } else {
                error("'=' expected", nexttoken.getLine(), nexttoken.getColumn());
              }
            }
          } else {
            error("';' expected", nexttoken.getLine(), nexttoken.getColumn());
          }

        } else {
          error("'=' expected", nexttoken.getLine(), nexttoken.getColumn());
        }
      } else {
        error("'Ident' expected", nexttoken.getLine(), nexttoken.getColumn());
      }
    }
    if (nexttoken.getName().equals("TYPE")) {

      outStr("TYPE");
      insymbol();
      if (nexttoken.getType().equals("Ident")) {
        outStr(nexttoken.getName());
        line = nexttoken.getLine();
        column = nexttoken.getColumn();
        identNode = new IdentNode(nexttoken.getName(), line, column);
        insymbol();
        if (nexttoken.getName().equals("=")) {
          outStr("=");
          insymbol();
          type = type();
          if (nexttoken.getName().equals(";")) {
            outStr(";");
            typeNodes.add(new TypeNode(identNode, type, line, column));
            insymbol();
            while (nexttoken.getType().equals("Ident")) {
              outStr(nexttoken.getName());
              line = nexttoken.getLine();
              column = nexttoken.getColumn();
              identNode = new IdentNode(nexttoken.getName(), line, column);
              insymbol();
              if (nexttoken.getName().equals("=")) {
                outStr("=");
                insymbol();
                type = type();
                if (nexttoken.getName().equals(";")) {
                  outStr(";");
                  typeNodes.add(new TypeNode(identNode, type, line, column));
                  insymbol();
                } else {
                  error("';' expected", nexttoken.getLine(), nexttoken.getColumn());
                }
              } else {
                error("'=' expected", nexttoken.getLine(), nexttoken.getColumn());
              }
            }
          } else {
            error("';' expected", nexttoken.getLine(), nexttoken.getColumn());
          }
        } else {
          error("'=' expected", nexttoken.getLine(), nexttoken.getColumn());
        }
      } else {
        error("'Ident' expected", nexttoken.getLine(), nexttoken.getColumn());
      }
    }
    if (nexttoken.getName().equals("VAR")) {
      outStr("VAR");
      insymbol();
      line = nexttoken.getLine();
      column = nexttoken.getColumn();
      identNode = identList();
      if (nexttoken.getName().equals(":")) {
        outStr(":");
        insymbol();
        type = type();
        varNodes.add(new VarNode(identNode, type, line, column));
        if (nexttoken.getName().equals(";")) {
          outStr(";");

          insymbol();
          while (nexttoken.getType().equals("Ident")) {
            line = nexttoken.getLine();
            column = nexttoken.getColumn();
            identNode = identList();
            if (nexttoken.getName().equals(":")) {
              outStr(":");
              insymbol();
              type = type();
              if (nexttoken.getName().equals(";")) {
                outStr(";");
                varNodes.add(new VarNode(identNode, type, line, column));
                insymbol();
              } else {
                error("';' expected", nexttoken.getLine(), nexttoken.getColumn());
              }
            } else {
              error("'=' expected", nexttoken.getLine(), nexttoken.getColumn());
            }
          }
        } else {
          error("';' expected", nexttoken.getLine(), nexttoken.getColumn());
        }
      } else {
        error("'=' expected", nexttoken.getLine(), nexttoken.getColumn());
      }
    }
    // Procedure ist first token in ProcedureDeclaration -> ProcedureHeading
    // -> Procedure
    // Direkt Access because of the while Procedure
    while (nexttoken.getName().equals("PROCEDURE")) {

      procDeclNodes.add(procedureDeclaration());
      if (nexttoken.getName().equals(";")) {
        insymbol();
      } else {
        error("';' expected", nexttoken.getLine(), nexttoken.getColumn());
      }
    }
    return new DeclarationsNode(constNodes, typeNodes, varNodes, procDeclNodes, line, column);
  }