therubyracer 0.10.2 → 0.11.0beta1

data/ext/v8/locker.cc

@@ -0,0 +1,77 @@
+#include "rr.h"
+
+namespace rr {
+  void Locker::Init() {
+    ClassBuilder("Locker").
+      defineSingletonMethod("StartPreemption", &StartPreemption).
+      defineSingletonMethod("StopPreemption", &StopPreemption).
+      defineSingletonMethod("IsLocked", &IsLocked).
+      defineSingletonMethod("IsActive", &IsActive);
+      VALUE v8 = rb_define_module("V8");
+      VALUE c = rb_define_module_under(v8, "C");
+      rb_define_singleton_method(c, "Locker", (VALUE (*)(...))&doLock, -1);
+      rb_define_singleton_method(c, "Unlocker",(VALUE (*)(...))&doUnlock, -1);
+  }
+
+   VALUE Locker::StartPreemption(VALUE self, VALUE every_n_ms) {
+     Void(v8::Locker::StartPreemption(NUM2INT(every_n_ms)));
+   }
+
+   VALUE Locker::StopPreemption(VALUE self) {
+     Void(v8::Locker::StopPreemption());
+   }
+
+   VALUE Locker::IsLocked(VALUE self) {
+     return Bool(v8::Locker::IsLocked());
+   }
+
+   VALUE Locker::IsActive(VALUE self) {
+     return Bool(v8::Locker::IsActive());
+   }
+
+   VALUE Locker::doLock(int argc, VALUE* argv, VALUE self) {
+     if (!rb_block_given_p()) {
+       return Qnil;
+     }
+     int state = 0;
+     VALUE code;
+     rb_scan_args(argc,argv,"00&", &code);
+     VALUE result = setupLockAndCall(&state, code);
+     if (state != 0) {
+       rb_jump_tag(state);
+     }
+     return result;
+   }
+
+   VALUE Locker::setupLockAndCall(int* state, VALUE code) {
+     v8::Locker locker;
+     return rb_protect(&doLockCall, code, state);
+   }
+
+   VALUE Locker::doLockCall(VALUE code) {
+     return rb_funcall(code, rb_intern("call"), 0);
+   }
+
+   VALUE Locker::doUnlock(int argc, VALUE* argv, VALUE self) {
+     if (!rb_block_given_p()) {
+       return Qnil;
+     }
+     int state = 0;
+     VALUE code;
+     rb_scan_args(argc,argv,"00&", &code);
+     VALUE result = setupUnlockAndCall(&state, code);
+     if (state != 0) {
+       rb_jump_tag(state);
+     }
+     return result;
+   }
+
+   VALUE Locker::setupUnlockAndCall(int* state, VALUE code) {
+     v8::Unlocker unlocker;
+     return rb_protect(&doUnlockCall, code, state);
+   }
+
+   VALUE Locker::doUnlockCall(VALUE code) {
+     return rb_funcall(code, rb_intern("call"), 0);
+   }
+}

data/ext/v8/message.cc

