cappruby 0.0.0

data/framework/string.js

@@ -0,0 +1,101 @@
+/* 
+ * string.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_cString = nil;
+rb_cSymbol = nil;
+
+// hash of symbol names to actual sym values. Like ruby, only one object per
+// symbol is created. use ID2SYM to get instance, or make one.
+rb_sym_stack = { };
+
+function ID2SYM(id) {
+  var s = rb_sym_stack[id];
+  if (!s) {
+    s = cr_send(rb_cSymbol, "alloc", [id], nil, 0);
+    s.ptr = id;
+    rb_sym_stack[id] = s;
+  }
+  return s;
+};
+
+function SYM2ID(sym) {
+  return sym.ptr;
+};
+
+function rb_sym_to_s(sym, sel) {
+  return sym.ptr;
+};
+
+function rb_sym_to_sym(sym, sel) {
+  return sym;
+};
+
+function rb_sym_to_proc(sym, sel) {
+  throw "sym#to_proc not uet implemented"
+};
+
+function rb_str_to_s(str, sel) {
+  return new String(str);
+};
+
+function Init_String() {
+  // string
+  rb_cString = objj_getClass("CPString");
+  // rb_include_module(rb_cString, rb_mComparable);
+  
+  rb_define_method(rb_cString, "to_s", rb_str_to_s, 0);
+  
+  // symbol
+  rb_cSymbol = rb_define_class("Symbol", rb_cObject);
+  
+  // 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);
+  // 
+  // rb_define_method(rb_cSymbol, "encoding", rb_sym_encoding, 0);
+};

data/framework/variable.js

@@ -0,0 +1,53 @@
+/* 
+ * variable.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_const_set(klass, id, val) {
+  klass[id] = val;
+};
+
+function rb_const_defined(klass, id) {
+  while (klass) {
+    if (klass[id] !== undefined) return true;
+    klass = klass.super_class;
+  }
+  // try window scope..
+  if (window[id] !== undefined) return true;
+  return false;
+};
+
+function rb_const_get(klass, id) {
+  while (klass) {
+    if (klass[id] !== undefined) return klass[id];
+    klass = klass.super_class;
+  }
+  // try window scope..
+  if (window[id] !== undefined) {
+    // if we find it, pop it into the rb_cObject scope
+    rb_const_set(rb_cObject, id, window[id]);
+    return window[id];
+  }
+  throw "cannot find constant " + id;
+};

data/framework/vm.js

@@ -0,0 +1,176 @@
+/* 
+ * vm.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.
+ */
+
+/**
+  This isnt actually a vm. All the functions in here are what are called in the
+  output in the compiled ruby. They are more efficient and handle the delecate
+  nature of the ruby commands. They adjust the value of self etc to be the right
+  object for the right context;
+  
+  Every method is prepended with cr_ - cappruby.
+*/
+
+/**
+  Global block. Used for passing blocks around functions. We need this as we
+  are not using a stack based runtime. :(
+*/
+cappruby_block = nil;
+
+/**
+  top self context in ruby. All files will be executed with this top self value
+  as "self".
+*/
+cappruby_top_self = nil;
+
+/**
+  Initialize vm
+*/
+function Init_VM() {
+  cappruby_top_self = class_createInstance(rb_cObject);
+};
+
+/**
+  defineclass
+  
+  FIXME: this should really include arity as well.. number or array for complex
+*/
+cr_a = function cr_defineclass(base, super_class, name, body, flag) {
+  var klass;
+  switch (flag) {
+    case 0:
+      if (super_class == nil) super_class = CPObject;
+      klass = rb_define_class(name, super_class);
+      body(klass);
+      break;
+    default:
+      throw "unknwon defineclass type"
+  }
+};
+
+/**
+  definemethod
+*/
+cr_b = function cr_definemethod(base, id, body, is_singleton) {
+  // var m = new cappruby_method_t(id, body, []);
+  // arity? hmm, maybe..
+  if (is_singleton) {
+    throw "cr_b: singleton method not uet implemented"
+  }
+  else {
+    // arity?
+    rb_define_method(base, id, body, -1);
+    // base.method_list.push(m);
+    // base.method_dtable[id] = m;
+    // m.method_imp.displayName = base.name + "#" + id;
+  }
+};
+
+/**
+  send
+  
+  op_flag can be used to detect private calls etc
+*/
+cr_b = function cr_send(recv, id, argv, blockiseq, op_flag) {
+  var imp, klass;
+  
+  // make sure we have a reciever and a class. JSON objects, Rects etc will not
+  // have a ".isa" property. In which case, find one for it.
+  if (recv === nil || recv === undefined) {
+    klass = rb_cNilClass;
+  }
+  else if (!recv.isa) {
+    klass = rb_find_class_for_obj(recv);
+  }
+  else {
+    klass = recv.isa;
+  }
+  
+  imp = rb_search_method(klass, id);
+  // if we could not find it, try it with/without a colon on the end
+  if (!imp) {
+    if (id[id.length -1] == ":") {
+      // already has a colon.. so remove it and try
+    }
+    else {
+      // doesnt have a colon, so add one and try..
+    }
+  }
+  
+  if (!imp) {
+    throw "method missing: " + id
+  }
+  
+  // setup block - might be undefined, nil or null..
+  if (blockiseq != nil) cappruby_block = blockiseq;
+  
+  // do actual send message
+  switch (argv.length) {
+    case 0: return imp(recv, id);
+    case 1: return imp(recv, id, argv[0]);
+    case 2: return imp(recv, id, argv[0], argv[1]);
+    case 3: return imp(recv, id, argv[0], argv[1], argv[2]);
+    case 4: return imp(recv, id, argv[0], argv[1], argv[2], argv[3]);
+    case 5: return imp(recv, id, argv[0], argv[1], argv[2], argv[3], argv[4]);
+    default: throw "currently too many args: " + argv.length + " for " + id
+  }
+};
+
+/**
+  getconstant
+*/
+cr_c = function cr_getconstant(base, id) {
+  // if base is an object, then use its class (base.isa)
+  if (base.isa.info & CLS_CLASS) base = base.isa;
+  return rb_const_get(base, id);
+};
+
+/**
+  functioncall
+*/
+cr_d = function cr_functioncall(id, argv) {
+  throw "doing " + id
+};
+
+/**
+  newhash
+*/
+cr_e = function cr_newhash() {
+  return rb_hash_new.apply(rb_hash_new, arguments);
+};
+
+/**
+  yield a block
+  
+  argv in array
+  
+  need to wrap in a try block. return/break etc from block/yield is different
+  from a proc. if we are a proc, then we need to catch breaks/returns... this
+  might/should be done in proc#call ?
+*/
+cr_y = function cr_yield(block, argv) {
+  if (block == nil) throw "no block given..."
+  return block.apply(block, argv);
+};

