johnson 2.0.0.pre1 → 2.0.0.pre2

data/ext/spidermonkey/immutable_node.h

@@ -1,22 +0,0 @@
-#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

@@ -1,197 +0,0 @@
-#ifndef JOHNSON_JROOT_H
-#define JOHNSON_JROOT_H
-
-#define _JROOT_NAMESIZE 200L
-#define _JROOT_ERRSIZE 500L
-
-#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 \
-  { \
-    char _jroot_msg[_JROOT_ERRSIZE]; \
-    snprintf(_jroot_msg, _JROOT_ERRSIZE, (format) , ## args); \
-    if (_jroot_ruby) \
-    { \
-      REMOVE_JROOTS; \
-      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)); \
-      REMOVE_JROOTS; \
-      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 *)(FIX2LONG(magic) << 2); \
-    return func(arglist); \
-  }
-#define DEFINE_VOID_RUBY_WRAPPER(name, func, arglist) \
-  VALUE name ## _invoke(VALUE magic) \
-  { \
-    name ## _args * _data = (name ## _args *)(FIX2LONG(magic) << 2); \
-    func(arglist); \
-    return Qnil; \
-  }
-#define RUBY_WRAPPER_ARG(name, args...) ({ name ## _args _x = { args }; LONG2FIX((long)(&_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

@@ -1,620 +0,0 @@
-#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((long)argc + 2);
-
-  long i;
-  for(i = 0; i < argc; i++)
-    rb_ary_store(args, i, va_arg(va, VALUE));
-
-  rb_ary_store(args, (long)argc, ID2SYM(id));
-  rb_ary_store(args, (long)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);
-  assert(strlen(property) < INT_MAX);
-  return JS_EvaluateScript(context, runtime->global,
-      property, (unsigned int)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
-    rb_funcall(ruby_runtime, rb_intern("remove_gcthing"), 1, rb_obj_id(self));
-  }
-}
-
-JSBool make_js_land_proxy(JohnsonRuntime* runtime, VALUE value, jsval* retval)
-{
-  jsval base_value = (jsval)JS_HashTableLookup(runtime->rbids, (void *)value);
-
-  JSContext * context = johnson_get_current_context(runtime);
-  PREPARE_JROOTS(context, 2);
-
-  jsval johnson = JSVAL_NULL;
-  JCHECK(evaluate_js_property_expression(runtime, "Johnson", &johnson));
-  JROOT(johnson);
-
-  if (base_value)
-  {
-    JCHECK(JS_CallFunctionName(context, johnson, "applyConversions", 1, &base_value, retval));
-    JRETURN;
-  }
-  else
-  {
-    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));
-
-    base_value = OBJECT_TO_JSVAL(jsobj);
-
-    // root the ruby value for GC
-    VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(runtime->js);
-    rb_funcall(ruby_runtime, rb_intern("add_gcthing"), 1, value);
-
-    jsval wrapped_value = JSVAL_NULL;
-    JCHECK(JS_CallFunctionName(context, johnson, "applyWrappers", 1, &base_value, &wrapped_value));
-
-    // put the proxy OID in the id map
-    JCHECK(JS_HashTableAdd(runtime->rbids, (void *)value, (void *)(wrapped_value)));
-    
-    JCHECK(JS_CallFunctionName(context, johnson, "applyConversions", 1, &wrapped_value, retval));
-
-    JRETURN;
-  }
-}