cappruby 0.0.0

data/framework/hash.js

@@ -0,0 +1,109 @@
+/* 
+ * hash.js
+ * cappruby
+ * 
+ * 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.
+ */
+
+rb_cHash = nil;
+
+/**
+  Create a new hash. Only called from JS. args are keys and values, so:
+  key1, val1, key2, val2, .......keyN, valN.
+*/
+function rb_hash_new() {
+  var k, v, h = new objj_dictionary();
+  for (var i = 0; i < arguments.length; i++) {
+    k = arguments[i], v = arguments[i+1];
+    i ++;
+    dictionary_setValue(h, k, v);
+  }
+  return h;
+};
+
+function rb_hash_delete(hash, sel, id) {
+  var r = dictionary_getValue(hash, id);
+  dictionary_removeValue(hash, id);
+  return r;
+};
+
+function rb_hash_merge(hash, sel, options) {
+    return objj_msgSend(hash, "addEntriesFromDictionary:", options);
+};
+
+
+function Init_Hash() {
+  rb_cHash = objj_getClass("CPDictionary");
+  rb_const_set(rb_cObject, "Hash", rb_cHash);
+  
+  // rb_include_module(rb_cHash, rb_mEnumerable);
+  
+  // rb_define_singleton_method(rb_cHash, "[]", rb_hash_s_create, -1);
+  // rb_define_singleton_method(rb_cHash, "try_convert", rb_hash_s_try_convert, 1);
+  rb_define_method(rb_cHash, "initialize", rb_hash_initialize, -1);
+
+  // rb_define_method(rb_cHash, "to_hash", rb_hash_to_hash, 0);
+  // rb_define_method(rb_cHash, "to_a", rb_hash_to_a, 0);
+  // rb_define_method(rb_cHash, "to_s", rb_hash_inspect, 0);
+  // rb_define_method(rb_cHash, "inspect", rb_hash_inspect, 0);
+
+  // rb_define_method(rb_cHash, "==", rb_hash_equal, 1);
+  // rb_define_method(rb_cHash, "[]", rb_hash_aref, 1);
+  // rb_define_method(rb_cHash, "eql?", rb_hash_eql, 1);
+  // rb_define_method(rb_cHash, "fetch", rb_hash_fetch, -1);
+  // rb_define_method(rb_cHash, "[]=", rb_hash_aset, 2);
+  // rb_define_method(rb_cHash, "store", rb_hash_aset, 2);
+  // rb_define_method(rb_cHash, "default", rb_hash_default, -1);
+  // rb_define_method(rb_cHash, "default=", rb_hash_set_default, 1);
+  // rb_define_method(rb_cHash, "default_proc", rb_hash_default_proc, 0);
+  // rb_define_method(rb_cHash, "key", rb_hash_key, 1);
+  // rb_define_method(rb_cHash, "index", rb_hash_index, 1);
+  // rb_define_method(rb_cHash, "size", rb_hash_size, 0);
+  // rb_define_method(rb_cHash, "length", rb_hash_size, 0);
+  // rb_define_method(rb_cHash, "empty?", rb_hash_empty_p, 0);
+
+  // rb_define_method(rb_cHash, "each_value", rb_hash_each_value, 0);
+  // rb_define_method(rb_cHash, "each_key", rb_hash_each_key, 0);
+  // rb_define_method(rb_cHash, "each_pair", rb_hash_each_pair, 0);
+  // rb_define_method(rb_cHash, "each", rb_hash_each_pair, 0);
+
+  // rb_define_method(rb_cHash, "keys", rb_hash_keys, 0);
+  // rb_define_method(rb_cHash, "values", rb_hash_values, 0);
+  // rb_define_method(rb_cHash, "values_at", rb_hash_values_at, -1);
+
+  // rb_define_method(rb_cHash, "shift", rb_hash_shift, 0);
+  rb_define_method(rb_cHash, "delete:", rb_hash_delete, 1);
+  // rb_define_method(rb_cHash, "delete_if", rb_hash_delete_if, 0);
+  // rb_define_method(rb_cHash, "select", rb_hash_select, 0);
+  // rb_define_method(rb_cHash, "reject", rb_hash_reject, 0);
+  // rb_define_method(rb_cHash, "reject!", rb_hash_reject_bang, 0);
+  // rb_define_method(rb_cHash, "clear", rb_hash_clear, 0);
+  // rb_define_method(rb_cHash, "invert", rb_hash_invert, 0);
+
+  // rb_define_method(rb_cHash, "update", rb_hash_update, 1);
+  // rb_define_method(rb_cHash, "replace", rb_hash_replace, 1);
+  // rb_define_method(rb_cHash, "merge!", rb_hash_update, 1);
+  rb_define_method(rb_cHash, "merge:", rb_hash_merge, 1);
+  // rb_define_method(rb_cHash, "assoc", rb_hash_assoc, 1);
+  // rb_define_method(rb_cHash, "rassoc", rb_hash_rassoc, 1);
+  // rb_define_method(rb_cHash, "flatten", rb_hash_flatten, -1);
+};

