opal 0.0.1

data/runtime/range.js

@@ -0,0 +1,56 @@
+/* 
+ * range.js
+ * opal
+ * 
+ * Created by Adam Beynon.
+ * Copyright 2010 Adam Beynon.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ * 
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ * THE SOFTWARE.
+ */
+
+
+var rb_cRange;
+
+function Init_Range() {
+  rb_cRange = rb_define_class("Range", rb_cObject);
+  // rb_include_module(rb_cRange, rb_cEnumerable);
+
+  // rb_define_method(rb_cRange, "initialize", rb_range_initialize, -1);
+  // rb_define_method(rb_cRange, "initialize_copy",rb_range_initialize_copy, 1);
+  // rb_define_method(rb_cRange, "==", rb_range_eq, 1);
+  // rb_define_method(rb_cRange, "===", rb_range_eqq, 1);
+  // rb_define_method(rb_cRange, "eql?", rb_range_eql, 1);
+  // rb_define_method(rb_cRange, "hash", rb_range_hash, 0);
+  // rb_define_method(rb_cRange, "each", rb_range_each, 0);
+  // rb_define_method(rb_cRange, "step", rb_range_step, -1);
+  // rb_define_method(rb_cRange, "begin", rb_range_begin, 0);
+  // rb_define_method(rb_cRange, "end", rb_range_end, 0);
+  // rb_define_method(rb_cRange, "first", rb_range_first, -1);
+  // rb_define_method(rb_cRange, "last", rb_range_last, -1);
+  // rb_define_method(rb_cRange, "min", rb_range_min, 0);
+  // rb_define_method(rb_cRange, "max", rb_range_max, 0);
+  // rb_define_method(rb_cRange, "to_s", rb_range_to_s, 0);
+  // rb_define_method(rb_cRange, "inspect", rb_range_inspect, 0);
+
+  // rb_define_method(rb_cRange, "exclude_end?", rb_range_exclude_end_p, 0);
+
+  // rb_define_method(rb_cRange, "member?", rb_range_include, 1);
+  // rb_define_method(rb_cRange, "include?", rrb_ange_include, 1);
+  // rb_define_method(rb_cRange, "cover?", rb_range_cover, 1);
+}

data/runtime/re.js

