Method VisitFunctionCall

avida-core/source/script/cDirectInterpretASTVisitor.cc:1151–1326

void cDirectInterpretASTVisitor::VisitFunctionCall(cASTFunctionCall& node)
{
  if (node.IsASFunction()) {
    // Call internal function
    const cASFunction* func = node.GetASFunction();
    
    // Setup arguments
    cASCPPParameter* args = new cASCPPParameter[func->GetArity()];
    if (func->GetArity()) {
      tListIterator<cASTNode> cit = node.GetArguments()->Iterator();
      cASTNode* an = NULL;
      for (int i = 0; i < func->GetArity(); i++) {
        an = cit.Next();
        an->Accept(*this);
       
        switch (func->GetArgumentType(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;
          case TYPE(OBJECT_REF):  args[i].Set(asNativeObject(func->GetArgumentType(i).info, m_rtype, m_rvalue, node)); break;
            
          default:
            INTERPRET_ERROR(INTERNAL);
        }
      }
    }
    
    // Call the function
    cASCPPParameter rvalue = func->Call(args);

    // Handle the return value
    switch (node.GetType().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);
    }
    m_rtype = node.GetType();
    
    // Clean up arguments
    for (int i = 0; i < func->GetArity(); i++) {
      switch (func->GetArgumentType(i).type) {
        case TYPE(BOOL):    break;
        case TYPE(CHAR):    break;
        case TYPE(FLOAT):   break;
        case TYPE(INT):     break;
        case TYPE(STRING):  delete args[i].Get<cString*>(); break;
        case TYPE(OBJECT_REF):
          args[i].Get<cASNativeObject*>()->RemoveReference(); break;