data/framework/mapings.js

@@ -0,0 +1,86 @@
+/* 
+ * mapings.js
+ * cappruby
+ * 
+ * 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.
+ */
+
+/**
+  Mappings are a port/inspired of the Hotcocoa mappings
+*/
+
+/**
+  Stores all "default" options that can be used by mappings.
+*/
+cr_mappings_defaults_store = nil;
+
+/**
+  Setup the defaults. We do not want to do this until we can use the hash, so we
+  pop it into the Init_x functions call sequences.
+*/
+function cr_mappings_default_init() {
+  cr_mappings_defaults_store = {
+
+    'window': rb_hash_new(
+      // window title
+      ID2SYM("title"), "Window",
+      // frame can be an array, which is automatically converted into a rect
+      ID2SYM("frame"), [100, 100, 400, 500]
+    )
+  };
+};
+
+/**
+  merge default and given options
+  
+  our options need to be merged into our defaults, so our user options will
+  overwrite the defaults where new ones are specified, or use the old ones
+  where they are not specified.
+*/
+function cr_mappings_collate_options(name, options) {
+  var h = new objj_dictionary();
+  rb_hash_merge(h, 'merge', cr_mappings_defaults_store[name]);
+  rb_hash_merge(h, 'merge', options);
+  return h;
+};
+
+/**
+  Once important options have been set, the rest can be applied to any given 
+  object by assuming they have kvo setters to set the properties.
+  
+  Important options should be #delete! from the hash, so when it is given here,
+  they will not be reset.
+*/
+function cr_mappings_set_options(obj, hash) {
+  
+};
+
+/**
+  Initialize mappings. All methods are added to Kernel module to avoid 
+  over populating the Object namespace. (hide from Cappuccino).
+*/
+function Init_Mappings() {
+  // setup defaults.
+  cr_mappings_default_init();
+  Init_Mappings_Window();
+  Init_Mappings_Geometry();
+};

data/framework/method.js

@@ -0,0 +1,120 @@
+/* 
+ * method.js
+ * cappruby
+ * 
+ * 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.
+ */
+
+/**
+  cappruby method. Similar to objj_method, but takes extra "ruby specific" bits
+  and pieces.
+*/
+function cappruby_method_t(name, imp, types) {
+  this.name = name;
+  this.method_imp = imp;
+  this.types = types;
+
+  // this is set to true if the method is a cappruby method
+  this.capprubymethod = true;
+  // arity
+  this.arity = 0;
+};
+
+/**
+  global functions. Some methods in ruby can be defined as "global functions".
+  These all begin with uppercase lettters, and look like constants. All global
+  functions are stored in this table. As an exception for objj, searching for 
+  global functions will first search this table, and then, search the global
+  namespace. This will allow CoreGraphics, CGRect, CPApplicationMain etc all to
+  become available to ruby. Note, with global functions, no "self" property is 
+  used. This allows functions from objj to be seemesly used.
+*/
+rb_global_functions_table = { };
+
+function rb_global_functions_search(id) {
+  if (rb_global_functions_table[id]) {
+    return rb_global_functions_table[id];
+  }
+  // if found in window/global, ensure it is a function.
+  else if (window[id] && typeof window[id] === 'function') {
+    return window[id];
+  }
+  // not found..
+  return nil;
+};
+ 
+/**
+ Search for the method in klass. Additons to objj search are that it searches
+ modules as well, which are attatched to classes via rb_included_modules.
+*/
+function rb_search_method(klass, id) {
+ var m = klass.method_dtable[id];
+
+ if (!m) {
+   // this whole loop is to look for included moduels. method_dtable takes care
+   // of all inherited methods. Also, by definitoons, look at methods on class
+   // before included methods...
+   while (klass) {
+     if (klass.rb_included_modules) {
+       for (var i = 0; i < klass.rb_included_modules.length; i++) {
+         if (m = klass.rb_included_modules[i].method_dtable[id]) {
+           break;
+         }
+       }
+       if (m) break;
+     }
+     klass = klass.super_class;
+   }
+   // if we found it
+   if (m) return m.method_imp;
+   return nil;
+ }
+ // if found straight away..
+ return m.method_imp;
+};
+
+/**
+  If we dont have a .isa property, find out the type of class. We can, for 
+  instance, guess its a rect/point/size etc, and add a .isa property to it for
+  the future. If all else fails, we assume it to be a regular JSON object. In
+  this case, we must return the WrapperJSON class. WrapperJSON does not add a
+  .isa property, as this could muck up json properties of the object (e.g. a
+  property that shouldnt really exist), so the class is a Wrapper class that can
+  interact with any nominal object. CPRect, CPPoint and CPSize .isa properties
+  will be added, as they wont affect the nature of these structs.
+*/
+function rb_find_class_for_obj(obj) {
+  if (obj.hasOwnProperty('size') && obj.hasOwnProperty('origin')) {
+    obj.isa = cr_cRect;
+    return cr_cRect;
+  }
+  else if (obj.hasOwnProperty('width') && obj.hasOwnProperty('height')) {
+    obj.isa = cr_cSize;
+    return cr_cSize;
+  }
+  else if (obj.hasOwnProperty('x') && obj.hasOwnProperty('y')) {
+    obj.isa = cr_cPoint;
+    return cr_cPoint;
+  }
+  console.log(obj);
+  throw "trying to find class for obj - must be JSON, so use JSONWrapper"
+};

