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<Entity> Parser::numberRefOrExpr(Tokenizer &tokenizer) {
switch (tokenizer.getType()) {
case TokenType::POUND_TOKEN: return reference(tokenizer);
case TokenType::OBRACKET_TOKEN: return quotedExpr(tokenizer);
case TokenType::NUMBER_TOKEN: return number(tokenizer);
case TokenType::ADD_TOKEN:
case TokenType::SUB_TOKEN: return unaryOp(tokenizer);
default: THROW("Expected number, reference, or bracked expression");
}
}
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;
}
SmartPointer<Entity> Parser::primary(Tokenizer &tokenizer) {
switch (tokenizer.getType()) {
case TokenType::ID_TOKEN: return functionCall(tokenizer);
default: return numberRefOrExpr(tokenizer);
}
}
