jbarnette-johnson 1.0.0.200806240111

data/ext/spidermonkey/immutable_node.h

@@ -0,0 +1,22 @@
+#ifndef JOHNSON_SPIDERMONKEY_IMMUTABLE_NODE_H
+#define JOHNSON_SPIDERMONKEY_IMMUTABLE_NODE_H
+
+#include "spidermonkey.h"
+#include "jsparse.h"
+#include "jsatom.h"
+#include "jsscan.h"
+#include "jsarena.h"
+#include "jsfun.h"
+#include "jscntxt.h"
+
+typedef struct {
+  JSParseContext * pc;
+  JSParseNode * node;
+  JSContext * js;
+  JSRuntime * runtime;
+} ImmutableNodeContext;
+
+VALUE jsop_to_symbol(JSUint32 jsop);
+void init_Johnson_SpiderMonkey_Immutable_Node(VALUE spidermonkey);
+
+#endif

data/ext/spidermonkey/jroot.h

@@ -0,0 +1,187 @@
+#ifndef JOHNSON_JROOT_H
+#define JOHNSON_JROOT_H
+
+#define _JROOT_NAMESIZE 200
+#define _JROOT_ERRSIZE 500
+
+#define _JROOT_ROOT (void*)(1)
+
+#define OUR_CONTEXT(js_context) \
+  ({ \
+    JohnsonContext* _context; \
+    const VALUE _ruby_context = (VALUE)JS_GetContextPrivate(js_context); \
+    Data_Get_Struct(_ruby_context, JohnsonContext, _context); \
+    _context; \
+  })
+
+#define OUR_RUNTIME(js_context) \
+  ({ \
+    JohnsonRuntime* _johnson_runtime; \
+    JSRuntime * _js_runtime = JS_GetRuntime(js_context);\
+    const VALUE _ruby_runtime = (VALUE)JS_GetRuntimePrivate(_js_runtime); \
+    Data_Get_Struct(_ruby_runtime, JohnsonRuntime, _johnson_runtime); \
+    _johnson_runtime; \
+   })
+    
+
+#define _PREPARE_JROOTS(rb, context, cleancount) \
+  const bool _jroot_ruby = (rb); \
+  const int _jroot_cleans = (cleancount); \
+  void (*_jroot_cleanup[_jroot_cleans])(JSContext*, void*); \
+  void* _jroot_cleanup_data[_jroot_cleans]; \
+  JSContext* const _jroot_context = (context); \
+  int _jroot_cleanidx = 0;
+
+#define PREPARE_JROOTS(context, cleancount) \
+  _PREPARE_JROOTS(false, context, cleancount)
+
+#define PREPARE_RUBY_JROOTS(context, cleancount) \
+  _PREPARE_JROOTS(true, context, cleancount)
+
+#define JCLEANUP(func, data) \
+  do \
+  { \
+    assert(_jroot_cleanidx < _jroot_cleans); \
+    _jroot_cleanup[_jroot_cleanidx] = (func); \
+    _jroot_cleanup_data[_jroot_cleanidx] = (data); \
+    _jroot_cleanidx++; \
+  } while(0)
+
+#define _JROOT(ptr, name) \
+  do \
+  { \
+    static char _name[_JROOT_NAMESIZE] = ""; \
+    void* const _root = (ptr); \
+    if (*_name == '\0') \
+      snprintf(_name, _JROOT_NAMESIZE, "%s[%d]:%s: %s", __FILE__, __LINE__, __func__, (name)); \
+    JCHECK(JS_AddNamedRoot(_jroot_context, _root, _name)); \
+    JCLEANUP(_JROOT_ROOT, _root); \
+  } while(0)
+
+#define JROOT(var) _JROOT(&(var), #var)
+#define JROOT_PTR(ptr) _JROOT(ptr, #ptr)
+
+#define JUNROOT(var) \
+  do \
+  { \
+    void* const _jroot_match = &(var); \
+    int _jroot_i; \
+    for (_jroot_i = _jroot_cleanidx - 1; _jroot_i >= 0; _jroot_i--) \
+      if (_jroot_cleanup[_jroot_i] == _JROOT_ROOT && _jroot_cleanup_data[_jroot_i] == _jroot_match) \
+      { \
+        JS_RemoveRoot(_jroot_context, _jroot_cleanup_data[_jroot_i]); \
+        if (_jroot_i == _jroot_cleanidx - 1) _jroot_cleanidx--; \
+        _jroot_cleanup[_jroot_i] = NULL; \
+      } \
+  } while (0)
+
+#define REMOVE_JROOTS \
+  do \
+  { \
+    int _jroot_i; \
+    for (_jroot_i = _jroot_cleanidx - 1; _jroot_i >= 0; _jroot_i--) \
+    { \
+      if (_jroot_cleanup[_jroot_i] == _JROOT_ROOT) \
+        JS_RemoveRoot(_jroot_context, _jroot_cleanup_data[_jroot_i]); \
+      else if (_jroot_cleanup[_jroot_i]) \
+        (_jroot_cleanup[_jroot_i])(_jroot_context, _jroot_cleanup_data[_jroot_i]); \
+    } \
+  } while (0)
+
+#define JCHECK_RUBY(cond) \
+  do \
+  { \
+    assert(_jroot_ruby); \
+    if (!(cond)) \
+    { \
+      REMOVE_JROOTS; \
+      raise_js_error_in_ruby(OUR_RUNTIME(_jroot_context)); \
+    } \
+  } while (0)
+
+#define JCHECK(cond) \
+  do \
+  { \
+    if (!(cond)) \
+    { \
+      REMOVE_JROOTS; \
+      if (_jroot_ruby) \
+        raise_js_error_in_ruby(OUR_RUNTIME(_jroot_context)); \
+      else \
+        return JS_FALSE; \
+    } \
+  } while (0)
+
+#define JPROTECT(func, data) \
+  ({ \
+    int _state; \
+    const VALUE _old_errinfo = ruby_errinfo; \
+    const VALUE _result = rb_protect((func), (data), &_state); \
+    if (_state) \
+    { \
+      REMOVE_JROOTS; \
+      if (_jroot_ruby) \
+        rb_jump_tag(_state); \
+      else \
+        return report_ruby_error_in_js(OUR_RUNTIME(_jroot_context), _state, _old_errinfo); \
+    } \
+    _result; \
+  })
+
+#define JRETURN \
+  do \
+  { \
+    assert(!_jroot_ruby); \
+    REMOVE_JROOTS; \
+    return JS_TRUE; \
+  } while(0)
+
+#define JRETURN_RUBY(value) \
+  do \
+  { \
+    assert(_jroot_ruby); \
+    typeof(value) _jroot_result = (value); \
+    REMOVE_JROOTS; \
+    return _jroot_result; \
+  } while(0)
+
+#define JERROR(format, args...) \
+  do \
+  { \
+    REMOVE_JROOTS; \
+    char _jroot_msg[_JROOT_ERRSIZE]; \
+    snprintf(_jroot_msg, _JROOT_ERRSIZE, (format) , ## args); \
+    if (_jroot_ruby) \
+      rb_raise(rb_eRuntimeError,  _jroot_msg); \
+    else \
+    { \
+      JSString* _jroot_err_str = JS_NewStringCopyZ(_jroot_context, _jroot_msg); \
+      if (_jroot_err_str) JS_SetPendingException(_jroot_context, STRING_TO_JSVAL(_jroot_err_str)); \
+      return JS_FALSE; \
+    } \
+  } while(0)
+
+
+
+
+#define ARGLIST1(a)             _data->a
+#define ARGLIST2(a, b)          _data->a, _data->b
+#define ARGLIST3(a, b, c)       _data->a, _data->b, _data->c
+#define ARGLIST4(a, b, c, d)    _data->a, _data->b, _data->c, _data->d
+#define ARGLIST5(a, b, c, d, e) _data->a, _data->b, _data->c, _data->d, _data->e
+
+#define DECLARE_RUBY_WRAPPER(name, args) \
+  typedef struct { args; } name ## _args; \
+  VALUE name ## _invoke(VALUE magic);
+#define DEFINE_RUBY_WRAPPER(name, func, arglist) \
+  VALUE name ## _invoke(VALUE magic) \
+  { \
+    name ## _args * _data = (name ## _args *)(FIX2INT(magic) << 2); \
+    return func(arglist); \
+  }
+#define RUBY_WRAPPER_ARG(name, args...) ({ name ## _args _x = { args }; INT2FIX((int)(&_x) >> 2); })
+#define RUBY_WRAPPER(name) name ## _invoke
+#define CALL_RUBY_WRAPPER(name, args...) JPROTECT(RUBY_WRAPPER(name), RUBY_WRAPPER_ARG(name, args))
+
+
+#endif

data/ext/spidermonkey/js_land_proxy.c

@@ -0,0 +1,609 @@
+#include "js_land_proxy.h"
+#include "conversions.h"
+
+static JSBool get(JSContext* js_context, JSObject* obj, jsval id, jsval* retval);
+static JSBool set(JSContext* context, JSObject* obj, jsval id, jsval* retval);
+static JSBool construct(JSContext* js_context, JSObject* obj, uintN argc, jsval* argv, jsval* retval);
+static JSBool resolve(JSContext *js_context, JSObject *obj, jsval id, uintN flags, JSObject **objp);
+static JSBool call(JSContext* js_context, JSObject* obj, uintN argc, jsval* argv, jsval* retval);
+static void finalize(JSContext* context, JSObject* obj);
+
+static JSClass JSLandProxyClass = {
+  "JSLandProxy", JSCLASS_HAS_PRIVATE | JSCLASS_NEW_RESOLVE,
+  JS_PropertyStub,
+  JS_PropertyStub,
+  get,
+  set,
+  JS_EnumerateStub,
+  (JSResolveOp) resolve,
+  JS_ConvertStub,
+  finalize
+};
+
+static JSClass JSLandClassProxyClass = {
+  "JSLandClassProxy", JSCLASS_HAS_PRIVATE,
+  JS_PropertyStub,
+  JS_PropertyStub,
+  get,
+  set,
+  JS_EnumerateStub,
+  JS_ResolveStub,
+  JS_ConvertStub,
+  finalize,
+  NULL,
+  NULL,
+  NULL,
+  construct
+};
+
+static JSClass JSLandCallableProxyClass = {
+  "JSLandCallableProxy", JSCLASS_HAS_PRIVATE,
+  JS_PropertyStub,
+  JS_PropertyStub,
+  get,
+  set,
+  JS_EnumerateStub,
+  JS_ResolveStub,
+  JS_ConvertStub,
+  finalize,
+  NULL,
+  NULL,
+  call
+};
+
+static VALUE call_ruby_from_js_invoke(VALUE args)
+{
+  VALUE self = rb_ary_pop(args);
+  VALUE id = rb_ary_pop(args);
+  return rb_apply(self, SYM2ID(id), args);
+}
+
+JSBool call_ruby_from_js_va(JohnsonRuntime* runtime, VALUE* result, VALUE self, ID id, int argc, va_list va)
+{
+  VALUE old_errinfo = ruby_errinfo;
+  VALUE args = rb_ary_new2(argc + 2);
+
+  int i;
+  for(i = 0; i < argc; i++)
+    rb_ary_store(args, i, va_arg(va, VALUE));
+
+  rb_ary_store(args, argc, ID2SYM(id));
+  rb_ary_store(args, argc + 1, self);
+
+  int state;
+  *result = rb_protect(call_ruby_from_js_invoke, args, &state);
+
+  if (state)
+    return report_ruby_error_in_js(runtime, state, old_errinfo);
+
+  return JS_TRUE;
+}
+
+JSBool call_ruby_from_js(JohnsonRuntime* runtime, jsval* retval, VALUE self, ID id, int argc, ...)
+{
+  VALUE result;
+  va_list va;
+  va_start(va, argc);
+  JSBool okay = call_ruby_from_js_va(runtime, &result, self, id, argc, va);
+  va_end(va);
+  if (!okay) return JS_FALSE;
+  return retval ? convert_to_js(runtime, result, retval) : JS_TRUE;
+}
+
+JSBool call_ruby_from_js2(JohnsonRuntime* runtime, VALUE* retval, VALUE self, ID id, int argc, ...)
+{
+  va_list va;
+  va_start(va, argc);
+  JSBool okay = call_ruby_from_js_va(runtime, retval, self, id, argc, va);
+  va_end(va);
+  return okay;
+}
+
+static bool autovivified_p(VALUE UNUSED(ruby_context), VALUE self, char* name)
+{
+  return RTEST(rb_funcall(Johnson_SpiderMonkey_JSLandProxy(), rb_intern("autovivified?"), 2,
+    self, rb_str_new2(name)));
+}
+
+static bool const_p(VALUE self, char* name)
+{
+  return rb_obj_is_kind_of(self, rb_cModule)
+    && rb_is_const_id(rb_intern(name))
+    && RTEST( rb_funcall(self, rb_intern("const_defined?"), 1, ID2SYM(rb_intern(name))) );
+}
+
+static bool global_p(char* name)
+{
+  return *name == '$' && rb_ary_includes(rb_f_global_variables(), rb_str_new2(name));
+}
+
+static bool method_p(VALUE self, char* name)
+{
+  return RTEST( rb_funcall(self, rb_intern("respond_to?"), 1, ID2SYM(rb_intern(name))) );
+}
+
+static bool attribute_p(VALUE self, char* name)
+{
+  if (!method_p(self, name))
+    return false;
+
+  VALUE rb_id = rb_intern(name);
+  VALUE rb_method = rb_funcall(self, rb_intern("method"), 1, ID2SYM(rb_id));
+
+  if (TYPE(rb_method) == T_DATA)
+  {
+    VALUE klass = CLASS_OF(rb_method);
+    if (klass == rb_cMethod)
+    {
+      METHOD* method;
+      Data_Get_Struct(rb_method, METHOD, method);
+
+      if (method && nd_type(method->body) == NODE_IVAR)
+        return true;
+    }
+  }
+
+  return RTEST(rb_funcall(Johnson_SpiderMonkey_JSLandProxy(),
+    rb_intern("js_property?"), 2, self, ID2SYM(rb_id)));
+}
+
+static bool indexable_p(VALUE self)
+{
+  return RTEST(rb_funcall(self, rb_intern("respond_to?"), 1, ID2SYM(rb_intern("[]"))));
+}
+
+static bool has_key_p(VALUE self, char* name)
+{
+  return RTEST(rb_funcall(self, rb_intern("respond_to?"), 1, ID2SYM(rb_intern("[]"))))
+    && RTEST(rb_funcall(self, rb_intern("respond_to?"), 1, ID2SYM(rb_intern("key?"))))
+    && RTEST(rb_funcall(self, rb_intern("key?"), 1, rb_str_new2(name)));
+}
+
+static bool respond_to_p(JSContext* js_context, JSObject* obj, char* name)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+
+  JohnsonContext* context;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  VALUE self = (VALUE)JS_GetInstancePrivate(
+    context->js, obj, JS_GET_CLASS(context->js, obj), NULL);
+
+  if (!self) return false;
+
+  return autovivified_p(ruby_context, self, name)
+    || const_p(self, name)
+    || global_p(name)
+    || attribute_p(self, name)
+    || method_p(self, name)
+    || has_key_p(self, name);
+}
+
+static jsval evaluate_js_property_expression(JohnsonRuntime * runtime, const char * property, jsval* retval) {
+  JSContext * context = johnson_get_current_context(runtime);
+  return JS_EvaluateScript(context, runtime->global,
+      property, strlen(property), "johnson:evaluate_js_property_expression", 1,
+      retval);
+}
+
+static JSBool get(JSContext* js_context, JSObject* obj, jsval id, jsval* retval)
+{
+  // pull out our Ruby context, which is embedded in js_context
+  
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+  
+  // get our struct, which is embedded in ruby_context
+  
+  JohnsonContext* context;
+  JohnsonRuntime* runtime;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(JS_GetRuntime(js_context));
+  Data_Get_Struct(ruby_runtime, JohnsonRuntime, runtime);
+
+  PREPARE_JROOTS(js_context, 1);
+  JROOT(id);
+    
+  // get the Ruby object that backs this proxy
+  
+  VALUE self = (VALUE)JS_GetInstancePrivate(context->js, obj, JS_GET_CLASS(context->js, obj), NULL);
+  
+  // Short-circuit for numeric indexes
+  
+  if (JSVAL_IS_INT(id))
+  {
+    if (indexable_p(self)) {
+      VALUE idx = INT2FIX(JSVAL_TO_INT(id));
+      JCHECK(call_ruby_from_js(runtime, retval, self, rb_intern("[]"), 1, idx));
+    }
+    
+    JRETURN;
+  }
+  
+  char* name = JS_GetStringBytes(JSVAL_TO_STRING(id));
+  VALUE ruby_id = rb_intern(name);
+
+  // FIXME: we should probably just JS_DefineProperty this, and it shouldn't be enumerable
+  
+  if (!strcasecmp("__iterator__", name)) {
+    JCHECK(evaluate_js_property_expression(runtime, "Johnson.Generator.create", retval));
+  }
+  
+  // if the Ruby object has a dynamic js property with a key
+  // matching the property we're looking for, pull the value out of
+  // that map.
+  
+  else if (autovivified_p(ruby_context, self, name))
+  {
+    JCHECK(call_ruby_from_js(runtime, retval, Johnson_SpiderMonkey_JSLandProxy(),
+      rb_intern("autovivified"), 2, self, rb_str_new2(name)));
+  }
+
+  // if the Ruby object is a Module or Class and has a matching
+  // const defined, return the converted result of const_get
+  
+  else if (const_p(self, name))
+  {
+    JCHECK(call_ruby_from_js(runtime, retval, self, rb_intern("const_get"),
+      1, ID2SYM(ruby_id)));
+  }  
+
+  // otherwise, if it's a global, return the global
+  else if (global_p(name))
+  {
+    JCHECK(convert_to_js(runtime, rb_gv_get(name), retval));
+  }
+  
+  // otherwise, if the Ruby object has a an attribute method matching
+  // the property we're trying to get, call it and return the converted result
+  
+  else if (attribute_p(self, name))
+  {
+    JCHECK(call_ruby_from_js(runtime, retval, self, ruby_id, 0));
+  }
+
+  // otherwise, if the Ruby object quacks sorta like a hash (it responds to
+  // "[]" and "key?"), index it by key and return the converted result
+  
+  else if (has_key_p(self, name))
+  {
+    JCHECK(call_ruby_from_js(runtime, retval, self, rb_intern("[]"), 1, rb_str_new2(name)));
+  }
+  
+  // otherwise, it's a method being accessed as a property, which means
+  // we need to return a lambda
+  
+  // FIXME: this should really wrap the Method  for 'name' in a JS class
+  // rather than generating a wrapper Proc
+  
+  else if (method_p(self, name))
+  {
+    JCHECK(call_ruby_from_js(runtime, retval, self, rb_intern("method"), 1, rb_str_new2(name)));
+  }
+
+  // else it's undefined (JS_VOID) by default
+  JRETURN;
+}
+
+// called for lazily resolved properties, which should go away
+static JSBool get_and_destroy_resolved_property(
+  JSContext* js_context, JSObject* obj, jsval id, jsval* retval)
+{
+  PREPARE_JROOTS(js_context, 1);
+  JROOT(id);
+  char* name = JS_GetStringBytes(JSVAL_TO_STRING(id));
+  JCHECK(JS_DeleteProperty(js_context, obj, name));
+  JCHECK(get(js_context, obj, id, retval));
+  JRETURN;
+}
+
+static JSBool set(JSContext* js_context, JSObject* obj, jsval id, jsval* value)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+  
+  JohnsonContext* context;
+  JohnsonRuntime* runtime;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(JS_GetRuntime(js_context));
+  Data_Get_Struct(ruby_runtime, JohnsonRuntime, runtime);
+
+  PREPARE_JROOTS(js_context, 2);
+  JROOT(id);
+  JROOT_PTR(value);
+    
+  VALUE self = (VALUE)JS_GetInstancePrivate(context->js, obj, JS_GET_CLASS(context->js, obj), NULL);
+
+  // Short-circuit for numeric indexes
+  
+  if (JSVAL_IS_INT(id))
+  {
+    if (indexable_p(self))
+    {
+      VALUE idx = INT2FIX(JSVAL_TO_INT(id));
+      VALUE val = CONVERT_TO_RUBY(runtime, *value);
+
+      JCHECK(call_ruby_from_js(runtime, NULL, self, rb_intern("[]="), 2, idx, val));
+    }
+
+    JRETURN;
+  }
+  
+  VALUE ruby_key = CONVERT_TO_RUBY(runtime, id);
+  VALUE ruby_value = CONVERT_TO_RUBY(runtime, *value);
+
+  VALUE setter = rb_str_append(rb_str_new3(ruby_key), rb_str_new2("="));
+  VALUE setter_id = rb_intern(StringValueCStr(setter));
+  
+  VALUE settable_p, indexable_p;
+  JCHECK(call_ruby_from_js2(runtime, &settable_p, self, rb_intern("respond_to?"), 1, ID2SYM(setter_id)));
+  JCHECK(call_ruby_from_js2(runtime, &indexable_p, self, rb_intern("respond_to?"), 1, ID2SYM(rb_intern("[]="))));
+  
+  if (settable_p)
+  {
+    VALUE method, arity;
+    JCHECK(call_ruby_from_js2(runtime, &method, self, rb_intern("method"), 1, ID2SYM(setter_id)));
+    JCHECK(call_ruby_from_js2(runtime, &arity, method, rb_intern("arity"), 0));
+
+    // if the Ruby object has a 1-arity method named "property=",
+    // call it with the converted value
+    
+    if (NUM2INT(arity) == 1)
+      JCHECK(call_ruby_from_js(runtime, NULL, self, setter_id, 1, ruby_value));
+  }
+  else if(indexable_p)
+  {
+    // otherwise, if the Ruby object quacks sorta like a hash for assignment
+    // (it responds to "[]="), assign it by key
+    
+    JCHECK(call_ruby_from_js(runtime, NULL, self, rb_intern("[]="), 2, ruby_key, ruby_value));
+  }
+  else
+  {
+    JCHECK(call_ruby_from_js(runtime, NULL, Johnson_SpiderMonkey_JSLandProxy(), rb_intern("autovivify"), 
+      3, self, ruby_key, ruby_value));
+  }
+
+  JRETURN;
+}
+
+static JSBool construct(JSContext* js_context, JSObject* UNUSED(obj), uintN argc, jsval* argv, jsval* retval)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+  
+  JohnsonContext* context;
+  JohnsonRuntime* runtime;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(JS_GetRuntime(js_context));
+  Data_Get_Struct(ruby_runtime, JohnsonRuntime, runtime);
+
+  PREPARE_JROOTS(js_context, 0);
+
+  VALUE klass = CONVERT_TO_RUBY(runtime, JS_ARGV_CALLEE(argv));
+  VALUE args = rb_ary_new();
+
+  uintN i;
+  for (i = 0; i < argc; ++i)
+    rb_ary_push(args, CONVERT_TO_RUBY(runtime, argv[i]));
+    
+  JCHECK(call_ruby_from_js(runtime, retval, Johnson_SpiderMonkey_JSLandProxy(),
+    rb_intern("send_with_possible_block"), 3, klass, ID2SYM(rb_intern("new")), args));
+  JRETURN;
+}
+
+static JSBool resolve(JSContext *js_context, JSObject *obj, jsval id, uintN UNUSED(flags), JSObject **objp)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+  
+  JohnsonContext* context;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  PREPARE_JROOTS(js_context, 1);
+  JROOT(id);
+  
+  char* name = JS_GetStringBytes(JS_ValueToString(js_context, id));
+
+  if (respond_to_p(js_context, obj, name))
+  {
+    JCHECK(JS_DefineProperty(js_context, obj, name, JSVAL_VOID,
+        get_and_destroy_resolved_property, set, JSPROP_ENUMERATE));
+
+    *objp = obj;
+  }
+
+  JRETURN;
+}
+
+static JSBool to_string(JSContext* js_context, JSObject* obj, uintN UNUSED(argc), jsval* UNUSED(argv), jsval* retval)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+
+  JohnsonContext* context;
+  JohnsonRuntime* runtime;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(JS_GetRuntime(js_context));
+  Data_Get_Struct(ruby_runtime, JohnsonRuntime, runtime);
+
+  PREPARE_JROOTS(js_context, 0);
+
+  VALUE self = (VALUE)JS_GetInstancePrivate(context->js, obj, JS_GET_CLASS(context->js, obj), NULL);
+
+  JCHECK(call_ruby_from_js(runtime, retval, self, rb_intern("to_s"), 0));
+  JRETURN;
+}
+
+static JSBool to_array(JSContext* js_context, JSObject* obj, uintN UNUSED(argc), jsval* UNUSED(argv), jsval* retval)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+
+  JohnsonContext* context;
+  JohnsonRuntime* runtime;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(JS_GetRuntime(js_context));
+  Data_Get_Struct(ruby_runtime, JohnsonRuntime, runtime);
+
+  PREPARE_JROOTS(js_context, 0);
+
+  VALUE self = (VALUE)JS_GetInstancePrivate(context->js, obj, JS_GET_CLASS(context->js, obj), NULL);
+
+  JCHECK(call_ruby_from_js(runtime, retval, self, rb_intern("to_a"), 0));
+  JRETURN;
+}
+
+static JSBool method_missing(JSContext* js_context, JSObject* obj, uintN argc, jsval* argv, jsval* retval)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+  
+  JohnsonContext* context;
+  JohnsonRuntime* runtime;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(JS_GetRuntime(js_context));
+  Data_Get_Struct(ruby_runtime, JohnsonRuntime, runtime);
+
+  PREPARE_JROOTS(js_context, 0);
+    
+  VALUE self = (VALUE)JS_GetInstancePrivate(context->js, obj, JS_GET_CLASS(context->js, obj), NULL);
+  
+  assert(argc >= 2);
+
+  char* key = JS_GetStringBytes(JSVAL_TO_STRING(argv[0]));
+  VALUE ruby_id = rb_intern(key);
+  
+  // FIXME: this is horrible and lazy, to_a comes from enumerable on proxy (argv[1] is a JSArray)
+  VALUE args;
+  JCHECK(call_ruby_from_js2(runtime, &args, CONVERT_TO_RUBY(runtime, argv[1]), rb_intern("to_a"), 0));
+
+  JCHECK(call_ruby_from_js(runtime, retval, Johnson_SpiderMonkey_JSLandProxy(),
+    rb_intern("send_with_possible_block"), 3, self, ID2SYM(ruby_id), args));
+
+  JRETURN;
+}
+
+static JSBool call(JSContext* js_context, JSObject* UNUSED(obj), uintN argc, jsval* argv, jsval* retval)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+  
+  JohnsonContext* context;
+  JohnsonRuntime* runtime;
+  Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+  VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(JS_GetRuntime(js_context));
+  Data_Get_Struct(ruby_runtime, JohnsonRuntime, runtime);
+
+  PREPARE_JROOTS(js_context, 0);
+  
+  VALUE self = (VALUE)JS_GetInstancePrivate(context->js, JSVAL_TO_OBJECT(JS_ARGV_CALLEE(argv)), &JSLandCallableProxyClass, NULL);
+  
+  VALUE args = rb_ary_new();  
+
+  uintN i;
+  for (i = 0; i < argc; ++i)
+    rb_ary_push(args, CONVERT_TO_RUBY(runtime, argv[i]));
+  
+  JCHECK(call_ruby_from_js(runtime, retval, Johnson_SpiderMonkey_JSLandProxy(),
+    rb_intern("send_with_possible_block"), 3, self, ID2SYM(rb_intern("call")), args));
+  JRETURN;
+}
+
+bool js_value_is_proxy(JohnsonRuntime* MAYBE_UNUSED(runtime), jsval maybe_proxy)
+{
+  JSClass* klass = JS_GET_CLASS(
+      johnson_get_current_context(runtime),
+      JSVAL_TO_OBJECT(maybe_proxy));  
+  
+  return &JSLandProxyClass == klass
+    || &JSLandClassProxyClass == klass
+    || &JSLandCallableProxyClass == klass;
+}
+
+VALUE unwrap_js_land_proxy(JohnsonRuntime* runtime, jsval proxy)
+{
+  VALUE value;
+  JSObject *proxy_object = JSVAL_TO_OBJECT(proxy);
+  JSContext * context = johnson_get_current_context(runtime);
+  
+  value = (VALUE)JS_GetInstancePrivate(context, proxy_object,
+          JS_GET_CLASS(context, proxy_object), NULL);
+  
+  return value;
+}
+
+static void finalize(JSContext* js_context, JSObject* obj)
+{
+  VALUE ruby_context = (VALUE)JS_GetContextPrivate(js_context);
+  
+  if (ruby_context)
+  {
+    JohnsonContext* context;
+    JohnsonRuntime* runtime;
+    Data_Get_Struct(ruby_context, JohnsonContext, context);
+
+    VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(JS_GetRuntime(js_context));
+    Data_Get_Struct(ruby_runtime, JohnsonRuntime, runtime);
+    
+    VALUE self = (VALUE)JS_GetInstancePrivate(context->js, obj,
+            JS_GET_CLASS(context->js, obj), NULL);
+
+    // remove the proxy OID from the id map
+    JS_HashTableRemove(runtime->rbids, (void *)self);
+    
+    // free up the ruby value for GC
+    call_ruby_from_js(runtime, NULL, ruby_runtime, rb_intern("remove_gcthing"), 1, self);
+  }  
+}
+
+JSBool make_js_land_proxy(JohnsonRuntime* runtime, VALUE value, jsval* retval)
+{
+  *retval = (jsval)JS_HashTableLookup(runtime->rbids, (void *)value);
+  
+  if (*retval)
+  {
+    return JS_TRUE;
+  }
+  else
+  {
+    JSContext * context = johnson_get_current_context(runtime);
+    PREPARE_JROOTS(context, 1);
+
+    JSObject *jsobj;
+    
+    JSClass *klass = &JSLandProxyClass;
+    if (T_CLASS == TYPE(value)) klass = &JSLandClassProxyClass;
+    
+    // FIXME: hack; should happen in Rubyland
+    if (T_STRUCT == TYPE(value))
+      rb_funcall(Johnson_SpiderMonkey_JSLandProxy(),
+        rb_intern("treat_all_properties_as_methods"), 1, value);
+
+    bool callable_p = Qtrue == rb_funcall(value,
+      rb_intern("respond_to?"), 1, rb_str_new2("call"));
+      
+    if (callable_p)
+      klass = &JSLandCallableProxyClass;
+        
+    JCHECK((jsobj = JS_NewObject(context, klass, NULL, NULL)));
+    JROOT(jsobj);
+    
+    JCHECK(JS_SetPrivate(context, jsobj, (void*)value));
+
+    JCHECK(JS_DefineFunction(context, jsobj, "__noSuchMethod__", method_missing, 2, 0));
+
+    JCHECK(JS_DefineFunction(context, jsobj, "toArray", to_array, 0, 0));
+    JCHECK(JS_DefineFunction(context, jsobj, "toString", to_string, 0, 0));
+
+    *retval = OBJECT_TO_JSVAL(jsobj);
+
+    // put the proxy OID in the id map
+    JCHECK(JS_HashTableAdd(runtime->rbids, (void *)value, (void *)(*retval)));
+    
+    // root the ruby value for GC
+    VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(runtime->js);
+    rb_funcall(ruby_runtime, rb_intern("add_gcthing"), 1, value);
+
+    JRETURN;
+  }
+}