Method VisitObjectCall

avida-core/source/script/cDirectInterpretASTVisitor.cc:1432–1501

}

void cDirectInterpretASTVisitor::VisitObjectCall(cASTObjectCall& node)
{ 
  node.GetObject()->Accept(*this);
 
  if (m_rtype.type != TYPE(OBJECT_REF))
    INTERPRET_ERROR(TYPE_CAST, mapType(m_rtype.type), mapType(TYPE(OBJECT_REF)));
  
  cASNativeObject* nobj = m_rvalue.as_nobj;
  
  int mid = -1;
  if (!nobj->LookupMethod(node.GetName(), mid))
    INTERPRET_ERROR(NOBJ_METHOD_LOOKUP_FAILED, *node.GetName(), *m_rtype.info);
    
  int arity = nobj->GetArity(mid);
  // Setup arguments
  cASCPPParameter* args = new cASCPPParameter[arity];
  if (arity) {
    tListIterator<cASTNode> cit = node.GetArguments()->Iterator();
    cASTNode* an = NULL;
    for (int i = 0; i < arity; i++) {
      an = cit.Next();
      an->Accept(*this);
      
      switch (nobj->GetArgumentType(mid, i).type) {
        case TYPE(BOOL):        args[i].Set(asBool(m_rtype, m_rvalue, node)); break;
        case TYPE(CHAR):        args[i].Set(asChar(m_rtype, m_rvalue, node)); break;
        case TYPE(FLOAT):       args[i].Set(asFloat(m_rtype, m_rvalue, node)); break;
        case TYPE(INT):         args[i].Set(asInt(m_rtype, m_rvalue, node)); break;
        case TYPE(STRING):      args[i].Set(asString(m_rtype, m_rvalue, node)); break;
          
        default:
          INTERPRET_ERROR(INTERNAL);
      }
    }
  }
  
  // Call the function
  cASCPPParameter rvalue = nobj->CallMethod(mid, args);
  
  // Handle the return value
  m_rtype = nobj->GetReturnType(mid);
  switch (m_rtype.type) {
    case TYPE(BOOL):        m_rvalue.as_bool = rvalue.Get<bool>(); break;
    case TYPE(CHAR):        m_rvalue.as_char = rvalue.Get<char>(); break;
    case TYPE(FLOAT):       m_rvalue.as_float = rvalue.Get<double>(); break;
    case TYPE(INT):         m_rvalue.as_int = rvalue.Get<int>(); break;
    case TYPE(STRING):      m_rvalue.as_string = rvalue.Get<cString*>(); break;
    case TYPE(OBJECT_REF):  m_rvalue.as_nobj = rvalue.Get<cASNativeObject*>(); break;
    case TYPE(VOID):        break;
      
    default:
      INTERPRET_ERROR(INTERNAL);
  }
  
  // Clean up arguments
  for (int i = 0; i < arity; i++) {
    switch (nobj->GetArgumentType(mid, i).type) {
      case TYPE(BOOL):    break;