+ values[index] = pool.malloc<uint8_t>(ffi->size, ffi->alignment);
+ element.type->PoolFFI(&pool, context, ffi, values[index], arguments[index - setups]);
+ }
+
+ CYBuffer buffer(context);
+ uint8_t *value(buffer->malloc<uint8_t>(std::max<size_t>(cif->rtype->size, sizeof(ffi_arg)), std::max<size_t>(cif->rtype->alignment, alignof(ffi_arg))));
+
+ void (*call)(CYPool &, JSContextRef, ffi_cif *, void (*)(), void *, void **) = &CYCallFunction;
+ // XXX: this only supports one hook, but it is a bad idea anyway
+ for (CYHook *hook : GetHooks())
+ if (hook->CallFunction != NULL)
+ call = hook->CallFunction;
+
+ call(pool, context, cif, function, value, values);
+ return signature.elements[0].type->FromFFI(context, cif->rtype, value, initialize, buffer);
+}
+
+static JSValueRef Functor_callAsFunction(JSContextRef context, JSObjectRef object, JSObjectRef _this, size_t count, const JSValueRef arguments[], JSValueRef *exception) { CYTry {
+ CYPool pool;
+ cy::Functor *internal(reinterpret_cast<cy::Functor *>(JSObjectGetPrivate(object)));
+ return CYCallFunction(pool, context, 0, NULL, count, arguments, false, internal->variadic_, internal->signature_, &internal->cif_, internal->value_);
+} CYCatch(NULL) }
+
+static JSValueRef Pointer_callAsFunction(JSContextRef context, JSObjectRef object, JSObjectRef _this, size_t count, const JSValueRef arguments[], JSValueRef *exception) { CYTry {
+ Pointer *internal(reinterpret_cast<Pointer *>(JSObjectGetPrivate(object)));
+ if (dynamic_cast<sig::Function *>(internal->type_->type_) == NULL)
+ throw CYJSError(context, "cannot call a pointer to non-function");
+ JSObjectRef functor(CYCastJSObject(context, CYGetProperty(context, object, cyi_s)));
+ return CYCallAsFunction(context, functor, _this, count, arguments);
+} CYCatch(NULL) }
+
+JSObjectRef CYMakeType(JSContextRef context, const sig::Type &type) {
+ return CYPrivate<Type_privateData>::Make(context, type);
+}
+
+extern "C" bool CYBridgeHash(CYPool &pool, CYUTF8String name, const char *&code, unsigned &flags) {
+ sqlite3_stmt *statement;
+
+ _sqlcall(sqlite3_prepare(database_,
+ "select "
+ "\"cache\".\"code\", "
+ "\"cache\".\"flags\" "
+ "from \"cache\" "
+ "where"
+ " \"cache\".\"system\" & " CY_SYSTEM " == " CY_SYSTEM " and"
+ " \"cache\".\"name\" = ?"
+ " limit 1"
+ , -1, &statement, NULL));
+
+ _sqlcall(sqlite3_bind_text(statement, 1, name.data, name.size, SQLITE_STATIC));
+
+ bool success;
+ if (_sqlcall(sqlite3_step(statement)) == SQLITE_DONE)
+ success = false;
+ else {
+ success = true;
+ code = sqlite3_column_pooled(pool, statement, 0);
+ flags = sqlite3_column_int(statement, 1);
+ }
+
+ _sqlcall(sqlite3_finalize(statement));
+ return success;
+}
+
+static bool All_hasProperty(JSContextRef context, JSObjectRef object, JSStringRef property) {
+ if (JSStringIsEqualToUTF8CString(property, "errno"))
+ return true;
+
+ JSObjectRef global(CYGetGlobalObject(context));
+ JSObjectRef cycript(CYCastJSObject(context, CYGetProperty(context, global, CYJSString("Cycript"))));
+ JSObjectRef alls(CYCastJSObject(context, CYGetProperty(context, cycript, CYJSString("alls"))));
+
+ for (size_t i(0), count(CYArrayLength(context, alls)); i != count; ++i)
+ if (JSObjectRef space = CYCastJSObject(context, CYArrayGet(context, alls, count - i - 1)))
+ if (CYHasProperty(context, space, property))
+ return true;
+
+ CYPool pool;
+ const char *code;
+ unsigned flags;
+ if (CYBridgeHash(pool, CYPoolUTF8String(pool, context, property), code, flags))
+ return true;
+
+ return false;
+}
+
+static JSValueRef All_getProperty(JSContextRef context, JSObjectRef object, JSStringRef property, JSValueRef *exception) { CYTry {
+ if (JSStringIsEqualToUTF8CString(property, "errno"))
+ return CYCastJSValue(context, errno);
+
+ JSObjectRef global(CYGetGlobalObject(context));
+ JSObjectRef cycript(CYCastJSObject(context, CYGetProperty(context, global, CYJSString("Cycript"))));
+ JSObjectRef alls(CYCastJSObject(context, CYGetProperty(context, cycript, CYJSString("alls"))));
+
+ for (size_t i(0), count(CYArrayLength(context, alls)); i != count; ++i)
+ if (JSObjectRef space = CYCastJSObject(context, CYArrayGet(context, alls, count - i - 1)))
+ if (JSValueRef value = CYGetProperty(context, space, property))
+ if (!JSValueIsUndefined(context, value))
+ return value;
+
+ CYPool pool;
+ const char *code;
+ unsigned flags;
+ if (CYBridgeHash(pool, CYPoolUTF8String(pool, context, property), code, flags)) {
+ CYUTF8String parsed;
+
+ try {
+ parsed = CYPoolCode(pool, code);
+ } catch (const CYException &error) {
+ CYThrow("%s", pool.strcat("error caching ", CYPoolCString(pool, context, property), ": ", error.PoolCString(pool), NULL));
+ }
+
+ JSObjectRef cache(CYGetCachedObject(context, CYJSString("cache")));
+
+ JSObjectRef stub;
+ if (flags == CYBridgeType) {
+ stub = CYMakeType(context, sig::Void());
+ CYSetProperty(context, cache, property, stub);
+ } else
+ stub = NULL;
+
+ JSValueRef value(_jsccall(JSEvaluateScript, context, CYJSString(parsed), NULL, NULL, 0));
+
+ switch (flags) {
+ case CYBridgeVoid: {
+ } break;
+
+ case CYBridgeHold: {
+ CYSetProperty(context, cache, property, value);
+ } break;
+
+ case CYBridgeType: {
+ JSObjectRef swap(CYCastJSObject(context, value));
+ void *source(JSObjectGetPrivate(swap));
+ _assert(source != NULL);
+ void *target(JSObjectGetPrivate(stub));
+ _assert(JSObjectSetPrivate(swap, target));
+ _assert(JSObjectSetPrivate(stub, source));
+ value = stub;
+ } break;
+ }
+
+ return value;
+ }
+
+ return NULL;
+} CYCatch(NULL) }
+
+static JSValueRef All_complete_callAsFunction(JSContextRef context, JSObjectRef object, JSObjectRef _this, size_t count, const JSValueRef arguments[], JSValueRef *exception) { CYTry {
+ _assert(count == 1 || count == 2);
+ CYPool pool;
+ CYUTF8String prefix(CYPoolUTF8String(pool, context, CYJSString(context, arguments[0])));
+
+ JSObjectRef array(NULL);
+
+ {
+ CYArrayBuilder<1024> values(context, array);
+
+ sqlite3_stmt *statement;
+
+ if (prefix.size == 0)
+ _sqlcall(sqlite3_prepare(database_,
+ "select "
+ "\"cache\".\"name\" "
+ "from \"cache\" "
+ "where"
+ " \"cache\".\"system\" & " CY_SYSTEM " == " CY_SYSTEM
+ , -1, &statement, NULL));
+ else {
+ _sqlcall(sqlite3_prepare(database_,
+ "select "
+ "\"cache\".\"name\" "
+ "from \"cache\" "
+ "where"
+ " \"cache\".\"name\" >= ? and \"cache\".\"name\" < ? and "
+ " \"cache\".\"system\" & " CY_SYSTEM " == " CY_SYSTEM
+ , -1, &statement, NULL));
+
+ _sqlcall(sqlite3_bind_text(statement, 1, prefix.data, prefix.size, SQLITE_STATIC));
+
+ char *after(pool.strndup(prefix.data, prefix.size));
+ ++after[prefix.size - 1];
+ _sqlcall(sqlite3_bind_text(statement, 2, after, prefix.size, SQLITE_STATIC));
+ }
+
+ while (_sqlcall(sqlite3_step(statement)) != SQLITE_DONE)
+ values(CYCastJSValue(context, CYJSString(sqlite3_column_string(statement, 0))));
+
+ _sqlcall(sqlite3_finalize(statement));
+ }
+
+ return array;
+} CYCatch(NULL) }
+
+static void All_getPropertyNames(JSContextRef context, JSObjectRef object, JSPropertyNameAccumulatorRef names) {
+ JSObjectRef global(CYGetGlobalObject(context));
+ JSObjectRef cycript(CYCastJSObject(context, CYGetProperty(context, global, CYJSString("Cycript"))));
+ JSObjectRef alls(CYCastJSObject(context, CYGetProperty(context, cycript, CYJSString("alls"))));
+
+ for (size_t i(0), count(CYArrayLength(context, alls)); i != count; ++i)
+ if (JSObjectRef space = CYCastJSObject(context, CYArrayGet(context, alls, count - i - 1))) {
+ JSPropertyNameArrayRef subset(JSObjectCopyPropertyNames(context, space));
+ for (size_t index(0), count(JSPropertyNameArrayGetCount(subset)); index != count; ++index)
+ JSPropertyNameAccumulatorAddName(names, JSPropertyNameArrayGetNameAtIndex(subset, index));
+ JSPropertyNameArrayRelease(subset);
+ }
+}
+
+static JSObjectRef CArray_new(JSContextRef context, JSObjectRef object, size_t count, const JSValueRef arguments[], JSValueRef *exception) { CYTry {
+ _assert(false);
+} CYCatchObject() }
+
+static JSObjectRef CString_new(JSContextRef context, JSObjectRef object, size_t count, const JSValueRef arguments[], JSValueRef *exception) { CYTry {
+ _assert(false);
+} CYCatchObject() }
+
+static JSObjectRef Pointer_new(JSContextRef context, JSObjectRef object, size_t count, const JSValueRef arguments[], JSValueRef *exception) { CYTry {
+ _assert(false);
+} CYCatchObject() }
+
+static JSObjectRef Type_new(JSContextRef context, JSObjectRef object, size_t count, const JSValueRef arguments[], JSValueRef *exception) { CYTry {
+ CYPool pool;
+
+ if (false) {
+ } else if (count == 1) {
+ switch (JSValueGetType(context, arguments[0])) {
+ case kJSTypeString: {
+ const char *encoding(CYPoolCString(pool, context, arguments[0]));
+ sig::Signature signature;
+ sig::Parse(pool, &signature, encoding, &Structor_);
+ return CYMakeType(context, *signature.elements[0].type);
+ } break;
+
+ case kJSTypeObject: {
+ // XXX: accept a set of enum constants and /guess/ at their size
+ _assert(false);
+ } break;
+
+ default:
+ throw CYJSError(context, "incorrect kind of argument to new Type");
+ }
+ } else if (count == 2) {
+ JSObjectRef types(CYCastJSObject(context, arguments[0]));
+ size_t count(CYArrayLength(context, types));
+
+ JSObjectRef names(CYCastJSObject(context, arguments[1]));
+
+ sig::Aggregate type(false);
+ type.signature.elements = new(pool) sig::Element[count];
+ type.signature.count = count;
+
+ for (size_t i(0); i != count; ++i) {
+ sig::Element &element(type.signature.elements[i]);
+ element.offset = _not(size_t);
+
+ JSValueRef name(CYArrayGet(context, names, i));
+ if (JSValueIsUndefined(context, name))
+ element.name = NULL;
+ else
+ element.name = CYPoolCString(pool, context, name);
+
+ JSObjectRef object(CYCastJSObject(context, CYArrayGet(context, types, i)));
+ _assert(JSValueIsObjectOfClass(context, object, CYPrivate<Type_privateData>::Class_));
+ Type_privateData *internal(reinterpret_cast<Type_privateData *>(JSObjectGetPrivate(object)));
+ element.type = internal->type_;
+ _assert(element.type != NULL);
+ }
+
+ return CYMakeType(context, type);
+ } else {
+ throw CYJSError(context, "incorrect number of arguments to Type constructor");
projects / cycript.git / blobdiff