@@ -0,0 +1,91 @@
+/* 
+ * re.js
+ * opal
+ * 
+ * Created by Adam Beynon.
+ * Copyright 2010 Adam Beynon.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ * 
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ * THE SOFTWARE.
+ */
+
+
+var rb_cRegexp, rb_eRegexpError, rb_cMatch;
+
+function Init_Regexp() {
+  // rb_eRegexpError = rb_define_class("RegexpError", rb_eStandardError);
+  
+  // rb_define_virtual_variable("$~", rb_match_getter, rb_match_setter);
+  // rb_define_virtual_variable("$&", rb_last_match_getter, 0);
+  // rb_define_virtual_variable("$`", rb_prematch_getter, 0);
+  // rb_define_virtual_variable("$'", rb_postmatch_getter, 0);
+  // rb_define_virtual_variable("$+", rb_last_paren_match_getter, 0);
+
+  // rb_define_virtual_variable("$=", rb_ignorecase_getter, rb_ignorecase_setter);
+  // rb_define_virtual_variable("$KCODE", rb_kcode_getter, rb_kcode_setter);
+  // rb_define_virtual_variable("$-K", rb_kcode_getter, rb_kcode_setter);
+
+  rb_cRegexp = rb_define_class("Regexp", rb_cObject);
+  // rb_define_alloc_func(rb_cRegexp, rb_reg_s_alloc);
+  // rb_define_singleton_method(rb_cRegexp, "compile", rb_class_new_instance, -1);
+  // rb_define_singleton_method(rb_cRegexp, "quote", rb_reg_s_quote, 1);
+  // rb_define_singleton_method(rb_cRegexp, "escape", rb_reg_s_quote, 1);
+  // rb_define_singleton_method(rb_cRegexp, "union", rb_reg_s_union_m, -2);
+  // rb_define_singleton_method(rb_cRegexp, "last_match", rb_reg_s_last_match, -1);
+  // rb_define_singleton_method(rb_cRegexp, "try_convert", rb_reg_s_try_convert, 1);
+
+  // rb_define_method(rb_cRegexp, "initialize", rb_reg_initialize_m, -1);
+  // rb_define_method(rb_cRegexp, "initialize_copy", rb_reg_init_copy, 1);
+  // rb_define_method(rb_cRegexp, "hash", rb_reg_hash, 0);
+  // rb_define_method(rb_cRegexp, "eql?", rb_reg_equal, 1);
+  // rb_define_method(rb_cRegexp, "==", rb_reg_equal, 1);
+  // rb_define_method(rb_cRegexp, "=~", rb_reg_match, 1);
+  // rb_define_method(rb_cRegexp, "===", rb_reg_eqq, 1);
+  // rb_define_method(rb_cRegexp, "~", rb_reg_match2, 0);
+  // rb_define_method(rb_cRegexp, "match", rb_reg_match_m, -1);
+  // rb_define_method(rb_cRegexp, "to_s", rb_reg_to_s, 0);
+  // rb_define_method(rb_cRegexp, "inspect", rb_reg_inspect, 0);
+  // rb_define_method(rb_cRegexp, "source", rb_reg_source, 0);
+  // rb_define_method(rb_cRegexp, "casefold?", rb_reg_casefold_p, 0);
+  // rb_define_method(rb_cRegexp, "options", rb_reg_options_m, 0);
+  // rb_define_method(rb_cRegexp, "encoding", rb_obj_encoding, 0);
+  // rb_define_method(rb_cRegexp, "fixed_encoding?", rb_reg_fixed_encoding_p, 0);
+  // rb_define_method(rb_cRegexp, "names", rb_reg_names, 0);
+  // rb_define_method(rb_cRegexp, "named_captures", rb_reg_named_captures, 0);
+ 
+  rb_cMatch  = rb_define_class("MatchData", rb_cObject);
+  // rb_define_alloc_func(rb_cMatch, match_alloc);
+
+  // rb_define_method(rb_cMatch, "initialize_copy", match_init_copy, 1);
+  // rb_define_method(rb_cMatch, "regexp", match_regexp, 0);
+  // rb_define_method(rb_cMatch, "names", match_names, 0);
+  // rb_define_method(rb_cMatch, "size", match_size, 0);
+  // rb_define_method(rb_cMatch, "length", match_size, 0);
+  // rb_define_method(rb_cMatch, "offset", match_offset, 1);
+  // rb_define_method(rb_cMatch, "begin", match_begin, 1);
+  // rb_define_method(rb_cMatch, "end", match_end, 1);
+  // rb_define_method(rb_cMatch, "to_a", match_to_a, 0);
+  // rb_define_method(rb_cMatch, "[]", match_aref, -1);
+  // rb_define_method(rb_cMatch, "captures", match_captures, 0);
+  // rb_define_method(rb_cMatch, "values_at", match_values_at, -1);
+  // rb_define_method(rb_cMatch, "pre_match", rb_reg_match_pre, 0);
+  // rb_define_method(rb_cMatch, "post_match", rb_reg_match_post, 0);
+  // rb_define_method(rb_cMatch, "to_s", match_to_s, 0);
+  // rb_define_method(rb_cMatch, "inspect", match_inspect, 0);
+  // rb_define_method(rb_cMatch, "string", match_string, 0);
+}

data/runtime/string.js

