cocoa 0.1.2 → 0.1.3

data/lib/cocoa/objc.rb

@@ -22,4 +22,266 @@ module ObjC
     end
     send(method, id, selector, *args )
   end
+
+  def self.String_to_NSString( string )
+    nsstring_class = objc_getClass("NSString")
+    msgSend(nsstring_class, "stringWithUTF8String:", :string, string )
+  end
+ 
+  def self.NSString_to_String( nsstring_pointer )
+    c_string = msgSend( nsstring_pointer, "UTF8String")
+    if c_string.null?
+      return "(NULL)"
+    else
+      return c_string.read_string()
+    end
+  end
+
+  def self.object_to_instance ret
+    klass_name = NSString_to_String(Cocoa::NSStringFromClass(ObjC.msgSend(ret,"class")))
+    return self if klass_name == '(NULL)'
+    instance = begin
+      ("Cocoa::"+klass_name).constantize.new(true)
+    rescue
+      klass_name = if klass_name =~ /^__NSCF/
+        "NS#{klass_name[6..-1]}" 
+      elsif klass_name[0]=='_'
+        "FIX_#{klass_name}" 
+      else
+        klass_name
+      end
+      klass = begin
+        Cocoa.const_get(klass_name)
+      rescue => e
+        superclass_name = NSString_to_String(Cocoa::NSStringFromClass(ObjC.msgSend(ret,'superclass')))
+        superclass = "Cocoa::#{superclass_name}".constantize
+        proxy = Class.new(superclass)
+        Cocoa.const_set(klass_name, proxy)
+        klass = ("Cocoa::"+klass_name).constantize
+        superclass.inherited(klass)
+        klass
+      end
+      klass.new(true)
+    end
+    instance.object = ret
+    instance
+  end
+
+  def self.translate_retval method,ret,type
+    case type
+    when '@'
+      return nil if ret.address == 0
+      return ret if method == :NSStringFromClass
+      object_to_instance ret
+    when '#'
+      ret
+    when /^{([^=]*)=.*}$/
+      ret
+    when /^\^{[^=]*=.*}$/
+      return nil if ret.address == 0
+      object_to_instance ret
+    else
+      raise type
+    end
+  end
+
+  def self.fixed_args args,params={},types=[],options={}
+    if options[:variadic]
+      _types = (types.dup*args.size)
+      args
+    else
+      _types = types.dup
+      ([args.first]+params.values)
+    end.map do |arg|
+      type = _types.shift
+      case arg
+      when TrueClass, FalseClass
+        [:bool,arg]
+      when Fixnum, Bignum
+        case type
+        when 'q'
+          [:long_long,arg]
+        when 'Q'
+          [:ulong_long,arg]
+        when 'd'
+          [:double,arg]
+        else
+          raise type.inspect
+        end
+      when Float
+        [:double,arg]
+      when String
+        [:pointer,ObjC.String_to_NSString(arg)]
+      when NilClass
+        [:pointer,nil]
+      when Symbol
+        [:pointer,ObjC.sel_registerName("#{arg}:")]
+      when Cocoa::NSObject
+        [:pointer,arg.object]
+      when FFI::Struct
+        [arg.class.by_value,arg]
+      when FFI::Pointer
+        [:pointer,arg]
+      else
+        raise ArgumentError.new("#{arg.class.name}: #{arg.inspect}")
+      end
+    end.flatten
+  end
+
+  def self.apple_type_to_ffi type
+    # TODO: These are just stubbed on guess - check'em'all
+    case type
+    when 'C'
+      :uchar
+    when '@'
+      :pointer
+    when '#'
+      :pointer
+    when 'Q'
+      :int
+    when ':'
+      :pointer
+    when 'I'
+      :int
+    when 'L'
+      :int
+    when 'd'
+      :double
+    when 'f'
+      :float
+    when 'i'
+      :int
+    when 's'
+      :int
+    when 'q'
+      :long_long
+    when 'S'
+      :int
+    when /^\^/
+      :pointer
+    when 'B'
+      :bool
+    when 'v'
+      :void
+    when '[5*]'
+      :void
+    when /^{[^=]*=.*}$/
+      begin
+        /^{_*([^=]*)=.*}$/.match(type)[1].constantize.by_value
+      rescue => e
+        begin
+          "Cocoa::#{/^{_*([^=]*)=.*}$/.match(type)[1]}".constantize.by_value
+        rescue => e
+          match = /^{_*([^=]*)=(.*)}$/.match(type)
+          klass = begin
+            Cocoa.const_get(match[1])
+          rescue
+            # puts "defining struct Cocoa::#{match[1]} as #{match[2]}"
+            # this stuff doesnt work with jruby
+            klass = Class.new(FFI::Struct)
+            Cocoa.const_set(match[1], klass)
+            name = 'a'
+            layout = []
+            match[2].each_char do |c|
+              case c
+              when 'd'
+                layout << name.to_sym
+                name = name.next
+                layout << :double
+              end
+            end
+            klass = "Cocoa::#{match[1]}".constantize
+            klass.layout *layout
+            klass
+          end
+          klass.by_ref
+        end
+      end
+    when nil
+      :void
+    when '*' # character string
+      :pointer
+    when '@?'
+      :pointer
+    else
+      raise type.inspect
+    end
+  end
+
+  def self.objc_type type,default='i'
+    case type
+    when nil
+      default
+    when '@'
+      type
+    when 'v'
+      type
+    when /^{([^=]*)=.*}$/
+      type
+    else
+      raise type.inspect
+    end
+  end
+
+  def self.call_arguments params,args
+    fixed_args = []
+    args.each_with_index do |arg,i|
+      case params[:types][i]
+      when '@'
+        fixed_args << arg
+      when 'd'
+        if arg.is_a?(Fixnum)
+          fixed_args << arg.to_f
+        else
+          raise ArgumentError.new("float expected, got #{arg.class.name}") unless arg.is_a?(Float)
+          fixed_args << arg
+        end
+      when 'I'
+        raise ArgumentError unless arg.is_a?(Fixnum)
+        fixed_args << arg
+      when 'Q'
+        raise ArgumentError.new(arg.inspect) unless arg.is_a?(Fixnum)
+        fixed_args << arg
+      when 'q'
+        raise ArgumentError unless arg.is_a?(Fixnum)
+        fixed_args << arg
+      when '#'
+        raise ArgumentError unless arg.is_a?(FFI::Pointer)
+        fixed_args << arg
+      when /^{[^=]*=.*}$/
+        raise ArgumentError.new(arg.inspect) unless arg.kind_of?(FFI::Struct)
+        fixed_args << arg
+      when /^\^{([^=]*)=.*}$/
+        case arg
+        when FFI::Pointer
+          fixed_args << arg
+        when Array
+          raise ArgumentError unless $1 == '__CFArray'
+          fixed_args << NSArray.arrayWithObjects(arg).object
+        else
+          match = $1
+          if arg.class.name =~ /^Cocoa::/ # "Cocoa::#{$1}".constantize
+            fixed_args << arg.object
+          elsif arg.is_a?(NilClass)
+            fixed_args << FFI::MemoryPointer::NULL
+          elsif arg.is_a?(String) && match == '__CFString'
+            fixed_args << Cocoa::String_to_NSString(arg)
+          else
+            raise ArgumentError.new("expected #{params[:types][i]} got #{arg.class.name} (#{match})")
+          end
+        end
+      when '^d'
+        raise ArgumentError unless arg.is_a?(Array)
+        arr = FFI::MemoryPointer.new(:double,arg.size)
+        arr.write_array_of_double(arg)
+        fixed_args << arr
+      when '^v'
+        raise ArgumentError unless arg.is_a?(NilClass)
+        fixed_args << FFI::MemoryPointer::NULL
+      else
+        raise params[:types][i]
+      end
+    end
+    fixed_args
+  end
 end

