johnson 1.1.0

data/Rakefile

@@ -0,0 +1,42 @@
+require "rubygems"
+require "hoe"
+require "rake/extensiontask"
+
+require "./lib/johnson/version.rb"
+
+HOE = Hoe.new "johnson", Johnson::VERSION do |p|
+  p.developer "John Barnette",   "jbarnette@rubyforge.org"
+  p.developer "Aaron Patterson", "aaron.patterson@gmail.com"
+  p.developer "Yehuda Katz",     "wycats@gmail.com"
+  p.developer "Matthew Draper",  "matthew@trebex.net"
+
+  p.history_file     = "CHANGELOG.rdoc"
+  p.readme_file      = "README.rdoc"
+  p.summary          = "Johnson wraps JavaScript in a loving Ruby embrace."
+  p.url              = "http://github.com/jbarnette/johnson/wikis"
+
+  p.extra_rdoc_files = [p.readme_file]
+  p.test_globs       = %w(test/**/*_test.rb)
+
+  p.clean_globs     << "lib/johnson/spidermonkey.bundle"
+  p.clean_globs     << "tmp"
+  p.clean_globs     << "vendor/spidermonkey/**/*.OBJ"
+  p.clean_globs     << "ext/**/*.{o,so,bundle,a,log}"
+
+  p.extra_deps      << "rake"
+  p.extra_dev_deps  << "rake-compiler"
+  p.spec_extras      = { :extensions => %w(Rakefile) }
+end
+
+Rake::ExtensionTask.new "spidermonkey", HOE.spec do |ext|
+  ext.lib_dir = "lib/johnson"
+end
+
+task :test => :compile
+
+Dir["lib/tasks/*.rake"].each { |f| load f }
+
+# HACK: If Rake is running as part of the gem install, clear out the
+# default task and make the extensions compile instead.
+
+Rake::Task[:default].prerequisites.replace %w(compile) if ENV["RUBYARCHDIR"]

data/bin/johnson

@@ -0,0 +1,108 @@
+#!/usr/bin/env ruby
+
+$:.unshift(File.expand_path(File.join(File.dirname(__FILE__), "..", "lib")))
+
+require "readline"
+require "johnson"
+
+RUNTIME = js = Johnson::Runtime.new
+RUNTIME.evaluate(Johnson::CLI::JS)
+
+EXIT_VERBS = [nil] + %w(exit quit)
+
+local_binding = binding
+ruby_readline = []
+
+def copy_history
+  new_history = []
+  until Readline::HISTORY.empty?
+    new_history.push(Readline::HISTORY.pop)
+  end
+  new_history
+end
+
+def paste_history(old_history)
+  until old_history.empty?
+    Readline::HISTORY << old_history.pop
+  end
+end
+
+def handle_exit(input)
+  if EXIT_VERBS.include?(input)
+    puts if input.nil?
+    exit
+  end
+end
+
+def rescued(&block)
+  yield
+rescue Exception => e
+  exit if SystemExit === e
+
+  puts e.message
+  puts e.backtrace.reject { |l| l =~ /bin\/johnson/ }
+end
+
+def eval_in_js(expression)
+  rescued { puts "=> " + RUNTIME.evaluate(expression, "(console)").inspect }
+end
+
+def eval_in_ruby(expression, bind_to)
+  rescued { puts "=> " + eval(expression, bind_to).inspect }
+end
+
+options = Johnson::CLI::Options.parse!(ARGV)
+
+options.load_paths.each { |d| $LOAD_PATH << d }
+options.paths_to_require.each { |p| RUNTIME.evaluate("Johnson.require('#{p}')") }
+options.files_to_preload.each { |f| RUNTIME.load(f) }
+
+unless options.expressions.empty?
+  options.expressions.each { |e| RUNTIME.evaluate(e, '-e') }
+  exit if options.files_to_evaluate.empty?
+end
+
+unless options.files_to_evaluate.empty?
+  RUNTIME[:arguments] = options.arguments
+  
+  options.files_to_evaluate.each do |file|
+    RUNTIME.load(file)
+  end
+  
+  exit
+end
+
+loop do
+  input = Readline.readline("js> ", true)
+  handle_exit(input)
+  
+  if input =~ /^rb\s+(.+)$/
+    eval_in_ruby($1, local_binding)
+    next
+  end
+  
+  if input == "rb"
+    js_readline = copy_history
+    paste_history(ruby_readline)
+    
+    loop do
+      input = Readline.readline("rb> ", true)
+      handle_exit(input)
+
+      break if input == "js"
+
+      if input =~ /^js\s+(.+)$/
+        eval_in_js($1)
+        next
+      end
+
+      eval_in_ruby(input, local_binding)
+    end
+    
+    ruby_readline = copy_history
+    paste_history(js_readline)
+    next
+  end
+  
+  eval_in_js(input)
+end