@@ -0,0 +1,51 @@
+#include "rr.h"
+
+namespace rr {
+
+  void Message::Init() {
+    ClassBuilder("Message").
+      defineMethod("Get", &Get).
+      defineMethod("GetSourceLine", &GetSourceLine).
+      defineMethod("GetScriptResourceName", &GetScriptResourceName).
+      defineMethod("GetScriptData", &GetScriptData).
+      defineMethod("GetStackTrace", &GetStackTrace).
+      defineMethod("GetLineNumber", &GetLineNumber).
+      defineMethod("GetStartPosition", &GetStartPosition).
+      defineMethod("GetEndPosition", &GetEndPosition).
+      defineMethod("GetStartColumn", &GetEndColumn).
+      defineSingletonMethod("kNoLineNumberInfo", &kNoLineNumberInfo).
+      defineSingletonMethod("kNoColumnInfo", &kNoColumnInfo).
+      store(&Class);
+  }
+
+  VALUE Message::Get(VALUE self) {
+    return String(Message(self)->Get());
+  }
+  VALUE Message::GetSourceLine(VALUE self) {
+    return String(Message(self)->GetSourceLine());
+  }
+  VALUE Message::GetScriptResourceName(VALUE self) {
+    return Value(Message(self)->GetScriptResourceName());
+  }
+  VALUE Message::GetScriptData(VALUE self) {
+    return Value(Message(self)->GetScriptData());
+  }
+  VALUE Message::GetStackTrace(VALUE self) {
+    return Stack::Trace(Message(self)->GetStackTrace());
+  }
+  VALUE Message::GetLineNumber(VALUE self) {
+    return INT2FIX(Message(self)->GetLineNumber());
+  }
+  VALUE Message::GetStartPosition(VALUE self) {
+    return INT2FIX(Message(self)->GetStartPosition());
+  }
+  VALUE Message::GetEndPosition(VALUE self) {
+    return INT2FIX(Message(self)->GetEndPosition());
+  }
+  VALUE Message::GetStartColumn(VALUE self) {
+    return INT2FIX(Message(self)->GetStartColumn());
+  }
+  VALUE Message::GetEndColumn(VALUE self) {
+    return INT2FIX(Message(self)->GetEndColumn());
+  }
+}

data/ext/v8/object.cc

