tomato 0.0.1.prealpha1 → 0.0.1.prealpha2

data/ext/tomato/binding_methods.h

@@ -0,0 +1,8 @@
+#ifndef BINDING_METHODS_H
+#define BINDING_METHODS_H
+
+extern Handle<Value> bound_method(const Arguments& args);
+extern int store_rb_message(const Arguments &args, V8Tomato **out_tomato, VALUE *out_receiver, ID *out_method_id);
+extern void store_args(V8Tomato *tomato, VALUE rbargs, const Arguments &args);
+
+#endif//BINDING_METHODS_H

data/ext/tomato/conversions_to_js.cpp

@@ -4,6 +4,7 @@ static Handle<Value> js_array_from(V8Tomato *tomato, VALUE value);
 static Handle<Value> js_hash_from(V8Tomato *tomato, VALUE value);
 static Handle<Value> js_symbol_to_string(const Arguments& args);
 static Handle<Value> js_symbol_from(VALUE value);
+static Handle<Value> js_date_from(VALUE value);
 
 Handle<Value> js_value_of(V8Tomato *tomato,  VALUE value)
 {
@@ -32,6 +33,16 @@ Handle<Value> js_value_of(V8Tomato *tomato,  VALUE value)
       else return js_symbol_from(value);
       //return String::New(rb_id2name(SYM2ID(value)));
   };
+  
+  /* take care of some JS types that aren't reflected above */
+  if (rb_funcall(value, rb_intern("kind_of?"), 1, rb_const_get(rb_cObject, rb_intern("Date"))) == Qtrue ||
+      rb_funcall(value, rb_intern("kind_of?"), 1, rb_const_get(rb_cObject, rb_intern("Time"))) == Qtrue ||
+      rb_funcall(value, rb_intern("kind_of?"), 1, rb_const_get(rb_cObject, rb_intern("DateTime"))) == Qtrue ||
+      rb_funcall(value, rb_intern("kind_of?"), 1, rb_const_get(rb_const_get(rb_cObject, rb_intern("ActiveSupport")), rb_intern("TimeWithZone"))) == Qtrue)
+  {
+    return js_date_from(value);
+  }
+  
   return inspect_rb(value);  
 }
 
@@ -112,66 +123,9 @@ Handle<Value> inspect_rb(VALUE value)
   return String::New(StringValuePtr(string));
 }
 
-/*
-Handle<Value> v8_value_of(V8Tomato *tomato, VALUE object)
+Handle<Value> js_date_from(VALUE value)
 {
-
-  switch(TYPE(object))
-  {
-    case T_NIL     :
-    case T_OBJECT  :
-    //case T_CLASS   :
-    //case T_MODULE  :
-    case T_FLOAT   :
-    case T_STRING  :
-    case T_REGEXP  :
-    case T_ARRAY   :
-    case T_HASH    :
-    //case T_STRUCT  :
-    case T_BIGNUM  :
-    case T_FIXNUM  :
-    //case T_COMPLEX :
-    //case T_RATIONAL:
-    //case T_FILE    :
-    case T_TRUE    :
-    case T_FALSE   :
-    //case T_DATA    :
-    case T_SYMBOL  :
-      symbol_from(object)
-      break;
-    default:         string_from(object);
-  };
-}
-*/
-/*
-  if (result->IsUndefined()) { return ID2SYM(rb_intern("undefined")); }
-  if (result->IsNull())      { return Qnil; }
-  if (result->IsTrue())      { return Qtrue; }
-  if (result->IsFalse())     { return Qfalse; }
-  if (result->IsString())    { return ruby_string_from(result); }
-  if (result->IsFunction())  { return ruby_string_from(result); }
-  if (result->IsArray())     { Handle<Array> array = Handle<Array>::Cast(result); return ruby_array_from(tomato, array); }
-  if (result->IsNumber())    { return ruby_numeric_from(result); }
-  if (result->IsDate())      { return ruby_date_from(result); }
-    
-
-  if (result->IsObject())
-  {
-    Handle<Value> json = tomato->context->Global()->Get(String::New("JSON"));
-    if (json->IsObject())
-    {
-      Handle<Value> stringify = Handle<Object>::Cast(json)->Get(String::New("stringify"));
-      if (stringify->IsFunction())
-      {
-        String::Utf8Value str(Handle<Function>::Cast(stringify)->Call(
-          Handle<Object>::Cast(json),
-          1, 
-          &result
-        ));
-        return rb_str_new2(ToCString(str));
-      }
-    }
-  }
-  return Qnil;
+  VALUE ival = rb_funcall(value, rb_intern("to_f"), 0);
+  double time = NUM2DBL(ival) * 1000.0;
+  return Date::New(time);
 }
-*/