data/docs/MINGW32.mk

@@ -0,0 +1,124 @@
+# -*- Mode: makefile -*-
+#
+#
+#  Based on patch submitted to mozilla.dev.tech.js-engine by 'Andy':
+#    http://groups.google.com/group/mozilla.dev.tech.js-engine/browse_thread/thread/16972946bf7df82e
+#
+#
+# ***** BEGIN LICENSE BLOCK *****
+# Version: MPL 1.1/GPL 2.0/LGPL 2.1
+#
+# The contents of this file are subject to the Mozilla Public License Version
+# 1.1 (the "License"); you may not use this file except in compliance with
+# the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+# for the specific language governing rights and limitations under the
+# License.
+#
+# The Original Code is Mozilla Communicator client code, released
+# March 31, 1998.
+#
+# The Initial Developer of the Original Code is
+# Netscape Communications Corporation.
+# Portions created by the Initial Developer are Copyright (C) 1998
+# the Initial Developer. All Rights Reserved.
+#
+# Contributor(s):
+#
+# Alternatively, the contents of this file may be used under the terms of
+# either the GNU General Public License Version 2 or later (the "GPL"), or
+# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
+# in which case the provisions of the GPL or the LGPL are applicable instead
+# of those above. If you wish to allow use of your version of this file only
+# under the terms of either the GPL or the LGPL, and not to allow others to
+# use your version of this file under the terms of the MPL, indicate your
+# decision by deleting the provisions above and replace them with the notice
+# and other provisions required by the GPL or the LGPL. If you do not delete
+# the provisions above, a recipient may use your version of this file under
+# the terms of any one of the MPL, the GPL or the LGPL.
+#
+# ***** END LICENSE BLOCK *****
+
+#
+# Config for all versions of Mingw (copy and modified from Linux)
+#
+
+AR = i586-mingw32msvc-ar
+CC = i586-mingw32msvc-gcc
+LD = i586-mingw32msvc-ld
+CCC = i586-mingw32msvc-g++
+
+CFLAGS +=  -Wall -Wno-format
+#OS_CFLAGS = -DXP_UNIX -DSVR4 -DSYSV -D_BSD_SOURCE -DPOSIX_SOURCE -DHAVE_LOCALTIME_R -DEXPORT_JS_API
+OS_CFLAGS = -D_X86_=1 -DXP_WIN -DXP_WIN32 -DWIN32 -D_WINDOWS -D_WIN32 $(WIN_CFLAGS) -DEXPORT_JS_API
+JSDLL_CFLAGS = -DEXPORT_JS_API  # not work, dunno why?
+SO_SUFFIX = dll
+# libgcc.a:__divdi3 kernel32:DebugBreak,GetSystemTimeAsFileTime
+# winmm:timeBeginPeriod,timeEndPeriod
+WINLIBS = -lmsvcrt -lm -lkernel32 -lwinmm /usr/lib/gcc/i586-mingw32msvc/4.2.1-sjlj/libgcc.a
+#LDFLAGS += $(WINLIBS) # dont work. rewrite by Makefile.ref
+OTHER_LIBS += $(WINLIBS)
+
+RANLIB = echo
+MKSHLIB = $(LD) -shared $(XMKSHLIBOPTS)
+
+# These don't work :(
+LIBRARY = $(OBJDIR)/js32.lib
+SHARED_LIBRARY = $(OBJDIR)/js32.dll
+PROGRAM = $(OBJDIR)/js.exe
+
+#.c.o:
+#      $(CC) -c -MD $*.d $(CFLAGS) $<
+
+CPU_ARCH = $(shell uname -m)
+# don't filter in x86-64 architecture
+ifneq (x86_64,$(CPU_ARCH))
+ifeq (86,$(findstring 86,$(CPU_ARCH)))
+CPU_ARCH = x86
+OS_CFLAGS+= -DX86_LINUX
+
+ifeq (gcc, $(CC))
+# if using gcc on x86, check version for opt bug
+# (http://bugzilla.mozilla.org/show_bug.cgi?id=24892)
+GCC_VERSION := $(shell gcc -v 2>&1 | grep version | awk '{ print $$3 }')
+GCC_LIST:=$(sort 2.91.66 $(GCC_VERSION) )
+
+ifeq (2.91.66, $(firstword $(GCC_LIST)))
+CFLAGS+= -DGCC_OPT_BUG
+endif
+endif
+endif
+endif
+
+GFX_ARCH = x
+
+OS_LIBS = -lm -lc
+
+ASFLAGS += -x assembler-with-cpp
+
+
+ifeq ($(CPU_ARCH),alpha)
+
+# Ask the C compiler on alpha linux to let us work with denormalized
+# double values, which are required by the ECMA spec.
+
+OS_CFLAGS += -mieee
+endif
+
+# Use the editline library to provide line-editing support.
+#JS_EDITLINE = 1   // not support by Mingw
+
+ifeq ($(CPU_ARCH),x86_64)
+# Use VA_COPY() standard macro on x86-64
+# FIXME: better use it everywhere
+OS_CFLAGS += -DHAVE_VA_COPY
+endif
+
+ifeq ($(CPU_ARCH),x86_64)
+# We need PIC code for shared libraries
+# FIXME: better patch rules.mk & fdlibm/Makefile*
+OS_CFLAGS += -DPIC -fPIC
+endif 

