hotcocoa 0.5

data/History.txt

@@ -0,0 +1,4 @@
+=== 0.0.1 2009-11-07
+
+* 1 major enhancement:
+  * Initial release

data/bin/hotcocoa

@@ -0,0 +1,31 @@
+#!/usr/bin/env macruby
+
+project_name = ARGV.shift
+
+if project_name.nil? or project_name == "--help" or project_name =="-h"
+  puts "Usage: hotcocoa <project name>"
+  exit
+end
+
+if File.exist?(project_name)
+  if File.extname(project_name) == ".rb"
+    file_to_copy = project_name
+    project_name = project_name[0..-4]
+  else
+    puts %{Error: "#{project_name}" already exists in this directory.}
+    exit
+  end
+else
+  file_to_copy = nil
+end
+
+require 'hotcocoa/template'
+HotCocoa::Template.copy_to(project_name, project_name.split("_").collect(&:capitalize).join(" "))
+
+if file_to_copy
+  lib_dir     = File.join(project_name, "lib")
+  File.open(File.join(lib_dir, "application.rb"), "w") do |file|
+    file.write File.read(file_to_copy)
+  end
+end
+

data/lib/hotcocoa/application_builder.rb

@@ -0,0 +1,320 @@
+framework 'Foundation'
+
+require 'fileutils'
+
+module HotCocoa
+  
+  class ApplicationBuilder
+    
+    class Configuration
+      
+      attr_reader :name, :version, :icon, :resources, :sources, :info_string, :load
+      
+      def initialize(file)
+        require 'yaml'
+        yml = YAML.load(File.read(file))
+        @name = yml["name"]
+        @load = yml["load"]
+        @version = yml["version"] || "1.0"
+        @icon = yml["icon"]
+        @info_string = yml["info_string"]
+        @sources = yml["sources"] || []
+        @resources = yml["resources"] || []
+        @overwrite = yml["overwrite"] == true ? true : false
+        @secure = yml["secure"] == true ? true : false
+      end
+      
+      def overwrite?
+        @overwrite
+      end
+
+      def secure?
+        @secure
+      end
+      
+      def icon_exist?
+        @icon ? File.exist?(@icon) : false
+      end
+
+    end
+    
+    ApplicationBundlePackage = "APPL????"
+    
+    attr_accessor :name, :load_file, :sources, :overwrite, :icon, :version, :info_string, :secure, :resources, :deploy
+    
+    def self.build(config, options={:deploy => false})
+      if !config.kind_of?(Configuration) || !$LOADED_FEATURES.detect {|f| f.include?("standard_rake_tasks")}
+        require 'rbconfig'
+        puts "Your Rakefile needs to be updated.  Please copy the Rakefile from:"
+        puts File.expand_path(File.join(Config::CONFIG['datadir'], "hotcocoa_template", "Rakefile"))
+        exit
+      end
+      builder = new
+      builder.deploy = options[:deploy] == true ? true : false
+      builder.secure = config.secure?
+      builder.name = config.name
+      builder.load_file = config.load
+      builder.icon = config.icon if config.icon_exist?
+      builder.version = config.version
+      builder.info_string = config.info_string
+      builder.overwrite = config.overwrite?
+      config.sources.each do |source|
+        builder.add_source_path source
+      end
+      config.resources.each do |resource|
+        builder.add_resource_path resource
+      end
+      builder.build
+    end
+
+    # Used by the "Embed MacRuby" Xcode target.
+    def self.deploy(path)
+      raise "Given path `#{path}' does not exist" unless File.exist?(path)
+      raise "Given path `#{path}' does not look like an application bundle" unless File.extname(path) == '.app'
+      deployer = new
+      Dir.chdir(File.dirname(path)) do
+        deployer.name = File.basename(path, '.app') 
+        deployer.deploy
+      end
+    end
+
+    def initialize
+      @sources = []
+      @resources = []
+    end
+      
+    def build
+      check_for_bundle_root
+      build_bundle_structure
+      write_bundle_files
+      copy_sources
+      copy_resources
+      deploy if deploy?
+      copy_icon_file if icon
+    end
+   
+    def deploy 
+      copy_framework
+    end
+
+    def deploy?
+      @deploy
+    end
+    
+    def overwrite?
+      @overwrite
+    end
+    
+    def add_source_path(source_file_pattern)
+      Dir.glob(source_file_pattern).each do |source_file|
+        sources << source_file
+      end
+    end
+
+    def add_resource_path(resource_file_pattern)
+      Dir.glob(resource_file_pattern).each do |resource_file|
+        resources << resource_file
+      end
+    end
+    
+    def secure?
+      secure
+    end
+    
+    private
+    
+      def check_for_bundle_root
+        if File.exist?(bundle_root) && overwrite?
+          `rm -rf #{bundle_root}`
+        end
+      end
+    
+      def build_bundle_structure
+        Dir.mkdir(bundle_root) unless File.exist?(bundle_root)
+        Dir.mkdir(contents_root) unless File.exist?(contents_root)
+        Dir.mkdir(frameworks_root) unless File.exist?(frameworks_root)
+        Dir.mkdir(macos_root) unless File.exist?(macos_root)
+        Dir.mkdir(resources_root) unless File.exist?(resources_root)
+      end
+      
+      def write_bundle_files
+        write_pkg_info_file
+        write_info_plist_file
+        build_executable unless File.exist?(File.join(macos_root, objective_c_executable_file))
+        write_ruby_main
+      end
+      
+      def copy_framework
+        unless File.exist?(File.join(frameworks_root, 'MacRuby.framework'))
+          FileUtils.mkdir_p frameworks_root 
+          FileUtils.cp_r macruby_framework_path, frameworks_root
+        end
+        `install_name_tool -change #{current_macruby_path}/usr/lib/libmacruby.dylib @executable_path/../Frameworks/MacRuby.framework/Versions/#{current_macruby_version}/usr/lib/libmacruby.dylib '#{macos_root}/#{objective_c_executable_file}'`
+      end
+      
+      def copy_sources
+        if secure?
+          data = {}
+          data["/"+load_file] = File.open(load_file, "r") {|f| f.read}
+          sources.each do |source|
+            data["/"+source] = File.open(source, "r") {|f| f.read}
+          end
+          File.open(File.join(resources_root, "vfs.db"), "wb") do |db|
+            db.write Marshal.dump(data)
+          end
+        else
+          FileUtils.cp_r load_file, resources_root unless sources.include?(load_file)
+          sources.each do |source|
+            destination = File.join(resources_root, source)
+            FileUtils.mkdir_p(File.dirname(destination)) unless File.exist?(File.dirname(destination))
+            FileUtils.cp_r source, destination
+          end
+        end
+      end
+      
+      def copy_resources
+        resources.each do |resource|
+          destination = File.join(resources_root, resource.split("/")[1..-1].join("/"))
+          FileUtils.mkdir_p(File.dirname(destination)) unless File.exist?(File.dirname(destination))
+          FileUtils.cp_r resource, destination
+        end
+      end
+      
+      def copy_icon_file
+        FileUtils.cp(icon, icon_file) unless File.exist?(icon_file)
+      end
+      
+      def write_pkg_info_file
+        File.open(pkg_info_file, "wb") {|f| f.write ApplicationBundlePackage}
+      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>CFBundleDevelopmentRegion</key>}
+          f.puts %{ <string>English</string>}
+          f.puts %{ <key>CFBundleIconFile</key>} if icon
+          f.puts %{ <string>#{name}.icns</string>} if icon
+          f.puts %{ <key>CFBundleGetInfoString</key>} if info_string
+          f.puts %{ <string>#{info_string}</string>} if info_string
+          f.puts %{	<key>CFBundleExecutable</key>}
+          f.puts %{	<string>#{name.gsub(/ /, '')}</string>}
+          f.puts %{	<key>CFBundleIdentifier</key>}
+          f.puts %{	<string>com.yourcompany.#{name}</string>}
+          f.puts %{	<key>CFBundleInfoDictionaryVersion</key>}
+          f.puts %{	<string>6.0</string>}
+          f.puts %{	<key>CFBundleName</key>}
+          f.puts %{	<string>#{name}</string>}
+          f.puts %{	<key>CFBundlePackageType</key>}
+          f.puts %{	<string>APPL</string>}
+          f.puts %{	<key>CFBundleSignature</key>}
+          f.puts %{	<string>????</string>}
+          f.puts %{	<key>CFBundleVersion</key>}
+          f.puts %{	<string>#{version}</string>}
+          f.puts %{	<key>NSPrincipalClass</key>}
+          f.puts %{	<string>NSApplication</string>}
+          f.puts %{</dict>}
+          f.puts %{</plist>}
+        end
+      end
+      
+      def build_executable
+        File.open(objective_c_source_file, "wb") do |f| 
+          f.puts %{
+            
+            #import <MacRuby/MacRuby.h>
+
+            int main(int argc, char *argv[])
+            {
+                return macruby_main("rb_main.rb", argc, argv);
+            }
+          }
+        end
+        archs = RUBY_ARCH.include?('ppc') ? '-arch ppc' : '-arch i386 -arch x86_64'
+        puts `cd "#{macos_root}" && gcc main.m -o #{objective_c_executable_file} #{archs} -framework MacRuby -framework Foundation -fobjc-gc-only`
+        File.unlink(objective_c_source_file)
+      end
+      
+      def write_ruby_main
+        File.open(main_ruby_source_file, "wb") do |f|
+          if secure?
+            require 'hotcocoa/virtual_file_system'
+            f.puts VirtualFileSystem.code_to_load(load_file)
+          else
+            f.puts "$:.map! { |x| x.sub(/^\\/Library\\/Frameworks/, NSBundle.mainBundle.privateFrameworksPath) }" if deploy?
+            f.puts "$:.unshift NSBundle.mainBundle.resourcePath.fileSystemRepresentation"
+            f.puts "load '#{load_file}'"
+          end
+        end
+      end
+      
+      def bundle_root
+        "#{name}.app"
+      end
+      
+      def contents_root
+        File.join(bundle_root, "Contents")
+      end
+
+      def frameworks_root
+        File.join(contents_root, "Frameworks")
+      end
+      
+      def macos_root
+        File.join(contents_root, "MacOS")
+      end
+      
+      def resources_root
+        File.join(contents_root, "Resources")
+      end
+
+      def bridgesupport_root
+        File.join(resources_root, "BridgeSupport")
+      end
+      
+      def info_plist_file
+        File.join(contents_root, "Info.plist")
+      end
+      
+      def icon_file
+        File.join(resources_root, "#{name}.icns")
+      end
+      
+      def pkg_info_file
+        File.join(contents_root, "PkgInfo")
+      end
+      
+      def objective_c_executable_file
+        name.gsub(/ /, '')
+      end
+      
+      def objective_c_source_file
+        File.join(macos_root, "main.m")
+      end
+      
+      def main_ruby_source_file
+        File.join(resources_root, "rb_main.rb")
+      end
+      
+      def current_macruby_version
+        NSFileManager.defaultManager.pathContentOfSymbolicLinkAtPath(File.join(macruby_versions_path, "Current"))
+      end
+      
+      def current_macruby_path
+        File.join(macruby_versions_path, current_macruby_version)
+      end
+      
+      def macruby_versions_path
+        File.join(macruby_framework_path, "Versions")
+      end
+      
+      def macruby_framework_path
+        "/Library/Frameworks/MacRuby.framework"
+      end
+
+  end
+  
+end

data/lib/hotcocoa/attributed_string.rb

@@ -0,0 +1,143 @@
+module HotCocoa
+    class NSRangedProxyAttributeHash
+	ATTRIBUTE_KEYS = { :font => NSFontAttributeName,
+	                   :paragraph_style => NSParagraphStyleAttributeName,
+                           :color => NSForegroundColorAttributeName,
+			   :underline_style => NSUnderlineStyleAttributeName,
+			   :superscript => NSSuperscriptAttributeName,
+			   :background_color => NSBackgroundColorAttributeName,
+			   :attachment => NSAttachmentAttributeName,
+			   :ligature => NSLigatureAttributeName,
+			   :baseline_offset => NSBaselineOffsetAttributeName,
+			   :kerning => NSKernAttributeName,
+			   :link => NSLinkAttributeName,
+			   :stroke_width => NSStrokeWidthAttributeName,
+			   :stroke_color => NSStrokeColorAttributeName,
+			   :underline_color => NSUnderlineColorAttributeName,
+			   :strikethrough_style => NSStrikethroughStyleAttributeName,
+			   :strikethrough_color => NSStrikethroughColorAttributeName,
+			   :shadow => NSShadowAttributeName,
+			   :obliqueness => NSObliquenessAttributeName,
+			   :expansion_factor => NSExpansionAttributeName,
+			   :cursor => NSCursorAttributeName,
+			   :tool_tip => NSToolTipAttributeName,
+			   :character_shape => NSCharacterShapeAttributeName,
+			   :glyph_info => NSGlyphInfoAttributeName,
+			   :marked_clause_segment => NSMarkedClauseSegmentAttributeName,
+			   :spelling_state => NSSpellingStateAttributeName }
+
+
+	def initialize(proxy)
+	    @proxy = proxy
+	end
+
+	def [](k)
+	    k = attribute_for_key(k)
+	    @proxy.string.attribute(k, atIndex:@proxy.range.first, effectiveRange:nil)
+	end
+
+	def []=(k,v)
+	    k = attribute_for_key(k)
+	    @proxy.string.removeAttribute(k, range:@proxy.range.to_NSRange(@proxy.string.length - 1))
+	    @proxy.string.addAttribute(k, value:v, range:@proxy.range.to_NSRange(@proxy.string.length - 1))
+	end
+
+	def <<(attributes)
+	    attributes.each_pair do |k, v|
+		self[k] = v
+	    end
+	    self
+	end
+	alias :merge :<<
+
+	def to_hash
+	    @proxy.string.attributesAtIndex(@proxy.range.first, effectiveRange:nil).inject({}) do |h, pair|
+		h[key_for_attribute(pair.first)] = pair.last
+		h
+	    end
+	end
+
+	def inspect
+	    to_hash.inspect
+	end
+
+	private
+	def key_for_attribute(attribute)
+	    (ATTRIBUTE_KEYS.select { |k,v| v == attribute }.first || [attribute]).first
+	end
+
+	def attribute_for_key(key)
+	    ATTRIBUTE_KEYS[key] || key
+	end
+    end
+
+    class NSRangedProxyAttributedString
+	attr_reader :string, :range
+	def initialize(string, range)
+	    @string = string
+	    @range = range
+	end
+
+	def attributes
+	    NSRangedProxyAttributeHash.new(self)
+	end
+    end
+end
+
+class String
+    def with_attributes(attributes = {})
+	attributed_string = NSMutableAttributedString.alloc.initWithString(self)
+	attributed_string.attributes << attributes
+	attributed_string
+    end
+end
+
+class Range
+    def to_NSRange(max = nil)
+	location = first
+	if last == -1 and max
+	    length = max - first + 1
+	else
+	    length = last - first + 1
+	end
+	NSRange.new(location, length)
+    end
+end
+
+class NSMutableAttributedString
+    def with_attributes(attributes = {})
+	string.with_attributes(attributes)
+    end
+
+    def <<(s)
+	case s
+	when String
+	    mutableString.appendString s
+	else
+	    appendAttributedString s
+	end
+    end
+
+    def +(s)
+	attributed_string = mutableCopy
+	attributed_string << s
+	attributed_string
+    end
+
+    def attributes
+	HotCocoa::NSRangedProxyAttributedString.new(self, 0..-1).attributes
+    end
+
+    def [](r)
+	HotCocoa::NSRangedProxyAttributedString.new(self, r)
+    end
+
+    def []=(r, s)
+	case s
+	when String
+	    replaceCharactersInRange(r.to_NSRange(length - 1), :withString => s)
+	else
+	    replaceCharactersInRange(r.to_NSRange(length - 1), :withAttributedString => s)
+	end
+    end
+end

data/lib/hotcocoa/behaviors.rb

@@ -0,0 +1,7 @@
+module HotCocoa
+  module Behaviors
+    def Behaviors.included(klass)
+      Mappings::Mapper.map_class(klass)
+    end 
+  end
+end

data/lib/hotcocoa/data_sources/combo_box_data_source.rb

@@ -0,0 +1,44 @@
+module HotCocoa
+  class ComboBoxDataSource
+    attr_reader :data
+
+    def initialize(data)
+      @data = data
+    end
+    
+    def comboBox(combo_box, completedString:string)
+      data.length.times do |index|
+        value = string_value_of_index(index)
+        return value if value.start_with?(string)
+      end
+      nil
+    end
+    
+    def comboBox(combo_box, indexOfItemWithStringValue:string)
+      data.length.times do |index|
+        return index if string_value_of_index(index) == string
+      end
+      NSNotFound
+    end
+    
+    def comboBox(combo_box, objectValueForItemAtIndex:index)
+      string_value_of_index(index)
+    end
+    
+    def numberOfItemsInComboBox(combo_box)
+      data.length
+    end
+    
+    private
+    
+      def string_value_of_index(i)
+        item = data[i]
+        if item.kind_of?(Hash)
+          item.values.first
+        else
+          item.to_s
+        end
+      end
+
+  end
+end

data/lib/hotcocoa/data_sources/table_data_source.rb

@@ -0,0 +1,18 @@
+module HotCocoa
+  class TableDataSource
+    attr_reader :data
+
+    def initialize(data)
+      @data = data
+    end
+
+    def numberOfRowsInTableView(tableView)
+      data.length
+    end
+
+    def tableView(view, objectValueForTableColumn:column, row:i)
+      data[i][column.identifier.intern]
+    end
+
+  end
+end

data/lib/hotcocoa/delegate_builder.rb

@@ -0,0 +1,85 @@
+module HotCocoa
+    
+  class DelegateBuilder
+    
+    attr_reader :control, :delegate, :method_count, :required_methods
+    
+    def initialize(control, required_methods)
+      @control = control
+      @required_methods = required_methods
+      @method_count = 0
+      @delegate = Object.new
+    end
+    
+    def add_delegated_method(block, selector_name, *parameters)
+      clear_delegate if required_methods.empty?
+      increment_method_count
+      bind_block_to_delegate_instance_variable(block)
+      create_delegate_method(selector_name, parameters)
+      set_delegate if required_methods.empty?
+    end
+    
+    def delegate_to(object, *method_names)
+      method_names.each do |method_name|
+        control.send(method_name, &object.method(method_name)) if object.respond_to?(method_name)
+      end
+    end
+    
+    private 
+    
+      def increment_method_count
+        @method_count += 1
+      end
+      
+      def bind_block_to_delegate_instance_variable(block)
+        delegate.instance_variable_set(block_instance_variable, block)
+      end
+      
+      def create_delegate_method(selector_name, parameters)
+        required_methods.delete(selector_name)
+        eval %{
+          def delegate.#{parameterize_selector_name(selector_name)}
+            #{block_instance_variable}.call(#{parameter_values_for_mapping(selector_name, parameters)})
+          end
+        }
+      end
+      
+      def clear_delegate
+        control.setDelegate(nil) if control.delegate
+      end
+      
+      def set_delegate
+        control.setDelegate(delegate)
+      end
+      
+      def block_instance_variable
+        "@block#{method_count}"
+      end
+    
+      def parameterize_selector_name(selector_name)
+        return selector_name unless selector_name.include?(":")
+        params = selector_name.split(":")
+        result = "#{params.shift}(p1"
+        params.each_with_index do |param, i|
+          result << ", #{param}:p#{i+2}"
+        end
+        result + ")"
+      end
+      
+      def parameter_values_for_mapping(selector_name, parameters)
+        return if parameters.empty?
+        result = []
+        selector_params = selector_name.split(":")
+        parameters.each do |parameter|
+          if (dot = parameter.index("."))
+            result << "p#{selector_params.index(parameter[0...dot])+1}#{parameter[dot..-1]}"
+          else
+            result << "p#{selector_params.index(parameter)+1}"
+          end
+        end
+        result.join(", ")
+      end
+    
+  end
+  
+end