@@ -0,0 +1,199 @@
+/* 
+ * string.js
+ * opal
+ * 
+ * Created by Adam Beynon.
+ * Copyright 2010 Adam Beynon.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ * 
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ * THE SOFTWARE.
+ */
+
+
+var rb_cString, rb_cSymbol;
+
+var RSymbol = function(ptr) {
+  this.klass = rb_cSymbol ;
+  // this.$type = T_SYMBOL;
+  this.toString = function() {
+  // hack, for associative js arrays, we need a unique string name :(
+    return "#<Symbol:0x000000 @ptr=" + this.ptr + ">";
+  };
+  this.ptr = ptr;
+  return this;
+};
+
+// Keys are ids, values are their associated instances of RSymbol
+//  'adam' => [Obj]
+// keys do not contain the ':'
+var rb_sym_table = { };
+
+function ID2SYM(id) {
+ if (rb_sym_table.hasOwnProperty(id)) {
+   return rb_sym_table[id];
+ }
+ var sym = new RSymbol(id);
+ rb_sym_table[id] = sym
+ return sym;
+};
+
+function rb_sym_to_s(sym) {
+  return sym.ptr;
+};
+
+function rb_sym_equal(sym1, sym2) {
+  if (sym1 === sym2) return true;
+  return false;
+};
+
+function Init_String() {
+  
+  rb_cString = rb_define_class("String", rb_cObject);
+  // rb_include_module(rb_cString, rb_mComparable);
+  // rb_define_alloc_func(rb_cString, rb_str_alloc);
+  
+  // rb_define_singleton_method(rb_cString, "try_convert", rb_str_s_try_convert, 1);
+  //   rb_define_method(rb_cString, "initialize", rb_str_init, -1);
+  //   rb_define_method(rb_cString, "initialize_copy", rb_str_replace, 1);
+  //   rb_define_method(rb_cString, "<=>", rb_str_cmp_m, 1);
+  //   rb_define_method(rb_cString, "==", rb_str_equal, 1);
+  //   rb_define_method(rb_cString, "eql?", rb_str_eql, 1);
+  //   rb_define_method(rb_cString, "hash", rb_str_hash_m, 0);
+  //   rb_define_method(rb_cString, "casecmp", rb_str_casecmp, 1);
+  //   rb_define_method(rb_cString, "+", rb_str_plus, 1);
+  //   rb_define_method(rb_cString, "*", rb_str_times, 1);
+  //   rb_define_method(rb_cString, "%", rb_str_format_m, 1);
+  //   rb_define_method(rb_cString, "[]", rb_str_aref_m, -1);
+  //   rb_define_method(rb_cString, "[]=", rb_str_aset_m, -1);
+  //   rb_define_method(rb_cString, "insert", rb_str_insert, 2);
+  //   rb_define_method(rb_cString, "length", rb_str_length, 0);
+  //   rb_define_method(rb_cString, "size", rb_str_length, 0);
+  //   rb_define_method(rb_cString, "bytesize", rb_str_bytesize, 0);
+  //   rb_define_method(rb_cString, "empty?", rb_str_empty, 0);
+  //   rb_define_method(rb_cString, "=~", rb_str_match, 1);
+  //   rb_define_method(rb_cString, "match", rb_str_match_m, -1);
+  //   rb_define_method(rb_cString, "succ", rb_str_succ, 0);
+  //   rb_define_method(rb_cString, "succ!", rb_str_succ_bang, 0);
+  //   rb_define_method(rb_cString, "next", rb_str_succ, 0);
+  //   rb_define_method(rb_cString, "next!", rb_str_succ_bang, 0);
+  //   rb_define_method(rb_cString, "upto", rb_str_upto, -1);
+  //   rb_define_method(rb_cString, "index", rb_str_index_m, -1);
+  //   rb_define_method(rb_cString, "rindex", rb_str_rindex_m, -1);
+  //   rb_define_method(rb_cString, "replace", rb_str_replace, 1);
+  //   rb_define_method(rb_cString, "clear", rb_str_clear, 0);
+  //   rb_define_method(rb_cString, "chr", rb_str_chr, 0);
+  //   rb_define_method(rb_cString, "getbyte", rb_str_getbyte, 1);
+  //   rb_define_method(rb_cString, "setbyte", rb_str_setbyte, 2);
+
+  // rb_define_method(rb_cString, "to_i", rb_str_to_i, -1);
+  // rb_define_method(rb_cString, "to_f", rb_str_to_f, 0);
+  // rb_define_method(rb_cString, "to_s", rb_str_to_s, 0);
+  // rb_define_method(rb_cString, "to_str", rb_str_to_s, 0);
+  // rb_define_method(rb_cString, "inspect", rb_str_inspect, 0);
+  // rb_define_method(rb_cString, "dump", rb_str_dump, 0);
+
+  // rb_define_method(rb_cString, "upcase", rb_str_upcase, 0);
+  // rb_define_method(rb_cString, "downcase", rb_str_downcase, 0);
+  // rb_define_method(rb_cString, "capitalize", rb_str_capitalize, 0);
+  // rb_define_method(rb_cString, "swapcase", rb_str_swapcase, 0);
+
+  // rb_define_method(rb_cString, "hex", rb_str_hex, 0);
+  // rb_define_method(rb_cString, "oct", rb_str_oct, 0);
+  // rb_define_method(rb_cString, "split", rb_str_split_m, -1);
+  // rb_define_method(rb_cString, "lines", rb_str_each_line, -1);
+  // rb_define_method(rb_cString, "bytes", rb_str_each_byte, 0);
+  // rb_define_method(rb_cString, "chars", rb_str_each_char, 0);
+  // rb_define_method(rb_cString, "codepoints", rb_str_each_codepoint, 0);
+  // rb_define_method(rb_cString, "reverse", rb_str_reverse, 0);
+  // rb_define_method(rb_cString, "concat", rb_str_concat, 1);
+  // rb_define_method(rb_cString, "<<", rb_str_concat, 1);
+  // rb_define_method(rb_cString, "crypt", rb_str_crypt, 1);
+  // rb_define_method(rb_cString, "intern", rb_str_intern, 0);
+  // rb_define_method(rb_cString, "to_sym", rb_str_intern, 0);
+  // rb_define_method(rb_cString, "ord", rb_str_ord, 0);
+
+  // rb_define_method(rb_cString, "include?", rb_str_include, 1);
+  // rb_define_method(rb_cString, "start_with?", rb_str_start_with, -1);
+  // rb_define_method(rb_cString, "end_with?", rb_str_end_with, -1);
+
+  // rb_define_method(rb_cString, "scan", rb_str_scan, 1);
+
+  // rb_define_method(rb_cString, "ljust", rb_str_ljust, -1);
+  // rb_define_method(rb_cString, "rjust", rb_str_rjust, -1);
+  // rb_define_method(rb_cString, "center", rb_str_center, -1);
+
+  // rb_define_method(rb_cString, "sub", rb_str_sub, -1);
+  // rb_define_method(rb_cString, "gsub", rb_str_gsub, -1);
+  // rb_define_method(rb_cString, "chop", rb_str_chop, 0);
+  // rb_define_method(rb_cString, "chomp", rb_str_chomp, -1);
+  // rb_define_method(rb_cString, "strip", rb_str_strip, 0);
+  // rb_define_method(rb_cString, "lstrip", rb_str_lstrip, 0);
+  // rb_define_method(rb_cString, "rstrip", rb_str_rstrip, 0);
+
+  // rb_define_method(rb_cString, "tr", rb_str_tr, 2);
+  // rb_define_method(rb_cString, "tr_s", rb_str_tr_s, 2);
+  // rb_define_method(rb_cString, "delete", rb_str_delete, -1);
+  // rb_define_method(rb_cString, "squeeze", rb_str_squeeze, -1);
+  // rb_define_method(rb_cString, "count", rb_str_count, -1);
+
+  // rb_define_method(rb_cString, "each_line", rb_str_each_line, -1);
+  // rb_define_method(rb_cString, "each_byte", rb_str_each_byte, 0);
+  // rb_define_method(rb_cString, "each_char", rb_str_each_char, 0);
+  // rb_define_method(rb_cString, "each_codepoint", rb_str_each_codepoint, 0);
+
+  // rb_define_method(rb_cString, "sum", rb_str_sum, -1);
+
+  // rb_define_method(rb_cString, "slice", rb_str_aref_m, -1);
+
+  // rb_define_method(rb_cString, "partition", rb_str_partition, 1);
+  // rb_define_method(rb_cString, "rpartition", rb_str_rpartition, 1);
+
+
+
+  rb_cSymbol = rb_define_class("Symbol", rb_cObject);
+  // rb_include_module(rb_cSymbol, rb_mComparable);
+  // rb_undef_alloc_func(rb_cSymbol);
+  // rb_undef_method(rb_cSymbol.klass, "new");
+  // rb_define_singleton_method(rb_cSymbol, "all_symbols", rb_sym_all_symbols, 0);
+
+  rb_define_method(rb_cSymbol, "==", rb_sym_equal, 1);
+  // rb_define_method(rb_cSymbol, "inspect", rb_sym_inspect, 0);
+  rb_define_method(rb_cSymbol, "to_s", rb_sym_to_s, 0);
+  rb_define_method(rb_cSymbol, "id2name", rb_sym_to_s, 0);
+  // rb_define_method(rb_cSymbol, "intern", rb_sym_to_sym, 0);
+  // rb_define_method(rb_cSymbol, "to_sym", rb_sym_to_sym, 0);
+  // rb_define_method(rb_cSymbol, "to_proc", rb_sym_to_proc, 0);
+  // rb_define_method(rb_cSymbol, "succ", rb_sym_succ, 0);
+  // rb_define_method(rb_cSymbol, "next", rb_sym_succ, 0);
+
+  // rb_define_method(rb_cSymbol, "<=>", rb_sym_cmp, 1);
+  // rb_define_method(rb_cSymbol, "casecmp", rb_sym_casecmp, 1);
+  // rb_define_method(rb_cSymbol, "=~", rb_sym_match, 1);
+
+  // rb_define_method(rb_cSymbol, "[]", rb_sym_aref, -1);
+  // rb_define_method(rb_cSymbol, "slice", rb_sym_aref, -1);
+  // rb_define_method(rb_cSymbol, "length", rb_sym_length, 0);
+  // rb_define_method(rb_cSymbol, "size", rb_sym_length, 0);
+  // rb_define_method(rb_cSymbol, "empty?", rb_sym_empty, 0);
+  // rb_define_method(rb_cSymbol, "match", rb_sym_match, 1);
+
+  // rb_define_method(rb_cSymbol, "upcase", rb_sym_upcase, 0);
+  // rb_define_method(rb_cSymbol, "downcase", rb_sym_downcase, 0);
+  // rb_define_method(rb_cSymbol, "capitalize", rb_sym_capitalize, 0);
+  // rb_define_method(rb_cSymbol, "swapcase", rb_sym_swapcase, 0);
+}