data/ext/tomato/conversions_to_rb.cpp

@@ -5,6 +5,7 @@ static VALUE ruby_numeric_from(const Handle<Value> &number);
 static VALUE ruby_date_from(const Handle<Value> &date);
 static VALUE ruby_string_from(const Handle<Value> &value);
 static VALUE ruby_symbol_from(const Handle<Object> &value);
+static VALUE ruby_unwrapped_object_from(V8Tomato *tomato, const Handle<Object> &value);
 static VALUE ruby_object_from(V8Tomato *tomato, Handle<Value> result);
 static VALUE ruby_hash_from(V8Tomato *tomato, const Handle<Object> &object);
 
@@ -37,10 +38,9 @@ static VALUE ruby_object_from(V8Tomato *tomato, Handle<Value> result)
   {
     Handle<Object> object = Handle<Object>::Cast(result);
     
-    if (object->Get(String::New("_tomato_hash"))->IsTrue())
-      return ruby_hash_from(tomato, object);
-    if (object->Get(String::New("_tomato_symbol"))->IsTrue())
-      return ruby_symbol_from(object);
+    if (object->Get(String::New("_tomato_hash"))->IsTrue())         return ruby_hash_from(tomato, object);
+    if (object->Get(String::New("_tomato_symbol"))->IsTrue())       return ruby_symbol_from(object);
+    if (object->Get(String::New("_tomato_ruby_wrapper"))->IsTrue()) return ruby_unwrapped_object_from(tomato, object);
   }
   
   /* Call Javascript's JSON.stringify(object) method. If that can't be done for any reason, return nil. */
@@ -115,10 +115,33 @@ static VALUE ruby_numeric_from(const Handle<Value> &number)
   return DBL2NUM(number->NumberValue());
 }
 
-void inspect_js(V8Tomato *tomato, Handle<Value> obj)
+static VALUE ruby_unwrapped_object_from(V8Tomato *tomato, const Handle<Object> &value)
 {
-  VALUE rbObj = ruby_value_of(tomato, obj);
-  VALUE rbStr = rb_funcall(rbObj, rb_intern("inspect"), 0);
-  printf("%s\n", StringValuePtr(rbStr));
+  VALUE receivers = rb_funcall2(tomato->rb_instance, rb_intern("receivers"), 0, 0);
+  int len = RARRAY_LEN(receivers);
+  int index = value->Get(String::New("_tomato_receiver_index"))->Int32Value();
+  if (len <= index)
+    return Qnil;
+  return *(RARRAY_PTR(receivers)+index);
+}
+
+Handle<Value> inspect_js(V8Tomato *tomato, Handle<Value> obj)
+{
+  /* Call Javascript's JSON.stringify(object) method. If that can't be done for any reason, return an error. */
+  Handle<Value> json = tomato->context->Global()->Get(String::New("JSON"));
+  if (json->IsObject())
+  {
+    Handle<Value> stringify = Handle<Object>::Cast(json)->Get(String::New("stringify"));
+    if (stringify->IsFunction())
+    {
+      String::Utf8Value str(Handle<Function>::Cast(stringify)->Call(
+        Handle<Object>::Cast(json),
+        1, 
+        &obj
+      ));
+      return String::New(ToCString(str));
+    }
+  }
+  return ThrowException(String::New("Could not JSONify the object"));
 }
 

data/ext/tomato/depend

@@ -1,6 +1,7 @@
-binding_methods.o: binding_methods.cpp tomato.h
+binding_methods.o: binding_methods.cpp tomato.h binding_methods.h
 conversions_to_js.o: conversions_to_js.cpp tomato.h
 conversions_to_rb.o: conversions_to_rb.cpp tomato.h
 errors.o: errors.cpp tomato.h