@@ -0,0 +1,334 @@
+#include "rr.h"
+
+namespace rr {
+
+void Object::Init() {
+  ClassBuilder("Object", Value::Class).
+    defineSingletonMethod("New", &New).
+    defineMethod("Set", &Set).
+    defineMethod("ForceSet", &ForceSet).
+    defineMethod("Get", &Get).
+    defineMethod("GetPropertyAttributes", &GetPropertyAttributes).
+    defineMethod("Has", &Has).
+    defineMethod("Delete", &Delete).
+    defineMethod("ForceDelete", &ForceDelete).
+    defineMethod("SetAccessor", &SetAccessor).
+    defineMethod("GetPropertyNames", &GetPropertyNames).
+    defineMethod("GetOwnPropertyNames", &GetOwnPropertyNames).
+    defineMethod("GetPrototype", &GetPrototype).
+    defineMethod("SetPrototype", &SetPrototype).
+    defineMethod("FindInstanceInPrototypeChain", &FindInstanceInPrototypeChain).
+    defineMethod("ObjectProtoToString", &ObjectProtoToString).
+    defineMethod("GetConstructorName", &GetConstructorName).
+    defineMethod("InternalFieldCount", &InternalFieldCount).
+    defineMethod("GetInternalField", &GetInternalField).
+    defineMethod("SetInternalField", &SetInternalField).
+    defineMethod("HasOwnProperty", &HasOwnProperty).
+    defineMethod("HasRealNamedProperty", &HasRealNamedProperty).
+    defineMethod("HasRealIndexedProperty", &HasRealIndexedProperty).
+    defineMethod("HasRealNamedCallbackProperty", &HasRealNamedCallbackProperty).
+    defineMethod("GetRealNamedPropertyInPrototypeChain", &GetRealNamedPropertyInPrototypeChain).
+    defineMethod("GetRealNamedProperty", &GetRealNamedProperty).
+    defineMethod("HasNamedLookupInterceptor", &HasNamedLookupInterceptor).
+    defineMethod("HasIndexedLookupInterceptor", &HasIndexedLookupInterceptor).
+    defineMethod("TurnOnAccessCheck", &TurnOnAccessCheck).
+    defineMethod("GetIdentityHash", &GetIdentityHash).
+    defineMethod("SetHiddenValue", &SetHiddenValue).
+    defineMethod("GetHiddenValue", &GetHiddenValue).
+    defineMethod("DeleteHiddenValue", &DeleteHiddenValue).
+    defineMethod("IsDirty", &IsDirty).
+    defineMethod("Clone", &Clone).
+    defineMethod("CreationContext", &CreationContext).
+    defineMethod("SetIndexedPropertiesToPixelData", &SetIndexedPropertiesToPixelData).
+    defineMethod("GetIndexedPropertiesPixelData", &GetIndexedPropertiesPixelData).
+    defineMethod("HasIndexedPropertiesToPixelData", &HasIndexedPropertiesInPixelData).
+    defineMethod("GetIndexedPropertiesPixelDataLength", &GetIndexedPropertiesPixelDataLength).
+    defineMethod("SetIndexedPropertiesToExternalArrayData", &SetIndexedPropertiesToExternalArrayData).
+    defineMethod("HasIndexedPropertiesInExternalArrayData", &HasIndexedPropertiesInExternalArrayData).
+    defineMethod("GetIndexedPropertiesExternalArrayData", &GetIndexedPropertiesExternalArrayData).
+    defineMethod("GetIndexedPropertiesExternalArrayDataType", &GetIndexedPropertiesExternalArrayDataType).
+    defineMethod("GetIndexedPropertiesExternalArrayDataLength", &GetIndexedPropertiesExternalArrayDataLength).
+    defineMethod("IsCallable", &IsCallable).
+    defineMethod("CallAsFunction", &CallAsFunction).
+    defineMethod("CallAsConstructor", &CallAsConstructor).
+    store(&Class);
+  ClassBuilder("PropertyAttribute").
+    defineEnumConst("None", v8::None).
+    defineEnumConst("ReadOnly", v8::ReadOnly).
+    defineEnumConst("DontEnum", v8::DontEnum).
+    defineEnumConst("DontDelete", v8::DontDelete);
+  ClassBuilder("AccessControl").
+    defineEnumConst("DEFAULT", v8::DEFAULT).
+    defineEnumConst("ALL_CAN_READ", v8::ALL_CAN_READ).
+    defineEnumConst("ALL_CAN_WRITE", v8::ALL_CAN_WRITE).
+    defineEnumConst("PROHIBITS_OVERWRITING", v8::PROHIBITS_OVERWRITING);
+}
+
+
+VALUE Object::New(VALUE self) {
+  return Object(v8::Object::New());
+}
+
+//TODO: Allow setting of property attributes
+VALUE Object::Set(VALUE self, VALUE key, VALUE value) {
+  if (rb_obj_is_kind_of(key, rb_cNumeric)) {
+    return Bool(Object(self)->Set(UInt32(key), Value(value)));
+  } else {
+    return Bool(Object(self)->Set(*Value(key), Value(value)));
+  }
+}
+
+VALUE Object::ForceSet(VALUE self, VALUE key, VALUE value) {
+  return Bool(Object(self)->ForceSet(Value(key), Value(value)));
+}
+
+VALUE Object::Get(VALUE self, VALUE key) {
+  if (rb_obj_is_kind_of(key, rb_cNumeric)) {
+    return Value(Object(self)->Get(UInt32(key)));
+  } else {
+    return Value(Object(self)->Get(*Value(key)));
+  }
+}
+
+VALUE Object::GetPropertyAttributes(VALUE self, VALUE key) {
+  return PropertyAttribute(Object(self)->GetPropertyAttributes(Value(key)));
+}
+
+VALUE Object::Has(VALUE self, VALUE key) {
+  Object obj(self);
+  if (rb_obj_is_kind_of(key, rb_cNumeric)) {
+    return Bool(obj->Has(UInt32(key)));
+  } else {
+    return Bool(obj->Has(*String(key)));
+  }
+}
+
+VALUE Object::Delete(VALUE self, VALUE key) {
+  Object obj(self);
+  if (rb_obj_is_kind_of(key, rb_cNumeric)) {
+    return Bool(obj->Delete(UInt32(key)));
+  } else {
+    return Bool(obj->Delete(*String(key)));
+  }
+}
+
+VALUE Object::ForceDelete(VALUE self, VALUE key) {
+  return Bool(Object(self)->ForceDelete(Value(key)));
+}
+
+
+VALUE Object::SetAccessor(int argc, VALUE* argv, VALUE self) {
+  VALUE name; VALUE get; VALUE set; VALUE data; VALUE settings; VALUE attribs;
+  rb_scan_args(argc, argv, "24", &name, &get, &set, &data, &settings, &attribs);
+  Accessor access(get, set, data);
+  return Bool(Object(self)->SetAccessor(
+    String(name),
+    access.accessorGetter(),
+    access.accessorSetter(),
+    access,
+    AccessControl(settings),
+    PropertyAttribute(attribs))
+  );
+}
+
+Object::operator VALUE() {
+  if (handle.IsEmpty()) {
+    return Qnil;
+  }
+  Backref* backref;
+  v8::Local<v8::String> key(v8::String::NewSymbol("rr::Backref"));
+  v8::Local<v8::Value> external = handle->GetHiddenValue(key);
+  VALUE value;
+  if (external.IsEmpty()) {
+    value = downcast();
+    backref = new Backref(value);
+    handle->SetHiddenValue(key, backref->toExternal());
+  } else {
+    backref = (Backref*)v8::External::Unwrap(external);
+    value = backref->get();
+    if (!RTEST(value)) {
+      value = downcast();
+      backref->set(value);
+    }
+  }
+  return value;
+}
+
+VALUE Object::downcast() {
+  if (handle->IsFunction()) {
+    return Function((v8::Handle<v8::Function>) v8::Function::Cast(*handle));
+  }
+  if (handle->IsArray()) {
+    return Array((v8::Handle<v8::Array>)v8::Array::Cast(*handle));
+  }
+  if (handle->IsDate()) {
+    // return Date(handle);
+  }
+  if (handle->IsBooleanObject()) {
+    // return BooleanObject(handle);
+  }
+  if (handle->IsNumberObject()) {
+    // return NumberObject(handle);
+  }
+  if (handle->IsStringObject()) {
+    // return StringObject(handle);
+  }
+  if (handle->IsRegExp()) {
+    // return RegExp(handle);
+  }
+  return Ref<v8::Object>::operator VALUE();
+}
+
+VALUE Object::GetPropertyNames(VALUE self) {
+  return Array(Object(self)->GetPropertyNames());
+}
+
+VALUE Object::GetOwnPropertyNames(VALUE self) {
+  return Array(Object(self)->GetOwnPropertyNames());
+}
+
+VALUE Object::GetPrototype(VALUE self) {
+  return Value(Object(self)->GetPrototype());
+}
+
+VALUE Object::SetPrototype(VALUE self, VALUE prototype) {
+  return Bool(Object(self)->SetPrototype(Value(prototype)));
+}
+
+VALUE Object::FindInstanceInPrototypeChain(VALUE self, VALUE impl) {
+  return Object(Object(self)->FindInstanceInPrototypeChain(FunctionTemplate(impl)));
+}
+
+VALUE Object::ObjectProtoToString(VALUE self) {
+  return String(Object(self)->ObjectProtoToString());
+}
+
+VALUE Object::GetConstructorName(VALUE self) {
+  return String(Object(self)->GetConstructorName());
+}
+
+VALUE Object::InternalFieldCount(VALUE self) {
+  return INT2FIX(Object(self)->InternalFieldCount());
+}
+
+VALUE Object::GetInternalField(VALUE self, VALUE idx) {
+  return Value(Object(self)->GetInternalField(NUM2INT(idx)));
+}
+
+VALUE Object::SetInternalField(VALUE self, VALUE idx, VALUE value) {
+  Void(Object(self)->SetInternalField(NUM2INT(idx), Value(value)));
+}
+
+VALUE Object::HasOwnProperty(VALUE self, VALUE key) {
+  return Bool(Object(self)->HasOwnProperty(String(key)));
+}
+
+VALUE Object::HasRealNamedProperty(VALUE self, VALUE key) {
+  return Bool(Object(self)->HasRealNamedProperty(String(key)));
+}
+
+VALUE Object::HasRealIndexedProperty(VALUE self, VALUE idx) {
+  return Bool(Object(self)->HasRealIndexedProperty(UInt32(idx)));
+}
+
+VALUE Object::HasRealNamedCallbackProperty(VALUE self, VALUE key) {
+  return Bool(Object(self)->HasRealNamedCallbackProperty(String(key)));
+}
+
+VALUE Object::GetRealNamedPropertyInPrototypeChain(VALUE self, VALUE key) {
+  return Value(Object(self)->GetRealNamedPropertyInPrototypeChain(String(key)));
+}
+
+VALUE Object::GetRealNamedProperty(VALUE self, VALUE key) {
+  return Value(Object(self)->GetRealNamedProperty(String(key)));
+}
+
+VALUE Object::HasNamedLookupInterceptor(VALUE self) {
+  return Bool(Object(self)->HasNamedLookupInterceptor());
+}
+
+VALUE Object::HasIndexedLookupInterceptor(VALUE self) {
+  return Bool(Object(self)->HasIndexedLookupInterceptor());
+}
+
+VALUE Object::TurnOnAccessCheck(VALUE self) {
+  Void(Object(self)->TurnOnAccessCheck());
+}
+
+VALUE Object::GetIdentityHash(VALUE self) {
+  return INT2FIX(Object(self)->GetIdentityHash());
+}
+
+VALUE Object::SetHiddenValue(VALUE self, VALUE key, VALUE value) {
+  return Bool(Object(self)->SetHiddenValue(String(key), Value(value)));
+}
+
+VALUE Object::GetHiddenValue(VALUE self, VALUE key) {
+  return Value(Object(self)->GetHiddenValue(String(key)));
+}
+
+VALUE Object::DeleteHiddenValue(VALUE self, VALUE key) {
+  return Bool(Object(self)->DeleteHiddenValue(String(key)));
+}
+
+VALUE Object::IsDirty(VALUE self) {
+  return Bool(Object(self)->IsDirty());
+}
+
+VALUE Object::Clone(VALUE self) {
+  return Object(Object(self)->Clone());
+}
+
+VALUE Object::CreationContext(VALUE self) {
+  return Context(Object(self)->CreationContext());
+}
+
+VALUE Object::SetIndexedPropertiesToPixelData(VALUE self, VALUE data, VALUE length) {
+  return not_implemented("SetIndexedPropertiesToPixelData");
+}
+
+VALUE Object::GetIndexedPropertiesPixelData(VALUE self) {
+  return not_implemented("GetIndexedPropertiesPixelData");
+}
+
+VALUE Object::HasIndexedPropertiesInPixelData(VALUE self) {
+  return Bool(Object(self)->HasIndexedPropertiesInPixelData());
+}
+
+VALUE Object::GetIndexedPropertiesPixelDataLength(VALUE self) {
+  return INT2FIX(Object(self)->GetIndexedPropertiesPixelDataLength());
+}
+
+VALUE Object::SetIndexedPropertiesToExternalArrayData(VALUE self) {
+  return not_implemented("SetIndexedPropertiesToExternalArrayData");
+}
+
+VALUE Object::HasIndexedPropertiesInExternalArrayData(VALUE self) {
+  return Bool(Object(self)->HasIndexedPropertiesInExternalArrayData());
+}
+
+VALUE Object::GetIndexedPropertiesExternalArrayData(VALUE self) {
+  return not_implemented("GetIndexedPropertiesExternalArrayData");
+}
+
+VALUE Object::GetIndexedPropertiesExternalArrayDataType(VALUE self) {
+  return not_implemented("GetIndexedPropertiesExternalArrayDataType");
+}
+
+VALUE Object::GetIndexedPropertiesExternalArrayDataLength(VALUE self) {
+  return INT2FIX(Object(self)->GetIndexedPropertiesExternalArrayDataLength());
+}
+
+VALUE Object::IsCallable(VALUE self) {
+  return Bool(Object(self)->IsCallable());
+}
+
+VALUE Object::CallAsFunction(VALUE self, VALUE recv, VALUE argv) {
+  return Value(Object(self)->CallAsFunction(Object(recv), RARRAY_LENINT(argv), Value::array<Value>(argv)));
+}
+
+VALUE Object::CallAsConstructor(VALUE self, VALUE argv) {
+  return Value(Object(self)->CallAsConstructor(RARRAY_LENINT(argv), Value::array<Value>(argv)));
+}
+
+}