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); }
static AbstractNode read() { AbstractNode node = null; if (nexttoken.getName().equals("READ")) { insymbol(); outStr("READ "); if (nexttoken.getName().charAt(0) == '"') { node = prompt(); } } return node; }
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); }
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); }
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; }
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); } }
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; } }
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); }
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; } }
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; }
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); }
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); }
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; }
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); }
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); }
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); }
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); }
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); }
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; } }
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); }
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); }
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); }
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); }
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; }
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); }
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); }
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()); }
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); }
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); }