+object_chain.o: object_chain.cpp tomato.h binding_methods.h
 tomato.o: tomato.cpp tomato.h
 v8.o: v8.cpp tomato.h

data/ext/tomato/extconf.rb

@@ -38,7 +38,7 @@ makefile.print <<EOF
 
 test: all
 	@echo Running specs...
-	spec -O spec/spec.opts spec
+	spec spec -c
 
 EOF
 end

data/ext/tomato/mkmf.log

@@ -1,6 +1,6 @@
 find_header: checking for v8.h in /Users/colin/projects/gems/tomato/ext/tomato/external/build/v8/include... -------------------- yes
 
-"gcc -o conftest -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/x86_64-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1 -I. -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O3 -ggdb -Wextra -Wno-unused-parameter -Wno-parentheses -Wpointer-arith -Wwrite-strings -Wno-missing-field-initializers -Wshorten-64-to-32 -Wno-long-long  -fno-common -pipe conftest.c  -L. -L/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/lib -L. -L/usr/local/lib     -lruby.1.9.1-static  -lpthread -ldl -lobjc "
+"gcc -o conftest -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/i386-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1 -I.  -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O2 -g -Wall -Wno-parentheses  -fno-common -pipe -fno-common conftest.c  -L. -L/Users/colin/.rvm/rubies/ruby-1.9.1-p378/lib -L. -L/usr/local/lib     -lruby-static  -lpthread -ldl -lobjc  "
 checked program was:
 /* begin */
 1: #include "ruby.h"
@@ -8,7 +8,7 @@ checked program was:
 3: int main() {return 0;}
 /* end */
 
-"gcc -E -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/x86_64-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1 -I. -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O3 -ggdb -Wextra -Wno-unused-parameter -Wno-parentheses -Wpointer-arith -Wwrite-strings -Wno-missing-field-initializers -Wshorten-64-to-32 -Wno-long-long  -fno-common -pipe  conftest.c -o conftest.i"
+"gcc -E -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/i386-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1 -I.  -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O2 -g -Wall -Wno-parentheses  -fno-common -pipe -fno-common  conftest.c -o conftest.i"
 conftest.c:3:16: error: v8.h: No such file or directory
 checked program was:
 /* begin */
@@ -17,7 +17,7 @@ checked program was:
 3: #include <v8.h>
 /* end */
 
-"gcc -E -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/x86_64-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1 -I. -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O3 -ggdb -Wextra -Wno-unused-parameter -Wno-parentheses -Wpointer-arith -Wwrite-strings -Wno-missing-field-initializers -Wshorten-64-to-32 -Wno-long-long  -fno-common -pipe -I/Users/colin/projects/gems/tomato/ext/tomato/external/build/v8/include conftest.c -o conftest.i"
+"gcc -E -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/i386-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1 -I.  -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O2 -g -Wall -Wno-parentheses  -fno-common -pipe -fno-common -I/Users/colin/projects/gems/tomato/ext/tomato/external/build/v8/include conftest.c -o conftest.i"
 checked program was:
 /* begin */
 1: #include "ruby.h"
@@ -29,7 +29,7 @@ checked program was:
 
 have_library: checking for main() in -lpthread... -------------------- yes
 
-"gcc -o conftest -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/x86_64-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1 -I. -I/Users/colin/projects/gems/tomato/ext/tomato/external/build/v8/include -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O3 -ggdb -Wextra -Wno-unused-parameter -Wno-parentheses -Wpointer-arith -Wwrite-strings -Wno-missing-field-initializers -Wshorten-64-to-32 -Wno-long-long  -fno-common -pipe conftest.c  -L. -L/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/lib -L. -L/usr/local/lib     -lruby.1.9.1-static -lpthread  -lpthread -ldl -lobjc "
+"gcc -o conftest -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/i386-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1 -I. -I/Users/colin/projects/gems/tomato/ext/tomato/external/build/v8/include  -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O2 -g -Wall -Wno-parentheses  -fno-common -pipe -fno-common conftest.c  -L. -L/Users/colin/.rvm/rubies/ruby-1.9.1-p378/lib -L. -L/usr/local/lib     -lruby-static -lpthread  -lpthread -ldl -lobjc  "
 checked program was:
 /* begin */
 1: #include "ruby.h"