data/runtime/variable.js

@@ -0,0 +1,184 @@
+/* 
+ * variable.js
+ * opal
+ * 
+ * Created by Adam Beynon.
+ * Copyright 2010 Adam Beynon.
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ * 
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ * 
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+ * THE SOFTWARE.
+ */
+
+
+function rb_ivar_set(obj, id, val) {
+  obj.iv_tbl[id] = val;
+  return val;
+};
+
+function rb_ivar_get(obj, id) {
+  if (obj.iv_tbl.hasOwnProperty(id)) {
+    return obj.iv_tbl[id];
+  }
+  return nil;
+}
+
+function rb_const_set(k, id, val) {
+  return rb_mod_av_set(k, id, val, true);
+}
+
+function rb_mod_av_set(k, id, val, isconst) {
+  return k.iv_tbl[id] = val;
+}
+
+function rb_const_set(k, id, val) {
+  return k.iv_tbl[id] = val;
+}
+
+function rb_const_get(k, id) {
+  var v, t = k;
+  while (t) {
+    if (v = t.iv_tbl[id]) return v;
+    t = t.sup;
+  }
+  // now try parent instead..
+  t = k.parent;
+  while (t) {
+    if (v = t.iv_tbl[id]) return v;
+    t = t.parent;
+  }
+  throw "NameError: uninitialized constant " + id + " in " + k.name
+  return nil;
+}
+
+function rb_const_get_full(k, id) {
+  var v, t = k;
+  while (t) {
+    if (v = t.iv_tbl[id]) return v;
+    t = t.sup;
+  }
+  // now try parent instead..
+  t = k.parent;
+  while (t) {
+    if (v = t.iv_tbl[id]) return v;
+    t = t.parent;
+  }
+  throw "NameError: uninitialized constant " + id + " in " + k.name
+  return nil;
+}
+
+function rb_const_defined(k, id) {
+  var v, t = k;
+  while (t) {
+    if (v = t.iv_tbl[id]) return true;
+    t = t.sup;
+  }
+  return false;
+}
+
+function rb_const_defined_full(k, id) {
+  var v, t = k;
+  while (t) {
+    if (v = t.iv_tbl[id]) return true;
+    t = t.sup;
+  }
+  // now try parent instead..
+  t = k.parent;
+  while (t) {
+    if (v = t.iv_tbl[id]) return true;
+    t = t.parent;
+  }
+  return false;
+}
+
+function rb_const_defined_at(k, id) {
+  return (k.iv_tbl[id]) ? true : false;
+}
+
+function rb_const_get_at(k, id) {
+  return (k.iv_tbl[id]) ? k.iv_tbl[id] : nil;
+}
+
+
+
+// function rb_funcall(self, id) {
+//   // console.log(id);
+//   // rb_funcall_stack.push(id);
+//   if (!self.klass) {
+//     console.log('ERROR: rb_funcall');
+//     console.log(self);
+//     console.log(id);
+//   }
+//   
+//   var method = rb_search_method(self.klass, id);
+//   
+//   if (!method) {
+//     console.log(self);
+//     throw 'RObject#call cannot find method: ' + id ;
+//   } 
+//   // console.log(Array.prototype.slice.call(arguments));
+//   switch(arguments.length) {
+//     case 2: return method(self, id);
+//     case 3: return method(self, id, arguments[2]);
+//     case 4: return method(self, id, arguments[2], arguments[3]);
+//     case 5: return method(self, id, arguments[2], arguments[3], arguments[4]);
+//   }
+//   
+//   return method.apply(self, arguments);
+// }
+// 
+// /**
+//   For compatibility
+// */
+// var VN$ = rb_funcall;
+// 
+// /**
+//   Call super method
+// */
+// var rb_supcall = function rb_supcall(from, self, id, args) {
+//   var method = self.$klass.$search_super_method(from, id);
+//   if (!method) throw 'RObject#call cannot find super method for: ' + id ;
+//   
+//   switch(args.length) {
+//     case 0: return method(self, id);
+//     case 1: return method(self, id, args[0]);
+//     case 2: return method(self, id, args[0], args[1]);
+//     case 3: return method(self, id, args[0], args[1], args[2]);
+//     case 4: return method(self, id, args[0], args[1], args[2], args[3]);
+//   }
+//   
+//   return method.apply(self, arguments);
+// };
+
+// /**
+//   For compatibility
+// */
+// var VN$sup = rb_supcall;
+// 
+// /**
+//   Call super
+//   - from = callee
+// */
+// RObject.prototype.$sup = function(from, id, args) {
+//   // console.log('callee');
+//   // console.log(from);
+//   var method = this.$klass.$search_super_method(from, id);
+//   if (!method) throw 'RObject#call cannot find super method for: ' + id ;
+//   // console.log('got super');
+//   // console.log(method);
+//   return method.apply(this, args) ;
+// };