Implement Function.apply in vm (issue 5670).

runtime/vm/object.cc

 // Copyright (c) 2012, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "vm/object.h"
 
 #include "include/dart_api.h"
 #include "platform/assert.h"
 #include "vm/assembler.h"
 #include "vm/bigint_operations.h"
@@ skipping 8489 matching lines @@
   IntPtrArray::Cast(native_fields).SetAt(index, value);
 }
 
 
 bool Instance::IsClosure() const {
   const Class& cls = Class::Handle(clazz());
   return cls.IsSignatureClass();
 }
 
 
+bool Instance::IsCallable(Function* function, Context* context) const {
+  Class& cls = Class::Handle(clazz());
+  if (cls.IsSignatureClass()) {
+    if (function != NULL) {
+      *function = Closure::function(*this);
+    }
+    if (context != NULL) {
+      *context = Closure::context(*this);
+    }
+    return true;
+  }
+  // Try to resolve a "call" method.
+  const String& call_symbol = String::Handle(Symbols::Call());
+  Function& call_function = Function::Handle();
+  do {
+    call_function = cls.LookupDynamicFunction(call_symbol);
+    if (!call_function.IsNull()) {
+      if (function != NULL) {
+        *function = call_function.raw();
+      }
+      if (context != NULL) {
+        *context = Isolate::Current()->object_store()->empty_context();
+      }
+      return true;
+    }
+    cls = cls.SuperClass();
+  } while (!cls.IsNull());
+  return false;
+}
+
+
 RawInstance* Instance::New(const Class& cls, Heap::Space space) {
   Instance& result = Instance::Handle();
   {
     intptr_t instance_size = cls.instance_size();
     ASSERT(instance_size > 0);
     RawObject* raw = Object::Allocate(cls.id(), instance_size, space);
     NoGCScope no_gc;
     result ^= raw;
   }
   return result.raw();
@@ skipping 3930 matching lines @@
   }
   return result.raw();
 }
 
 
 const char* WeakProperty::ToCString() const {
   return "_WeakProperty";
 }
 
 }  // namespace dart