johnson 2.0.0.pre1 → 2.0.0.pre2

data/ext/spidermonkey/context.c

@@ -1,116 +0,0 @@
-#include "context.h"
-#include "conversions.h"
-#include "global.h"
-#include "extensions.h"
-#include "idhash.h"
-#include "jsdbgapi.h"
-
-// callback for JS_SetErrorReporter
-static void report_js_error(JSContext* js, const char* message, JSErrorReport* UNUSED(report))
-{
-  // first we find ourselves
-  VALUE self = (VALUE)JS_GetContextPrivate(js);
-
-  // then we find our bridge
-  JohnsonContext* context;
-  Data_Get_Struct(self, JohnsonContext, context);
-
-  // NOTE: SpiderMonkey REALLY doesn't like being interrupted. If we
-  // jump over to Ruby and raise here, segfaults and such ensue.
-  // Instead, we store the exception (if any) and the error message
-  // on the context. They're dealt with in the if (!ok) block of evaluate().
-
-  strncpy(context->msg, message, MAX_EXCEPTION_MESSAGE_SIZE);
-  JS_GetPendingException(context->js, &context->ex);
-}
-
-// callback for JS_SetBranchCallback
-static JSBool branch_callback(JSContext* js, JSScript* UNUSED(script))
-{
-  static unsigned long branch_counter = 0;
-  if( ++branch_counter % 0x1000 == 0 )
-    JS_MaybeGC( js );
-  return JS_TRUE;
-}
-
-/*
- * call-seq:
- *   native_initialize(runtime, options)
- *
- * Create the underlying SpiderMonkey context. This must be called
- * first, and only once. Called by +initialize+ by default.
- */
-static VALUE
-initialize_native(VALUE self, VALUE rb_runtime, VALUE UNUSED(options))
-{
-  JohnsonContext* context;
-  JohnsonRuntime* runtime;
-
-  Data_Get_Struct(self, JohnsonContext, context);
-  Data_Get_Struct(rb_runtime, JohnsonRuntime, runtime);
-
-  if ((context->js = JS_NewContext(runtime->js, 8192L)))
-  {
-    // See if the runtime already has a shared global object.
-    JSObject* global = runtime->global;
-
-    // If it does, use it. If not,
-    if (!global)
-      // create one of our global objects.
-      global = johnson_create_global_object(context->js);
-
-    // Manually set the context's global object.
-    JS_SetGlobalObject(context->js, global);
-    JS_SetErrorReporter(context->js, report_js_error);
-    JS_SetBranchCallback(context->js, branch_callback);
-    JS_SetContextPrivate(context->js, (void *)self);
-
-    JS_SetOptions(context->js, JS_GetOptions(context->js)
-#ifdef JSOPTION_DONT_REPORT_UNCAUGHT
-        | JSOPTION_DONT_REPORT_UNCAUGHT
-#endif
-#ifdef JSOPTION_VAROBJFIX
-        | JSOPTION_VAROBJFIX
-#endif
-// #ifdef JSOPTION_XML
-//         | JSOPTION_XML
-// #endif
-        );
-
-    // Success.
-    return init_spidermonkey_extensions(context, self);
-  }
-
-  if (context->js) JS_DestroyContext(context->js);
-
-  rb_raise(rb_eRuntimeError, "Failed to initialize SpiderMonkey context");
-}
-
-///////////////////////////////////////////////////////////////////////////
-//// INFRASTRUCTURE BELOW HERE ////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////
-
-static VALUE allocate(VALUE klass)
-{
-  JohnsonContext* context = calloc(1L, sizeof(JohnsonContext));
-  return Data_Wrap_Struct(klass, 0, 0, context);
-}
-
-void init_Johnson_SpiderMonkey_Context(VALUE spidermonkey)
-{
-  /* HACK:  These comments are *only* to make RDoc happy.
-  VALUE johnson = rb_define_module("Johnson");
-  VALUE spidermonkey = rb_define_module_under(johnson, "SpiderMonkey");
-  */
-
-  /* This is the private context used for SpiderMonkey. */
-  VALUE context = rb_define_class_under(spidermonkey, "Context", rb_cObject);
-
-  rb_define_alloc_func(context, allocate);
-  rb_define_private_method(context, "initialize_native", initialize_native, 2);
-}
-
-VALUE Johnson_SpiderMonkey_JSLandProxy()
-{
-  return rb_eval_string("Johnson::SpiderMonkey::JSLandProxy");
-}