data/framework/module.js

@@ -0,0 +1,72 @@
+/* 
+ * module.js
+ * cappruby
+ * 
+ * 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_module_new() {
+  return rb_define_module_id("");
+};
+
+function rb_define_module_id(id) {
+  var m;
+  m = rb_objj_alloc_class(id, rb_cObject, T_MODULE, rb_cModule);
+  return m;
+};
+
+function rb_define_module(id) {
+  var m;
+  if (rb_const_defined(rb_cObject, id)) {
+    m = rb_const_get(rb_cObject, id);
+    // check tyoe
+    return m;
+  }
+  m = rb_define_module_id(id);
+  rb_const_set(rb_cObject, id, m);
+  return m;
+};
+
+/**
+  Objj wont natively support including modules, so instead, modules
+  are added to class's meta classes in an array, so rb_funcall can
+  check there if a method is not found otherwise. This is correct
+  behaviour as methods defined in modules, then included, should 
+  be checked after method defined on a class itself. Note, because
+  we use this, objj_msgSend cannot be used: rb_funcall must be used
+  instead.
+
+  Also, these are stores on the klass in which the module was included.
+  For that reason, the entire inheritance stack must be searched all the
+  way back to CPObject (i.e. no more superclass.)
+
+  This will only happen on module methods, not all the time, so there
+  wont be that much performance impact.
+*/
+function rb_include_module(klass, module) {
+  // make array if not already present
+  if (!klass.rb_included_modules) klass.rb_included_modules = [];
+  // might already be included
+  if (klass.rb_included_modules.indexOf(module) != -1) return;
+  // else, push it on
+  klass.rb_included_modules.push(module);
+};

data/framework/object.js