data/lib/cocoa/structs/NSPoint.rb

@@ -14,4 +14,10 @@ module Cocoa
   end
 
   NSPoint = CGPoint
+
+  def NSMakePoint x,y
+    CGPoint.new(x: x, y: y)
+  end
+
+  NSZeroPoint = CGPoint.new(x: 0, y: 0)
 end

data/lib/cocoa/structs/NSRange.rb

@@ -0,0 +1,23 @@
+module Cocoa
+  class CFRange < FFI::Struct
+    def initialize *args
+      options = args.first
+      if options.is_a? Hash
+        self[:location] = options[:location]
+        self[:length]   = options[:length]
+      else
+        super *args
+      end
+    end
+    def to_s
+      "<CFRange: #{self[:location]} #{self[:length]}>"
+    end
+    layout :location, :long_long, :length, :long_long
+  end
+
+  NSRange = CFRange
+
+  def CFRangeMake loc,len
+    CFRange.new(location: loc, length: len)
+  end
+end

data/lib/cocoa/structs/NSRect.rb

@@ -16,4 +16,10 @@ module Cocoa
   end
 
   NSRect = Cocoa::CGRect
+
+  def CGRectMake x,y,width,height
+    CGRect.new(x: x, y: y, width: width, height: height)
+  end
+
+  NSZeroRect = CGRect.new(x: 0, y: 0, width: 0, height: 0)
 end

data/lib/cocoa/structs/NSSize.rb

@@ -14,4 +14,8 @@ module Cocoa
   end
 
   NSSize = CGSize
+
+  def NSMakeSize width,height
+    CGSize.new(width: width, height: height)
+  end
 end