data/ext/spidermonkey/context.h

@@ -1,19 +0,0 @@
-#ifndef JOHNSON_SPIDERMONKEY_CONTEXT_H
-#define JOHNSON_SPIDERMONKEY_CONTEXT_H
-
-#include "spidermonkey.h"
-
-#define MAX_EXCEPTION_MESSAGE_SIZE 2048L
-
-typedef struct {
-  JSContext *js;
-  
-  jsval ex; // an exception value
-  char msg[MAX_EXCEPTION_MESSAGE_SIZE]; // the 'backup' message
-  
-} JohnsonContext;
-
-void init_Johnson_SpiderMonkey_Context(VALUE spidermonkey);
-VALUE Johnson_SpiderMonkey_JSLandProxy();
-
-#endif

data/ext/spidermonkey/conversions.c

@@ -1,361 +0,0 @@
-#include "conversions.h"
-#include "js_land_proxy.h"
-#include "ruby_land_proxy.h"
-
-DEFINE_RUBY_WRAPPER(convert_to_ruby, convert_to_ruby, ARGLIST2(runtime, js_value))
-
-DEFINE_RUBY_WRAPPER(convert_js_string_to_ruby, convert_js_string_to_ruby, ARGLIST2(runtime, str))
-
-static VALUE convert_regexp_to_ruby(JohnsonRuntime* runtime, jsval regexp);
-DECLARE_RUBY_WRAPPER(convert_regexp_to_ruby, JohnsonRuntime* runtime; jsval regexp)
-DEFINE_RUBY_WRAPPER(convert_regexp_to_ruby, convert_regexp_to_ruby, ARGLIST2(runtime, regexp))
-
-DEFINE_RUBY_WRAPPER(rb_funcall_0, rb_funcall, ARGLIST3(obj, sym, argc))
-DEFINE_RUBY_WRAPPER(rb_funcall_1, rb_funcall, ARGLIST4(obj, sym, argc, a))
-DEFINE_RUBY_WRAPPER(rb_funcall_2, rb_funcall, ARGLIST5(obj, sym, argc, a, b))
-
-DECLARE_RUBY_WRAPPER(rb_float_new, double v)
-DEFINE_RUBY_WRAPPER(rb_float_new, rb_float_new, ARGLIST1(v))
-
-DEFINE_RUBY_WRAPPER(rb_intern, rb_intern, ARGLIST1(name))
-
-static JSBool convert_float_or_bignum_to_js(JohnsonRuntime* runtime, VALUE float_or_bignum, jsval* retval)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  return JS_NewDoubleValue(context, NUM2DBL(float_or_bignum), retval);
-}
-
-static JSBool convert_symbol_to_js(JohnsonRuntime* runtime, VALUE symbol, jsval* retval)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  PREPARE_JROOTS(context, 2);
-
-  VALUE to_s = CALL_RUBY_WRAPPER(rb_funcall_0, symbol, RB_INTERN("to_s"), 0);
-  CALL_RUBY_WRAPPER(rb_string_value, &to_s);
-  jsval name = STRING_TO_JSVAL(JS_NewStringCopyN(context, StringValuePtr(to_s), (size_t) StringValueLen(to_s)));
-
-  JROOT(name);
-
-  // calls Johnson.symbolize(name) in JS-land. See lib/prelude.js
-
-  jsval nsJohnson;    
-  JCHECK(JS_GetProperty(context, runtime->global, "Johnson", &nsJohnson));
-  JROOT(nsJohnson);
-
-  JCHECK(JS_CallFunctionName(context, JSVAL_TO_OBJECT(nsJohnson), "symbolize", 1, &name, retval));
-
-  JRETURN;
-}
-
-static JSBool convert_regexp_to_js(JohnsonRuntime* runtime, VALUE regexp, jsval* retval)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  PREPARE_JROOTS(context, 0);
-  VALUE source = rb_funcall(regexp, RB_INTERN("source"), 0);
-  CALL_RUBY_WRAPPER(rb_string_value, &source);
-  jsint options = (jsint)(NUM2INT(rb_funcall(regexp, RB_INTERN("options"), 0)));
-
-  JSObject* obj = JS_NewRegExpObject(context,
-        StringValuePtr(source),
-        (size_t) StringValueLen(source),
-        (unsigned) options);
-
-  JCHECK(obj);
-  *retval = OBJECT_TO_JSVAL(obj);
-  JRETURN;
-}
-
-JSBool convert_to_js(JohnsonRuntime* runtime, VALUE ruby, jsval* retval)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  PREPARE_JROOTS(context, 0);
-  switch(TYPE(ruby))
-  {
-    case T_NONE:
-      JERROR("I don't know how to handle T_NONE.");
-      JRETURN;
-
-    case T_ICLASS:
-      JERROR("I don't know how to handle T_ICLASS.");
-      JRETURN;
-
-    case T_MATCH:
-      JERROR("I don't know how to handle T_MATCH.");
-      JRETURN;
-
-    case T_BLKTAG:
-      JERROR("I don't know how to handle T_BLKTAG.");
-      JRETURN;
-
-    case T_NODE:
-      JERROR("I don't know how to handle T_NODE | T_MASK.");
-      JRETURN;
-
-    case T_UNDEF:
-      JERROR("I don't know how to handle T_UNDEF.");
-      JRETURN;
-
-    case T_VARMAP:
-      JERROR("I don't know how to handle T_VARMAP.");
-      JRETURN;
-
-    case T_NIL:
-      *retval = JSVAL_NULL;
-      JRETURN;
-
-    case T_TRUE:
-      *retval = JSVAL_TRUE;
-      JRETURN;
-    
-    case T_FALSE:
-      *retval = JSVAL_FALSE;
-      JRETURN;
-
-    case T_STRING:
-      {
-        CALL_RUBY_WRAPPER(rb_string_value, &ruby);
-        const char * src = StringValuePtr(ruby);
-        const size_t srclen = StringValueLen(ruby);
-        size_t dstlen = 0;
-        JCHECK(JS_DecodeBytes(context, src, srclen, NULL, &dstlen));
-        jschar* dstchars = JS_malloc(context, sizeof(jschar) * (1 + dstlen));
-        JCHECK(dstchars);
-        JCHECK(JS_DecodeBytes(context, src, srclen, dstchars, &dstlen));
-        JSString* str = JS_NewUCString(context, dstchars, dstlen);
-        JCHECK(str);
-        *retval = STRING_TO_JSVAL(str);
-        JRETURN;
-      }
-
-    case T_FIXNUM:
-      {
-        long val = NUM2LONG(ruby);
-        if (val >= JSVAL_INT_MIN && val <= JSVAL_INT_MAX)
-        {
-          *retval = INT_TO_JSVAL((jsint)val);
-          JRETURN;
-        }
-      }
-
-    case T_FLOAT:
-    case T_BIGNUM:
-      JCHECK(convert_float_or_bignum_to_js(runtime, ruby, retval));
-      JRETURN;
-
-    case T_SYMBOL:
-      JCHECK(convert_symbol_to_js(runtime, ruby, retval));
-      JRETURN;
-
-    case T_CLASS:
-    case T_ARRAY:
-    case T_HASH:
-    case T_MODULE:
-    case T_FILE:
-    case T_STRUCT:
-    case T_OBJECT:
-      JCHECK(make_js_land_proxy(runtime, ruby, retval));
-      JRETURN;
-      
-    case T_REGEXP:
-      JCHECK(convert_regexp_to_js(runtime, ruby, retval));
-      JRETURN;
-
-    case T_DATA:
-      if (ruby_value_is_proxy(ruby))
-        JCHECK(unwrap_ruby_land_proxy(runtime, ruby, retval));
-      else // If we can't identify the object, just wrap it
-        JCHECK(make_js_land_proxy(runtime, ruby, retval));
-      JRETURN;
-
-    default:
-      JERROR("unknown ruby type in switch");
-  }
-  
-  *retval = JSVAL_NULL;
-  JRETURN;
-}
-
-VALUE convert_js_string_to_ruby(JohnsonRuntime* runtime, JSString* str)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  PREPARE_RUBY_JROOTS(context, 1);
-  JROOT(str);
-  jschar* src = JS_GetStringChars(str);
-  JCHECK(src);
-  size_t srclen = JS_GetStringLength(str);
-  size_t dstlen = 0;
-  JCHECK(JS_EncodeCharacters(context, src, srclen, NULL, &dstlen));
-  char* dst = JS_malloc(context, sizeof(char) * (1 + dstlen));
-  JCHECK(dst);
-  JCHECK(JS_EncodeCharacters(context, src, srclen, dst, &dstlen));
-  // This will leak dst if rb_str_new raises
-  VALUE ruby_str = rb_str_new(dst, dstlen);
-  JS_free(context, dst);
-  JRETURN_RUBY(ruby_str);
-}
-
-static VALUE convert_regexp_to_ruby(JohnsonRuntime* runtime, jsval regexp)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  PREPARE_RUBY_JROOTS(context, 1);
-  JROOT(regexp);
-  JSRegExp* re = (JSRegExp*)JS_GetPrivate(context, JSVAL_TO_OBJECT(regexp));
-
-  JRETURN_RUBY(RB_FUNCALL_2(rb_cRegexp, RB_INTERN("new"),
-    CONVERT_JS_STRING_TO_RUBY(runtime, re->source),
-    INT2NUM((long)re->flags)));
-}
-
-static JSBool js_value_is_regexp(JohnsonRuntime* runtime, jsval maybe_regexp, bool* is_regexp)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  PREPARE_JROOTS(context, 1);
-  JROOT(maybe_regexp);
-  JSBool result = JS_InstanceOf(context, JSVAL_TO_OBJECT(maybe_regexp), &js_RegExpClass, NULL);
-  *is_regexp = (result ? true : false);
-  JRETURN;
-}
-
-static JSBool js_value_is_symbol(JohnsonRuntime* runtime, jsval maybe_symbol, bool* is_symbol)
-{
-  jsval nsJohnson, cSymbol;
-  JSContext * context = johnson_get_current_context(runtime);
-
-  PREPARE_JROOTS(context, 3);
-  JROOT(maybe_symbol);
-
-  JCHECK(JS_GetProperty(context, runtime->global, "Johnson", &nsJohnson));
-  if (!JSVAL_IS_OBJECT(nsJohnson))
-    JERROR("Unable to retrieve Johnson from JSLand");
-  JROOT(nsJohnson);
-
-  JCHECK(JS_GetProperty(context, JSVAL_TO_OBJECT(nsJohnson), "Symbol", &cSymbol));
-  if (!JSVAL_IS_OBJECT(cSymbol))
-    JERROR("Unable to retrieve Johnson.Symbol from JSLand");
-  JROOT(cSymbol);
-
-  JSBool is_a_symbol;
-  JCHECK(JS_HasInstance(context, JSVAL_TO_OBJECT(cSymbol), maybe_symbol, &is_a_symbol));
-
-  *is_symbol = (is_a_symbol != JS_FALSE);
-  JRETURN;
-}
-
-VALUE convert_to_ruby(JohnsonRuntime* runtime, jsval js)
-{
-  if (JSVAL_NULL == js) return Qnil;
-
-  JSContext * context = johnson_get_current_context(runtime);
-
-  PREPARE_RUBY_JROOTS(context, 1);
-  JROOT(js);
-  
-  switch (JS_TypeOfValue(context, js))
-  {
-    case JSTYPE_VOID:
-      JRETURN_RUBY(Qnil);
-      
-    case JSTYPE_FUNCTION: 
-    case JSTYPE_OBJECT:
-      if (OBJECT_TO_JSVAL(runtime->global) == js)
-        // global gets special treatment, since the Prelude might not be loaded
-        JRETURN_RUBY(CALL_RUBY_WRAPPER(make_ruby_land_proxy, runtime, js, "GlobalProxy"));
-      
-      // this conditional requires the Prelude
-      bool is_symbol = false;
-      JCHECK(js_value_is_symbol(runtime, js, &is_symbol));
-      if (is_symbol)
-        JRETURN_RUBY(ID2SYM(RB_INTERN(JS_GetStringBytes(JS_ValueToString(context, js)))));
-    
-      if (js_value_is_proxy(runtime, js))
-        JRETURN_RUBY(unwrap_js_land_proxy(runtime, js));
-
-      bool is_regexp = false;
-      JCHECK(js_value_is_regexp(runtime, js, &is_regexp));
-      if (is_regexp)
-        JRETURN_RUBY(CALL_RUBY_WRAPPER(convert_regexp_to_ruby, runtime, js));
-    
-      JRETURN_RUBY(CALL_RUBY_WRAPPER(make_ruby_land_proxy, runtime, js, LEAKY_ROOT_NAME("RubyLandProxy", JS_GetStringBytes(JS_ValueToString(context, js)))));
-        
-    case JSTYPE_BOOLEAN:
-      JRETURN_RUBY(JSVAL_TRUE == js ? Qtrue : Qfalse);
-      
-    case JSTYPE_STRING:
-      JRETURN_RUBY(CONVERT_JS_STRING_TO_RUBY(runtime, JSVAL_TO_STRING(js)));
-      
-    case JSTYPE_NUMBER:
-      if (JSVAL_IS_INT(js)) JRETURN_RUBY(INT2FIX(JSVAL_TO_INT(js)));
-      else JRETURN_RUBY(CALL_RUBY_WRAPPER(rb_float_new, *JSVAL_TO_DOUBLE(js)));
-
-    default:
-      JERROR("unknown js type in switch");
-  }
-  
-  JRETURN_RUBY(Qnil);
-}
-
-NORETURN(void) raise_js_error_in_ruby(JohnsonRuntime* runtime)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  JohnsonContext * johnson_context = OUR_CONTEXT(context);
-  if (JS_IsExceptionPending(context))
-  {
-    assert(JS_GetPendingException(context, &(johnson_context->ex)));
-    JS_AddNamedRoot(context, &(johnson_context->ex), "raise_js_error_in_ruby");
-    JS_ClearPendingException(context);
-    JS_RemoveRoot(context, &(johnson_context->ex));
-  }
-
-  VALUE ruby_runtime = (VALUE)JS_GetRuntimePrivate(runtime->js);
-  if (johnson_context->ex)
-    RAISE_JS_ERROR(ruby_runtime, johnson_context->ex);
-
-  // FIXME: I don't think this is needed, it should
-  // be done on the Ruby side.
-  if (!johnson_context->msg)
-    rb_raise(rb_eRuntimeError, "Unknown JavaScriptError");
-
-  // FIXME: I don't think this can ever happen....
-  rb_raise(rb_eRuntimeError, johnson_context->msg);
-}
-
-#define TAG_RAISE 0x6
-#define TAG_THROW 0x7
-
-JSBool report_ruby_error_in_js(JohnsonRuntime* runtime, int state, VALUE old_errinfo)
-{
-  JSContext * context = johnson_get_current_context(runtime);
-  assert(state);
-  switch (state)
-  {
-    case TAG_RAISE:
-      {
-        VALUE local_error = ruby_errinfo;
-        ruby_errinfo = old_errinfo;
-
-        if (rb_funcall(local_error, rb_intern("respond_to?"), 1, ID2SYM(rb_intern("copy_ruby_stack_to_deck"))))
-          rb_funcall(local_error, rb_intern("copy_ruby_stack_to_deck"), 0);
-
-        VALUE rb_runtime = (VALUE)JS_GetRuntimePrivate(runtime->js);
-        rb_iv_set(local_error, "@js_stack", rb_funcall(rb_runtime, rb_intern("current_stack"), 0));
-
-        jsval js_error;
-        convert_to_js(runtime, local_error, &js_error);
-        JS_SetPendingException(context, js_error);
-
-        return JS_FALSE ;
-      }
-
-    case TAG_THROW:
-      // FIXME: This should be propagated to JS... as an exception?
-
-    default:
-      {
-        JSString* str = JS_NewStringCopyZ(context, "Unexpected longjmp from ruby!");
-        if (str)
-          JS_SetPendingException(context, STRING_TO_JSVAL(str));
-        return JS_FALSE;
-      }
-  }
-}
-