data/framework/window.js

@@ -0,0 +1,68 @@
+/* 
+ * window.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.
+ */
+ 
+/**
+ window :title => "Adam", :frame => [100, 300] do |win|
+   ...
+ end
+
+ Block is optional, and if given, the created window is passed. A set of 
+ default options are used to "setup" the window in a default state.
+*/
+function cr_mappings_window(self, sel, options) {
+  var _$ = cappruby_block; cappruby_block = nil;
+  var h = cr_mappings_collate_options('window', options);
+
+  var win = objj_msgSend(objj_msgSend(CPWindow, "alloc"), "initWithContentRect:styleMask:", CGRectMake(100,100,400,300), CPTitledWindowMask);
+
+  objj_msgSend(win, "setTitle:", rb_hash_delete(h, 'delete:', ID2SYM("title")));
+
+  if(_$) { // if block given
+    cr_yield(_$, [win]);
+  }
+
+  objj_msgSend(win, "orderFront:", self);
+
+  return win;
+};
+
+/**
+  CPWindow#<<(subview)
+  CPWindow#addSubview(subview)
+  
+  Add a subview to the windows' contentView.
+*/
+function cr_window_add_subview(win, sel, view) {
+  var content_view = objj_msgSend(win, "contentView");
+  objj_msgSend(content_view, "addSubview:", view);
+  return view;
+};
+
+function Init_Mappings_Window() {
+  rb_define_method(rb_mKernel, "window:", cr_mappings_window, 1);
+  rb_define_method(CPWindow, "<<", cr_window_add_subview, 1);
+  rb_define_method(CPWindow, "addSubview:", cr_window_add_subview, 1);
+};

data/lib/cappruby/app_builder.rb

