Instance's toPointer() should return as CFTypeRef.

[cycript.git] / Internal.hpp

diff --git a/Internal.hpp b/Internal.hpp
index 3c5d5f59bde3d5d7a9e0b96adc70a68ecd0c32c3..e6f2d45eb70d9cedcfba4ca45b05fb3649ccf1ff 100644 (file)
--- a/Internal.hpp
+++ b/Internal.hpp
@@ -1,5 +1,5 @@
-/* Cycript - Optimizing JavaScript Compiler/Runtime
- * Copyright (C) 2009-2015  Jay Freeman (saurik)
+/* Cycript - The Truly Universal Scripting Language
+ * Copyright (C) 2009-2016  Jay Freeman (saurik)
 */
 
 /* GNU Affero General Public License, Version 3 {{{ */
@@ -30,18 +30,72 @@
 #include <JavaScriptCore/JSObjectRef.h>
 #include <JavaScriptCore/JSValueRef.h>
 
+#include "JavaScript.hpp"
 #include "Pooling.hpp"
+#include "Utility.hpp"
+
+struct CYPropertyName;
 
 JSGlobalContextRef CYGetJSContext(JSContextRef context);
 sig::Type *Structor_(CYPool &pool, sig::Aggregate *aggregate);
 
-extern JSClassRef Functor_;
-
-struct Type_privateData :
+struct CYRoot :
     CYData
 {
+    // XXX: without this, CYData is zero-initialized?!
+    CYRoot() :
+        CYData()
+    {
+    }
+
+    _finline JSValueRef GetPrototype(JSContextRef context) const {
+        return NULL;
+    }
+};
+
+template <typename Internal_>
+struct CYPrivate {
     static JSClassRef Class_;
 
+    template <typename... Args_>
+    static JSObjectRef Make(JSContextRef context, Args_ &&... args) {
+        Internal_ *internal(new Internal_(cy::Forward<Args_>(args)...));
+        JSObjectRef object(JSObjectMake(context, Class_, internal));
+        if (JSValueRef prototype = internal->GetPrototype(context))
+            CYSetPrototype(context, object, prototype);
+        return object;
+    }
+
+    template <typename Arg_>
+    static JSObjectRef Cache(JSContextRef context, Arg_ *arg) {
+        JSObjectRef global(CYGetGlobalObject(context));
+        JSObjectRef cy(CYCastJSObject(context, CYGetProperty(context, global, cy_s)));
+
+        char label[32];
+        sprintf(label, "%s%p", Internal_::Cache_, arg);
+        CYJSString name(label);
+
+        JSValueRef value(CYGetProperty(context, cy, name));
+        if (!JSValueIsUndefined(context, value))
+            return CYCastJSObject(context, value);
+
+        JSObjectRef object(Make(context, arg));
+        CYSetProperty(context, cy, name, object);
+        return object;
+    }
+
+    static Internal_ *Get(JSContextRef context, JSObjectRef object) {
+        _assert(JSValueIsObjectOfClass(context, object, Class_));
+        return static_cast<Internal_ *>(JSObjectGetPrivate(object));
+    }
+};
+
+template <typename Internal_>
+JSClassRef CYPrivate<Internal_>::Class_;
+
+struct Type_privateData :
+    CYRoot
+{
     ffi_type *ffi_;
     sig::Type *type_;
 
@@ -87,74 +141,87 @@ struct Type_privateData :
     }
 };
 
