Method parseExprP6

avida-core/source/script/cParser.cc:592–683

}

cASTNode* cParser::parseExprP6()
{
  PARSE_TRACE("parseExprP6");
  Apto::SmartPtr<cASTNode> expr;
  
  bool is_matrix = false;
  
  switch (currentToken()) {
    case TOKEN(FLOAT):
      expr.Set(new cASTLiteral(FILEPOS, AS_TYPE_FLOAT, currentText()));
      break;
    case TOKEN(INT):
      expr.Set(new cASTLiteral(FILEPOS, AS_TYPE_INT, currentText()));
      break;
    case TOKEN(CHAR):
      expr.Set(new cASTLiteral(FILEPOS, AS_TYPE_CHAR,
                               currentText().Substring(1, currentText().GetSize() - 2).ParseEscapeSequences()));
      break;
    case TOKEN(BOOL):
      expr.Set(new cASTLiteral(FILEPOS, AS_TYPE_BOOL, currentText()));
      break;
    case TOKEN(STRING):
      expr.Set(new cASTLiteral(FILEPOS, AS_TYPE_STRING,
                               currentText().Substring(1, currentText().GetSize() - 2).ParseEscapeSequences()));
      break;
    case TOKEN(ID):
      if (peekToken() == TOKEN(PREC_OPEN)) {
        cASTFunctionCall* fc = new cASTFunctionCall(FILEPOS, currentText());
        expr.Set(fc);
        nextToken(); // consume id token
        if (nextToken() != TOKEN(PREC_CLOSE)) fc->SetArguments(parseArgumentList());        
        if (currentToken() != TOKEN(PREC_CLOSE)) PARSE_UNEXPECT();
      } else {
        expr = new cASTVariableReference(FILEPOS, currentText());
      }
      break;
    case TOKEN(BUILTIN_CALL):
      if (peekToken() == TOKEN(PREC_OPEN)) {
        cASTBuiltInCall* bi = new cASTBuiltInCall(FILEPOS, currentText());
        expr.Set(bi);
        nextToken(); // consume builtin methon name token
        if (nextToken() != TOKEN(PREC_CLOSE)) bi->SetArguments(parseArgumentList());        
        if (currentToken() != TOKEN(PREC_CLOSE)) PARSE_UNEXPECT();
      } else {
        PARSE_UNEXPECT();
      }
      break;
    case TOKEN(PREC_OPEN):
      nextToken(); // consume '('
      expr.Set(parseExpression());
      if (expr.IsNull()) PARSE_ERROR(NULL_EXPR);
      if (currentToken() != TOKEN(PREC_CLOSE)) PARSE_UNEXPECT();
      break;
      
    case TOKEN(LITERAL_DICT):
      expr.Set(parseLiteralDict());
      if (currentToken() != TOKEN(ARR_CLOSE)) PARSE_UNEXPECT();
      break;