Allow a * on a CString to get the first character.

[cycript.git] / Internal.hpp

diff --git a/Internal.hpp b/Internal.hpp
index 0851dea225467b3a65ab0954d831cd6d2fb5a9cd..9228379e36f0a4d3a2bd7357dbba78ab1ee9f3ef 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 {{{ */
 */
 
 /* GNU Affero General Public License, Version 3 {{{ */


@@ -30,18 +30,43 @@
 #include <JavaScriptCore/JSObjectRef.h>
 #include <JavaScriptCore/JSValueRef.h>
 
 #include <JavaScriptCore/JSObjectRef.h>
 #include <JavaScriptCore/JSValueRef.h>
 

+#include "JavaScript.hpp"

 #include "Pooling.hpp"
 #include "Pooling.hpp"

+#include "Utility.hpp"

 
 JSGlobalContextRef CYGetJSContext(JSContextRef context);
 sig::Type *Structor_(CYPool &pool, sig::Aggregate *aggregate);
 
 extern JSClassRef Functor_;
 
 
 JSGlobalContextRef CYGetJSContext(JSContextRef context);
 sig::Type *Structor_(CYPool &pool, sig::Aggregate *aggregate);
 
 extern JSClassRef Functor_;
 

-struct Type_privateData :
+template <typename Internal_>
+struct CYPrivate :

     CYData
 {
     static JSClassRef Class_;
 
     CYData
 {
     static JSClassRef Class_;
 

+    _finline JSValueRef GetPrototype(JSContextRef context) const {
+        return NULL;
+    }
+
+    template <typename... Args_>
+    _finline static JSClassRef GetClass(Args_ &&... args) {
+        return Class_;
+    }
+
+    template <typename... Args_>
+    static JSObjectRef Make(JSContextRef context, Args_ &&... args) {
+        Internal_ *internal(new Internal_(cy::Forward<Args_>(args)...));
+        JSObjectRef object(JSObjectMake(context, Internal_::GetClass(cy::Forward<Args_>(args)...), internal));
+        if (JSValueRef prototype = internal->GetPrototype(context))
+            CYSetPrototype(context, object, prototype);
+        return object;
+    }
+};
+
+struct Type_privateData :
+    CYPrivate<Type_privateData>
+{

     ffi_type *ffi_;
     sig::Type *type_;
 
     ffi_type *ffi_;
     sig::Type *type_;
 


@@ -77,7 +102,7 @@ struct Type_privateData :
             signature.count = 1;
 
             ffi_cif cif;
             signature.count = 1;
 
             ffi_cif cif;

-            sig::sig_ffi_cif(*pool_, &signature, &cif);
+            sig::sig_ffi_cif(*pool_, false, signature, &cif);

 
             ffi_ = new(*pool_) ffi_type;
             *ffi_ = *cif.rtype;
 
             ffi_ = new(*pool_) ffi_type;
             *ffi_ = *cif.rtype;


@@ -87,16 +112,17 @@ struct Type_privateData :
     }
 };
 
     }
 };
 

+template <typename Internal_, typename Value_>

 struct CYValue :
 struct CYValue :

-    CYData
+    CYPrivate<Internal_>

 {
 {

-    void *value_;
+    Value_ value_;

 
     CYValue() {
     }
 
 
     CYValue() {
     }
 

-    CYValue(const void *value) :
-        value_(const_cast<void *>(value))
+    CYValue(const Value_ &value) :
+        value_(value)

     {
     }
 
     {
     }
 


@@ -104,72 +130,75 @@ struct CYValue :
         value_(rhs.value_)
     {
     }
         value_(rhs.value_)
     {
     }

-
-    virtual Type_privateData *GetType() const {
-        return NULL;
-    }

 };
 
 };
 

-struct CYOwned :
-    CYValue
-{
+template <typename Internal_>
+JSClassRef CYPrivate<Internal_>::Class_;
+
+struct CYProtect {

   private:
     JSGlobalContextRef context_;
   private:
     JSGlobalContextRef context_;

-    JSObjectRef owner_;
+    JSObjectRef object_;

 
   public:
 
   public:

-    CYOwned(void *value, JSContextRef context, JSObjectRef owner) :
-        CYValue(value),
+    CYProtect(JSContextRef context, JSObjectRef object) :

         context_(CYGetJSContext(context)),
         context_(CYGetJSContext(context)),

-        owner_(owner)
+        object_(object)

     {
         //XXX:JSGlobalContextRetain(context_);
     {
         //XXX:JSGlobalContextRetain(context_);

-        if (owner_ != NULL)
-            JSValueProtect(context_, owner_);
+        if (object_ != NULL)
+            JSValueProtect(context_, object_);

     }
 
     }
 

-    virtual ~CYOwned() {
-        if (owner_ != NULL)
-            JSValueUnprotect(context_, owner_);
+    ~CYProtect() {
+        if (object_ != NULL)
+            JSValueUnprotect(context_, object_);

         //XXX:JSGlobalContextRelease(context_);
     }
 
         //XXX:JSGlobalContextRelease(context_);
     }
 

-    JSObjectRef GetOwner() const {
-        return owner_;
+    operator bool() const {
+        return object_ != NULL;
+    }
+
+    operator JSContextRef() const {
+        return context_;
+    }
+
+    operator JSObjectRef() const {
+        return object_;

     }
 };
 
 namespace cy {
 struct Functor :
     }
 };
 
 namespace cy {
 struct Functor :

-    CYValue
+    CYValue<Functor, void (*)()>

 {
   private:
     void set() {
 {
   private:
     void set() {

-        sig::sig_ffi_cif(*pool_, &signature_, &cif_);
+        sig::sig_ffi_cif(*pool_, variadic_ ? signature_.count : 0, signature_, &cif_);

     }
 
   public:
     }
 
   public:

+    bool variadic_;

     sig::Signature signature_;
     ffi_cif cif_;
 
     sig::Signature signature_;
     ffi_cif cif_;
 

-    Functor(const sig::Signature &signature, void (*value)()) :
-        CYValue(reinterpret_cast<void *>(value))
+    Functor(void (*value)(), bool variadic, const sig::Signature &signature) :
+        CYValue(value),
+        variadic_(variadic)

     {
         sig::Copy(*pool_, signature_, signature);
         set();
     }
 
     {
         sig::Copy(*pool_, signature_, signature);
         set();
     }
 

-    Functor(const char *encoding, void (*value)()) :
-        CYValue(reinterpret_cast<void *>(value))
+    Functor(void (*value)(), const char *encoding) :
+        CYValue(value),
+        variadic_(false)

     {
         sig::Parse(*pool_, &signature_, encoding, &Structor_);
         set();
     }
 
     {
         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;
 }; }
     static JSStaticFunction const * const StaticFunctions;
     static JSStaticValue const * const StaticValues;
 }; }


@@ -177,23 +206,14 @@ struct Functor :
 struct Closure_privateData :
     cy::Functor
 {
 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) :
     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(signature, NULL),
-        context_(CYGetJSContext(context)),
-        function_(function),
+        cy::Functor(NULL, false, signature),
+        function_(context, function),

         adapter_(adapter)
     {
         adapter_(adapter)
     {

-        //XXX:JSGlobalContextRetain(context_);
-        JSValueProtect(context_, function_);
-    }
-
-    virtual ~Closure_privateData() {
-        JSValueUnprotect(context_, function_);
-        //XXX:JSGlobalContextRelease(context_);

     }
 };
 
     }
 };