data/docs/cross-compile.txt

@@ -0,0 +1,38 @@
+
+CROSS-COMPILING FOR WINDOWS
+
+Based on http://eigenclass.org/hiki.rb?cross+compiling+rcovrt
+
+
+*) Install the MinGW cross-compiler
+
+    Debian: apt-get install mingw32 mingw32-binutils mingw32-runtime
+
+*) Download & extract a ruby distribution archive
+
+*) Double the backslashes in the ALT_SEPARATOR definition in Makefile.in
+
+*) Build & install it:
+
+    env ac_cv_func_getpgrp_void=no \
+       ac_cv_func_setpgrp_void=yes \
+       rb_cv_negative_time_t=no \
+       ac_cv_func_memcmp_working=yes \
+       rb_cv_binary_elf=no \
+       ./configure \
+       --host=i586-mingw32msvc \
+       --target=i386-mingw32 \
+       --build=i686-linux \
+       --prefix=~/ruby-mingw32
+
+    make ruby
+
+    make install
+
+*) Build the extension (rake will build spidermonkey for you)
+
+    # Remove any native binaries that are already built
+    rake clean
+
+    rake build CROSS=MINGW32 CROSSLIB=~/ruby-mingw32/lib/ruby/1.8/i386-mingw32
+

data/ext/spidermonkey/context.c

@@ -0,0 +1,115 @@
+#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(options={})
+ *
+ * Initializes the native spidermonkey values.
+ */
+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

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