@@ -43,7 +43,7 @@ checked program was:
 
 have_library: checking for main() in -lobjc... -------------------- yes
 
-"gcc -o conftest -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/x86_64-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/include/ruby-1.9.1 -I. -I/Users/colin/projects/gems/tomato/ext/tomato/external/build/v8/include -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O3 -ggdb -Wextra -Wno-unused-parameter -Wno-parentheses -Wpointer-arith -Wwrite-strings -Wno-missing-field-initializers -Wshorten-64-to-32 -Wno-long-long  -fno-common -pipe conftest.c  -L. -L/Users/colin/.rvm/rubies/ruby-1.9.2-preview3/lib -L. -L/usr/local/lib    -lpthread  -lruby.1.9.1-static -lobjc -lpthread  -lpthread -ldl -lobjc "
+"gcc -o conftest -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/i386-darwin10.4.0 -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1/ruby/backward -I/Users/colin/.rvm/rubies/ruby-1.9.1-p378/include/ruby-1.9.1 -I. -I/Users/colin/projects/gems/tomato/ext/tomato/external/build/v8/include  -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE    -O2 -g -Wall -Wno-parentheses  -fno-common -pipe -fno-common conftest.c  -L. -L/Users/colin/.rvm/rubies/ruby-1.9.1-p378/lib -L. -L/usr/local/lib    -lpthread  -lruby-static -lobjc -lpthread  -lpthread -ldl -lobjc  "
 checked program was:
 /* begin */
 1: #include "ruby.h"

data/ext/tomato/object_chain.cpp