@@ -0,0 +1,128 @@
+/* 
+ * object.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.
+ */
+
+rb_cObject = nil;
+rb_cBasicObject = nil;
+rb_cModule = nil;
+rb_cClass = nil;
+rb_mKernel = nil;
+
+function rb_basic_obj_alloc(cls, sel) {
+  return class_createInstance(cls);
+};
+
+function rb_module_s_alloc(mod, sel) {
+  return rb_module_new();
+};
+
+function rb_class_s_alloc(cls, sel) {
+  return rb_class_boot();
+};
+
+function rb_f_puts(cls, sel, val) {
+  console.log(val);
+  // CPLog(val);
+  return nil;
+};
+
+function rb_mod_attr_accessor(cls, sel) {
+  var i, a = Array.prototype.slice.call(arguments, 2);
+  for (i = 0; i < a.length; i++) {
+    rb_objj_define_kvo_getter(cls, a[i]);
+    rb_objj_define_kvo_setter(cls, a[i]);
+  }
+  return cls;
+};
+
+function rb_mod_attr_reader(cls, sel) {
+  var i, a = Array.prototype.slice.call(arguments, 2);
+  for (i = 0; i < a.length; i++) {
+    rb_objj_define_kvo_getter(cls, a[i]);
+  }
+  return cls;  
+};
+
+function rb_mod_attr_writer(cls, sel) {
+  var i, a = Array.prototype.slice.call(arguments, 2);
+  for (i = 0; i < a.length; i++) {
+    rb_objj_define_kvo_setter(cls, a[i]);
+  }
+  return cls;  
+};
+
+function rb_objj_define_kvo_setter(cls, id) {
+  id = objj_msgSend(id, "to_s");
+  var k = "set" + id.charAt(0).toUpperCase() + id.substr(1) + ":";
+  rb_define_method(cls, k, function(self, sel, val) {
+    var key = id;
+    return rb_ivar_set(self, key, val);
+  }, 1);
+};
+
+function rb_objj_define_kvo_getter(cls, id) {
+  id = objj_msgSend(id, "to_s");
+  rb_define_method(cls, id, function(self, sel, val) {
+    var key = id;
+    return rb_ivar_get(self, id);
+  }, 0);
+};
+
+function Init_Object() {
+  
+  rb_cObject = objj_getClass("CPObject");
+  rb_const_set(rb_cObject, "Object", rb_cObject);
+  
+  rb_cBasicObject = objj_allocateClassPair(null, 'BasicObject');
+  rb_const_set(rb_cObject, "BasicObject", rb_cBasicObject);
+  rb_define_singleton_method(rb_cBasicObject, "alloc", rb_basic_obj_alloc, 0);
+  
+  rb_cModule = boot_defclass("Module", rb_cObject);
+  rb_cClass = boot_defclass("Class", rb_cModule);
+  
+  rb_define_singleton_method(rb_cModule, "alloc", rb_module_s_alloc, 0);
+  rb_define_singleton_method(rb_cClass, "alloc", rb_class_s_alloc, 0);
+  
+  rb_include_module(rb_cObject.isa, rb_cClass);
+  rb_include_module(rb_cObject.isa, rb_cModule);
+  
+  
+  
+  
+  rb_mKernel = rb_define_module("Kernel");
+  rb_include_module(rb_cObject, rb_mKernel);
+  
+  /**
+    puts is generally called with a single param, so we use a colon-iszed name
+    for quicker lookups (to save having to reaearch without a colon)
+  */
+  rb_define_method(rb_mKernel, "puts:", rb_f_puts, 1);
+  rb_define_method(rb_cModule, "puts:", rb_f_puts, 1);
+  
+  // rb_define_method(rb_cModule, "attr:", rb_mod_attr, -1);
+  rb_define_method(rb_cModule, "attr_reader:", rb_mod_attr_reader, -1);
+  rb_define_method(rb_cModule, "attr_writer:", rb_mod_attr_writer, -1);
+  rb_define_method(rb_cModule, "attr_accessor:", rb_mod_attr_accessor, -1);
+};

data/framework/objj_additions.js

@@ -0,0 +1,84 @@
+/* 
+ * objj_additions.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.
+ */
+
+/**
+  Stuff in here are things that are generally useful, and could be implemented
+  as part of vanilla objj.
+*/ 
+
+/**
+  Types: useful for identifying types of objects: extends CLS, OBJ types.
+*/
+T_CLASS   = 0;
+T_MODULE  = 1;
+T_OBJECT  = 2;
+T_ICLASS  = 3;
+T_STRING  = 4;
+T_ARRAY   = 5;
+T_NUMBER  = 6;
+T_PROC    = 7;
+T_SYMBOL  = 8;
+T_HASH    = 9;
+T_BOOLEAN = 10;
+
+//  type support
+Number.prototype.objj_flags = T_NUMBER;
+Array.prototype.objj_flags = T_ARRAY;
+Boolean.prototype.objj_flags = T_BOOLEAN;
+Function.prototype.objj_flags = T_PROC;
+
+/**
+  CLS_SINGLETON
+  
+  Identifiy objects as singletons (or more specifically, classes)
+  
+  This is also a "nicer" way for handling KVO replacing classes.. makes the idea
+  more generic.
+*/
+CLS_SINGLETON = 0x16;
+
+/**
+  Duplicate class - for now a hack, need to actually do this.
+*/
+function objj_duplicateClass(klass, name) {
+  var c = objj_allocateClassPair(klass, name);
+  
+  objj_registerClassPair(c);
+  _class_initialize(c);
+  return c;
+};
+
+/**
+  Proc/Block/Func
+*/
+@implementation CPBlock : CPObject
+{
+  
+}
+
+@end
+
+Function.prototype.isa = CPBlock;

data/framework/proc.js

@@ -0,0 +1,31 @@
+/* 
+ * proc.js
+ * cappruby
+ * 
+ * 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.
+ */
+
+rb_cProc = nil;
+
+function Init_Proc() {
+  rb_cProc = objj_getClass("CPBlock");
+};