-struct CYValue :
-    CYData
-{
-    void *value_;
+struct CYProtect {
+  private:
+    JSGlobalContextRef context_;
+    JSObjectRef object_;
 
-    CYValue() {
+  public:
+    CYProtect(JSContextRef context, JSObjectRef object) :
+        context_(CYGetJSContext(context)),
+        object_(object)
+    {
+        //XXX:JSGlobalContextRetain(context_);
+        if (object_ != NULL)
+            JSValueProtect(context_, object_);
     }
 
-    CYValue(const void *value) :
-        value_(const_cast<void *>(value))
-    {
+    ~CYProtect() {
+        if (object_ != NULL)
+            JSValueUnprotect(context_, object_);
+        //XXX:JSGlobalContextRelease(context_);
     }
 
-    CYValue(const CYValue &rhs) :
-        value_(rhs.value_)
-    {
+    operator bool() const {
+        return object_ != NULL;
     }
 
-    virtual Type_privateData *GetType() const {
-        return NULL;
+    operator JSContextRef() const {
+        return context_;
+    }
+
+    operator JSObjectRef() const {
+        return object_;
     }
 };
 
-struct CYOwned :
-    CYValue
-{
+class CYBuffer {
   private:
-    JSGlobalContextRef context_;
     JSObjectRef owner_;
+    CYPool *pool_;
 
   public:
-    CYOwned(void *value, JSContextRef context, JSObjectRef owner) :
-        CYValue(value),
-        context_(CYGetJSContext(context)),
-        owner_(owner)
+    CYBuffer(JSContextRef context) :
+        owner_(CYPrivate<CYRoot>::Make(context)),
+        pool_(CYPrivate<CYRoot>::Get(context, owner_)->pool_)
     {
-        //XXX:JSGlobalContextRetain(context_);
-        if (owner_ != NULL)
-            JSValueProtect(context_, owner_);
+        auto internal(CYPrivate<CYRoot>::Get(context, owner_));
+        internal->pool_->malloc<int>(10);
     }
 
-    virtual ~CYOwned() {
-        if (owner_ != NULL)
-            JSValueUnprotect(context_, owner_);
-        //XXX:JSGlobalContextRelease(context_);
+    operator JSObjectRef() const {
+        return owner_;
     }
 
-    JSObjectRef GetOwner() const {
-        return owner_;
+    operator CYPool *() const {
+        return pool_;
+    }
+
+    CYPool *operator ->() const {
+        return pool_;
     }
 };
 
 namespace cy {
 struct Functor :
-    CYValue
+    CYRoot
 {
+  public:
+    static JSClassRef Class_;
+
   private:
     void set() {
         sig::sig_ffi_cif(*pool_, variadic_ ? signature_.count : 0, signature_, &cif_);
     }
 
   public:
+    void (*value_)();
     bool variadic_;
     sig::Signature signature_;
     ffi_cif cif_;
 
     Functor(void (*value)(), bool variadic, const sig::Signature &signature) :
-        CYValue(reinterpret_cast<void *>(value)),
+        value_(value),
         variadic_(variadic)
     {
         sig::Copy(*pool_, signature_, signature);
@@ -162,41 +229,27 @@ struct Functor :
     }
 
     Functor(void (*value)(), const char *encoding) :
-        CYValue(reinterpret_cast<void *>(value)),
+        value_(value),
         variadic_(false)
     {
         sig::Parse(*pool_, &signature_, encoding, &Structor_);
         set();
     }
 
-    void (*GetValue() const)() {
-        return reinterpret_cast<void (*)()>(value_);
-    }
-
-    static JSStaticFunction const * const StaticFunctions;
-    static JSStaticValue const * const StaticValues;
+    virtual CYPropertyName *GetName(CYPool &pool) const;
 }; }
 
 struct Closure_privateData :
     cy::Functor
 {
-    JSGlobalContextRef context_;
-    JSObjectRef function_;
+    CYProtect function_;
     JSValueRef (*adapter_)(JSContextRef, size_t, JSValueRef[], JSObjectRef);
 
     Closure_privateData(JSContextRef context, JSObjectRef function, JSValueRef (*adapter)(JSContextRef, size_t, JSValueRef[], JSObjectRef), const sig::Signature &signature) :
         cy::Functor(NULL, false, signature),
-        context_(CYGetJSContext(context)),
-        function_(function),
+        function_(context, function),
         adapter_(adapter)
     {
-        //XXX:JSGlobalContextRetain(context_);
-        JSValueProtect(context_, function_);
-    }
-
-    virtual ~Closure_privateData() {
-        JSValueUnprotect(context_, function_);
-        //XXX:JSGlobalContextRelease(context_);
     }
 };