@@ -0,0 +1,241 @@
+#include "tomato.h"
+#include "binding_methods.h"
+
+static VALUE create_new(VALUE args);
+static v8::Handle<v8::Value> ruby_class_constructor(const Arguments &args);
+static Handle<Value> bind_methods(Local<Object> js, VALUE rb, V8Tomato *tomato);
+static Handle<Value> bound_getter(Local<String> property, const AccessorInfo &info);
+static void bound_setter(Local<String> property, Local<Value> value, const AccessorInfo &info);
+static VALUE protected_get(VALUE args);
+static VALUE protected_set(VALUE args);
+
+VALUE fTomato_bind_class(VALUE self, VALUE receiver_index, VALUE chain)
+{
+  V8Tomato *tomato;
+  Data_Get_Struct(self, V8Tomato, tomato);
+  
+  HandleScope handle_scope;
+  Context::Scope context_scope(tomato->context);
+  VALUE js_class_name = rb_ary_pop(chain);
+  // This is kind of a misnomer. We're creating a JavaScript function ("method") to stand in for
+  // the Ruby class. So the method_name has to be the Ruby class name. Consider: "new" is not a 
+  // method in JS -- it's a keyword.
+  Handle<String> method_name = String::New(StringValuePtr(js_class_name));
+  Handle<Value> parent = find_or_create_object_chain(tomato, chain);
+
+  if (parent->IsObject())
+  {
+    Handle<Object> object = Handle<Object>::Cast(parent);
+    Handle<Function> function = FunctionTemplate::New(ruby_class_constructor)->GetFunction();
+
+    function->Set(String::New("_tomato"), External::New(tomato));
+    function->Set(String::New("_tomato_receiver_index"), Int32::New(FIX2INT(receiver_index)));
+    function->SetName(method_name);
+
+    Handle<Value> current_value = object->Get(method_name);
+    if (current_value->IsObject())
+    {
+      // we're about to overwrite an object. First clone any of its registered functions.
+      Handle<Object> current = Handle<Object>::Cast(current_value);
+      Local<Array> properties = current->GetPropertyNames();
+      int length = properties->Length();
+      for (int i = 0; i < length; i++)
+      {
+        Local<Value> property = properties->Get(i);
+        String::Utf8Value stra(inspect_js(tomato, property));
+        String::Utf8Value str(inspect_js(tomato, current->Get(property)));
+        function->Set(property, current->Get(property));
+      }
+    }
+    object->Set(method_name, function);
+    return Qtrue;
+  }
+  return Qfalse;
+}
+
+v8::Handle<v8::Value> ruby_class_constructor(const Arguments &args)
+{
+  // throw if called without `new'
+  if (!args.IsConstructCall()) 
+    return ThrowException(String::New("Cannot call constructor as function"));
+ 
+  // we get the method ID and then call it, so that any C++ destructors that need to fire before
+  // we do so, can.
+  VALUE receiver;
+  ID rb_method_id;
+  V8Tomato *tomato;
+  int code = store_rb_message(args, &tomato, &receiver, &rb_method_id);
+  switch(code)
+  {
+    case -1: return ThrowException(String::New("Error: _tomato is not an object (BUG: please report)"));
+    case -2: return ThrowException(String::New("Error: _tomato_receiver_index is not an Int32 (BUG: please report)"));
+    case -3: return ThrowException(String::New("Error: _tomato_receiver_index is greater than @receivers.length (BUG: please report)"));
+  };
+
+  VALUE rbargs = rb_ary_new2(1+args.Length());
+  rb_ary_store(rbargs, 0, receiver);
+  store_args(tomato, rbargs, args);
+  
+  int error;
+  VALUE result = rb_protect(create_new, rbargs, &error);
+  if(error) 
+  {
+    return ThrowException(js_error_from(rb_gv_get("$!")));
+  }
+
+  Local<Object> holder = args.Holder();
+  holder->Set(String::New("_tomato_ruby_wrapper"), Boolean::New(true), DontEnum);
+  holder->Set(String::New("_tomato_receiver_index"),
+    Int32::New(FIX2INT(rb_funcall(tomato->rb_instance, rb_intern("receiver_index"), 1, result))), DontEnum);
+  return bind_methods(holder, result, tomato);
+}
+
+Handle<Value> bind_methods(Local<Object> js, VALUE rb, V8Tomato *tomato)
+{
+  VALUE methods = rb_funcall(rb, rb_intern("public_methods"), 0);
+  int receiver_index = FIX2INT(rb_funcall(tomato->rb_instance, rb_intern("receiver_index"), 1, rb));
+  
+  HandleScope handle_scope;
+  Context::Scope context_scope(tomato->context);
+  Handle<String> method_name;
+  js->Set(String::New("_tomato"), External::New(tomato));
+  for (int i = 0; i < RARRAY_LEN(methods); i++)
+  {
+    method_name = String::New(StringValuePtr(*(RARRAY_PTR(methods)+i)));
+    Handle<Function> function = FunctionTemplate::New(bound_method)->GetFunction();
+  
+    function->Set(String::New("_tomato"), External::New(tomato));
+    function->Set(String::New("_tomato_receiver_index"), Int32::New(receiver_index));
+    function->SetName(method_name);
+  
+    js->Set(method_name, function);
+    js->SetAccessor(method_name, bound_getter, bound_setter);
+  }
+  return js;
+}
+
+static VALUE protected_get(VALUE args)
+{
+  VALUE receiver = *(RARRAY_PTR(args));
+  VALUE method = *(RARRAY_PTR(args)+1);
+  return rb_funcall2(receiver, SYM2ID(method), 0, 0);
+}
+
+static VALUE protected_set(VALUE args)
+{
+  VALUE receiver = *(RARRAY_PTR(args));
+  VALUE method = *(RARRAY_PTR(args)+1);
+  VALUE value = *(RARRAY_PTR(args)+2);
+  
+  method = rb_funcall(method, rb_intern("to_s"), 0);
+  method = rb_funcall(method, rb_intern("+"), 1, rb_str_new2("="));
+  return rb_funcall2(receiver, rb_intern(StringValuePtr(method)), 1, &value);
+  return Qnil;
+}
+
+static Handle<Value> bound_getter(Local<String> property, const AccessorInfo &info)
+{
+  int error;
+  Local<Object> self = info.Holder();
+
+  // pull the binding data from the function (stored there by fTomato_bind_method)
+  Local<Value> v8_tomato         = self->Get(String::New("_tomato"));
+  Local<Value> v8_receiver_index = self->Get(String::New("_tomato_receiver_index"));
+  
+  // make sure the data is what we expect it to be
+  if (!v8_tomato->IsExternal())      return ThrowException(String::New("_tomato is not an external! (bug: please report)"));
+  if (!v8_receiver_index->IsInt32()) return ThrowException(String::New("_tomato_receiver_index is not an Int32! (bug: please report)"));
+    
+  // find the tomato
+  V8Tomato *tomato = (V8Tomato *)Local<External>::Cast(v8_tomato)->Value();
+  
+  // find the receiver index, and make sure it's a valid index
+  int receiver_index = v8_receiver_index->Int32Value();
+  VALUE receivers = rb_iv_get(tomato->rb_instance, "@receivers"); //rb_funcall(tomato->rb_instance, rb_intern("receivers"));
+  if (RARRAY_LEN(receivers) < receiver_index) return ThrowException(String::New("_tomato_receiver_index is too small! (bug: please report)"));
+  
+  // get the receiver
+  VALUE receiver = (RARRAY_PTR(receivers)[receiver_index]);
+
+  VALUE args = rb_ary_new();
+  String::Utf8Value property_name(property);
+  rb_ary_push(args, receiver);
+  rb_ary_push(args, ID2SYM(rb_intern(ToCString(property_name))));
+  VALUE result = rb_protect(protected_get, args, &error);
+  if (error)
+    return ThrowException(js_error_from(rb_gv_get("$!")));
+  return js_value_of(tomato, result);
+}
+
+static void bound_setter(Local<String> property, Local<Value> value, const AccessorInfo &info)
+{
+  int error;
+  Local<Object> self = info.Holder();
+
+  // pull the binding data from the function (stored there by fTomato_bind_method)
+  Local<Value> v8_tomato         = self->Get(String::New("_tomato"));
+  Local<Value> v8_receiver_index = self->Get(String::New("_tomato_receiver_index"));
+  
+  // make sure the data is what we expect it to be
+  if (!v8_tomato->IsExternal())      { ThrowException(String::New("_tomato is not an external! (bug: please report)")); return; }
+  if (!v8_receiver_index->IsInt32()) { ThrowException(String::New("_tomato_receiver_index is not an Int32! (bug: please report)")); return; }
+    
+  // find the tomato
+  V8Tomato *tomato = (V8Tomato *)Local<External>::Cast(v8_tomato)->Value();
+  
+  // find the receiver index, and make sure it's a valid index
+  int receiver_index = v8_receiver_index->Int32Value();
+  VALUE receivers = rb_iv_get(tomato->rb_instance, "@receivers"); //rb_funcall(tomato->rb_instance, rb_intern("receivers"));
+  if (RARRAY_LEN(receivers) < receiver_index) { ThrowException(String::New("_tomato_receiver_index is too small! (bug: please report)")); return; }
+  
+  // get the receiver
+  VALUE receiver = (RARRAY_PTR(receivers)[receiver_index]);
+
+  VALUE args = rb_ary_new();
+  String::Utf8Value property_name(property);
+  rb_ary_push(args, receiver);
+  rb_ary_push(args, ID2SYM(rb_intern(ToCString(property_name))));
+  rb_ary_push(args, ruby_value_of(tomato, value));
+  rb_protect(protected_set, args, &error);
+  if (error)
+    ThrowException(js_error_from(rb_gv_get("$!")));
+}
+
+static VALUE create_new(VALUE args)
+{
+  VALUE receiver = rb_ary_shift(args);
+  VALUE result = rb_funcall2(receiver, rb_intern("new"), RARRAY_LEN(args), RARRAY_PTR(args));
+  return result;
+}
+
+Handle<Value> find_or_create_object_chain(V8Tomato *tomato, VALUE chain)
+{
+  Handle<Value> value = tomato->context->Global();
+  if (value->IsObject())
+  {
+    Handle<Object> object = Handle<Object>::Cast(value);
+    if (chain != Qnil)
+    {
+      int len = RARRAY_LEN(chain);
+      VALUE *items = RARRAY_PTR(chain);
+      
+      for (int i = 0; i < len; i++)
+      {
+        Handle<String> object_name = String::New(StringValuePtr(items[i]));
+        value = object->Get(object_name);
+        if (value->IsObject())
+        {
+          object = Handle<Object>::Cast(value);  
+        }
+        else
+        {
+          Handle<Object> new_object = Object::New();
+          object->Set(object_name, new_object);
+          object = new_object;
+        }
+      }
+    }
+    return object;
+  }
+  return value;
+}