Method VisitVariableDefinition

avida-core/source/script/cSemanticASTVisitor.cc:319–357

void cSemanticASTVisitor::VisitVariableDefinition(cASTVariableDefinition& node)
{
  int var_id = -1;
  if (m_cur_symtbl->AddVariable(node.GetName(), node.GetType(), var_id)) node.SetVar(var_id);
  else SEMANTIC_ERROR(VARIABLE_REDEFINITION, (const char*)node.GetName());
  
  // Process matrix/array dimensions
  cASTArgumentList* al = node.GetDimensions();
  if (al) {
    if (node.GetType().type == TYPE(MATRIX) || node.GetType().type == TYPE(ARRAY)) {
      // Check individual arguments for validity
      tListIterator<cASTNode> it = al->Iterator();
      cASTNode* alnode = NULL;
      while ((alnode = it.Next())) {
        alnode->Accept(*this);
        checkCast(alnode->GetType(), TYPEINFO(INT));
      }
      
      // If empty, warn...
      if (al->GetSize() == 0) SEMANTIC_WARNING(NO_DIMENSIONS);
      
      // If dimensions exceed type limits
      if ((node.GetType().type == TYPE(ARRAY) && al->GetSize() > 1) ||
          (node.GetType().type == TYPE(MATRIX) && al->GetSize() > 2)) {
        SEMANTIC_ERROR(TOO_MANY_ARGUMENTS);
        SEMANTIC_ERROR(VARIABLE_DIMENSIONS_INVALID, (const char*)node.GetName(), mapType(node.GetType()));
      }
    } else {
      SEMANTIC_ERROR(VARIABLE_DIMENSIONS_INVALID, (const char*)node.GetName(), mapType(node.GetType()));
    }
  }
  
  // Process assignment
  cASTNode* ae = node.GetAssignmentExpression();
  if (ae) {
    ae->Accept(*this);
    checkCast(ae->GetType(), node.GetType());
  }
}


void cSemanticASTVisitor::VisitVariableDefinitionList(cASTVariableDefinitionList& node)