@@ -0,0 +1,135 @@
+# 
+# app_builder.rb
+# 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.
+#
+
+module CappRuby
+  
+  class AppBuilder
+    
+    attr_reader :app_root, :app_name, :app_title, :build_options
+    
+    def initialize(args)
+      @app_root = Dir.getwd
+      @app_name = File.basename(@app_root)
+      @app_title = (@app_name.split('_').collect { |p| p.capitalize }).join ' '
+      
+      unless File.exist? 'config/build.yml'
+        puts "Missing config/build.yml file. Sure this is an application dir?"
+        exit
+      end
+      
+      @build_options = YAML.load_file('config/build.yml')
+    end
+    
+    def build_dir
+      @build_dir ||= File.join(@app_root, 'build')
+    end
+    
+    def build!
+      # also rebuild CappRuby framework (for now)
+      FrameworkBuilder.new.build!
+      FileUtils.mkdir_p build_dir
+      write_info_plist_file
+      write_main_j_file
+      write_index_html_file
+    
+      File.symlink(File.join(@app_root, 'frameworks'), File.join(build_dir, 'Frameworks')) unless File.exist? File.join(build_dir, 'Frameworks')
+    end
+    
+    def info_plist_file
+      File.join(build_dir, 'Info.plist')
+    end
+    
+    def write_info_plist_file
+      File.open(info_plist_file, 'w') do |f|
+        f.puts %{<?xml version="1.0" encoding="UTF-8"?>}
+        f.puts %{<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">}
+        f.puts %{<plist version="1.0">}
+        f.puts %{<dict>}
+        f.puts %{  <key>CPApplicationDelegateClass</key>}
+      	f.puts %{  <string>AppController</string>}
+      	f.puts %{  <key>CPBundleName</key>}
+      	f.puts %{  <string>#{app_name}</string>}
+      	f.puts %{  <key>CPPrincipalClass</key>}
+      	f.puts %{  <string>CPApplication</string>}
+        f.puts %{</dict>}
+        f.puts %{</plist>}
+      end
+    end
+    
+    def main_j_file
+      File.join(build_dir, 'main.j')
+    end
+    
+    def write_main_j_file
+      File.open(main_j_file, 'w') do |f|
+        f.puts %{@import <Foundation/Foundation.j>}
+        f.puts %{@import <AppKit/AppKit.j>}
+        f.puts %{@import <CappRuby/CappRuby.j>}
+        
+        f.puts %{function main(args, namedArgs) \{}
+        f.puts %{cappruby_main("/lib/application.rb", args, namedArgs);}
+        f.puts %{\};}
+        
+        # now we need to write all .rb files (in opal compatible way)
+        rb_sources = File.join(app_root, 'lib', '**', '*.rb')
+        Dir.glob(rb_sources).each do |rb|
+          name = /^#{app_root}(.*)$/.match(rb)[1]
+          b = RubyBuilder.new(rb, self, name)
+          c = b.build!
+          f.puts %{cappruby_file("#{name}", #{c});}
+        end
+      end
+    end
+    
+    def index_html_file
+      File.join(build_dir, 'index.html')
+    end
+    
+    def write_index_html_file
+      File.open(index_html_file, 'w') do |f|
+        f.puts %{<?xml version="1.0" encoding="UTF-8"?>}
+        f.puts %{<!DOCTYPE html
+            PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
+            "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">}
+        f.puts %{<html xmlns = "http://www.w3.org/1999/xhtml" xml:lang = "en" lang = "en">}
+        f.puts %{<head>}
+        f.puts %{<meta http-equiv="X-UA-Compatible" content="IE-EmulateIE7" />}
+        f.puts %{<title>#{app_title}</title>}
+        f.puts %{<script type="text/javascript">}
+        f.puts %{OBJJ_MAIN_FILE = "main.j"}
+        f.puts %{</script>}
+        f.puts %{<script src = "Frameworks/Objective-J/Objective-J.js" type = "text/javascript"></script>}
+        f.puts %{<style type = "text/css">}
+        f.puts %{body{margin:0; padding:0;}}
+        f.puts %{</style>}
+        f.puts %{</head>}
+        f.puts %{<body>}
+        f.puts %{</body>}
+        f.puts %{</html>}
+      end
+    end
+  end
+end

data/lib/cappruby/framework_builder.rb

@@ -0,0 +1,60 @@
+# 
+# framework.rb
+# 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.
+#
+
+module CappRuby
+  
+  # class used for building CappRuby framework
+  class FrameworkBuilder
+    
+    attr_reader :build_dir
+    
+    def initialize
+      @app_root = Dir.getwd
+      @build_dir = File.join(Dir.getwd, 'frameworks', 'CappRuby')
+    end
+    
+    def build!
+      FileUtils.mkdir_p build_dir
+      write_cappruby_j_file
+    end
+    
+    def cappruby_j_file
+      File.join(build_dir, 'CappRuby.j')
+    end
+    
+    def write_cappruby_j_file
+      File.open cappruby_j_file, 'w' do |f|
+        sources = File.join(ROOTPATH, 'framework', '**', '*.js')
+        Dir.glob(sources).each do |s|
+          i = File.read(s)
+          # should really minify
+          f.puts i
+        end
+      end
+    end
+    
+  end
+end