SmartPointer<Block> Parser::block(Tokenizer &tokenizer) { ParseScope scope(tokenizer.getScanner()); // Deleted bool deleted = false; if (tokenizer.consume(TokenType::DIV_TOKEN)) deleted = true; // Line number int line = -1; if (tokenizer.isID("N")) { tokenizer.advance(); Token num = tokenizer.match(TokenType::NUMBER_TOKEN); line = String::parseU32(num.getValue()); } // Children std::vector<SmartPointer<Entity> > children; // O-Code if (tokenizer.isID("O")) children.push_back(ocode(tokenizer)); while (tokenizer.hasMore()) { switch (tokenizer.getType()) { case TokenType::EOL_TOKEN: break; // End of block case TokenType::COMMENT_TOKEN: case TokenType::PAREN_COMMENT_TOKEN: children.push_back(comment(tokenizer)); break; case TokenType::POUND_TOKEN: children.push_back(assign(tokenizer)); break; default: if (!tokenizer.isType(TokenType::ID_TOKEN)) THROWS("Expected word or assignment, found " << tokenizer.getType()); children.push_back(word(tokenizer)); break; } if (tokenizer.getType() == TokenType::EOL_TOKEN) { tokenizer.advance(); break; } } return scope.set(new Block(deleted, line, children)); }
SmartPointer<Entity> Parser::compareOp(Tokenizer &tokenizer) { SmartPointer<Entity> entity = addOp(tokenizer); while (true) { if (tokenizer.getType() == TokenType::ID_TOKEN) { Operator op; string id = String::toUpper(tokenizer.getValue()); if (id == "EQ") op = Operator::EQ_OP; else if (id == "NE") op = Operator::NE_OP; else if (id == "GT") op = Operator::GT_OP; else if (id == "GE") op = Operator::GE_OP; else if (id == "LT") op = Operator::LT_OP; else if (id == "LE") op = Operator::LE_OP; if (op != Operator::NO_OP) { tokenizer.advance(); entity = new BinaryOp(op, entity, addOp(tokenizer)); continue; } } break; } return entity; }
SmartPointer<Comment> Parser::comment(Tokenizer &tokenizer) { ParseScope scope(tokenizer.getScanner()); Token token; bool paren = tokenizer.getType() == TokenType::PAREN_COMMENT_TOKEN; if (paren) token = tokenizer.advance(); else token = tokenizer.match(TokenType::COMMENT_TOKEN); return scope.set(new Comment(token.getValue(), paren)); }
SmartPointer<Entity> Parser::unaryOp(Tokenizer &tokenizer) { Operator op; switch(tokenizer.getType()) { case TokenType::ADD_TOKEN: op = Operator::ADD_OP; break; case TokenType::SUB_TOKEN: op = Operator::SUB_OP; break; default: break; } if (op == Operator::NO_OP) THROW("Expected unary - or + operator"); tokenizer.advance(); return new UnaryOp(op, numberRefOrExpr(tokenizer)); }
SmartPointer<Entity> Parser::addOp(Tokenizer &tokenizer) { SmartPointer<Entity> entity = mulOp(tokenizer); while (true) { Operator op; switch(tokenizer.getType()) { case TokenType::ADD_TOKEN: op = Operator::ADD_OP; break; case TokenType::SUB_TOKEN: op = Operator::SUB_OP; break; default: break; } if (op != Operator::NO_OP) { tokenizer.advance(); entity = new BinaryOp(op, entity, mulOp(tokenizer)); } else break; } return entity; }
SmartPointer<Entity> Parser::boolOp(Tokenizer &tokenizer) { SmartPointer<Entity> entity = compareOp(tokenizer); while (true) { if (tokenizer.getType() == TokenType::ID_TOKEN) { Operator op; string id = String::toUpper(tokenizer.getValue()); if (id == "AND") op = Operator::AND_OP; else if (id == "OR") op = Operator::OR_OP; else if (id == "XOR") op = Operator::XOR_OP; if (op != Operator::NO_OP) { tokenizer.advance(); entity = new BinaryOp(op, entity, compareOp(tokenizer)); } } break; } return entity; }
SmartPointer<Entity> Parser::mulOp(Tokenizer &tokenizer) { SmartPointer<Entity> entity = expOp(tokenizer); while (true) { Operator op; switch(tokenizer.getType()) { case TokenType::MUL_TOKEN: op = Operator::MUL_OP; break; case TokenType::DIV_TOKEN: op = Operator::DIV_OP; break; case TokenType::ID_TOKEN: if (String::toUpper(tokenizer.getValue()) == "MOD") op = Operator::MOD_OP; break; default: break; } if (op != Operator::NO_OP) { tokenizer.advance(); entity = new BinaryOp(op, entity, expOp(tokenizer)); } else break; } return entity; }