cocoa 0.1.0

data/lib/cocoa/bindings/NSXMLDTDNode.rb

@@ -0,0 +1,16 @@
+# generated by 'rake generate'
+require 'cocoa/bindings/NSXMLNode'
+module Cocoa
+  class NSXMLDTDNode < Cocoa::NSXMLNode
+    attach_method :DTDKind, :args=>0, :names=>[], :types=>[], :retval=>"Q"
+    attach_method :initWithXMLString, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :isExternal, :args=>0, :names=>[], :types=>[], :retval=>"B"
+    attach_method :notationName, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :publicID, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :setDTDKind, :args=>1, :names=>[], :types=>["Q"], :retval=>"v"
+    attach_method :setNotationName, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setPublicID, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setSystemID, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :systemID, :args=>0, :names=>[], :types=>[], :retval=>"@"
+  end
+end

data/lib/cocoa/bindings/NSXMLDocument.rb

@@ -0,0 +1,37 @@
+# generated by 'rake generate'
+require 'cocoa/bindings/NSXMLNode'
+module Cocoa
+  class NSXMLDocument < Cocoa::NSXMLNode
+    attach_method :DTD, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :MIMEType, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :XMLData, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :XMLDataWithOptions, :args=>1, :names=>[], :types=>["Q"], :retval=>"@"
+    attach_method :addChild, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :characterEncoding, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :documentContentKind, :args=>0, :names=>[], :types=>[], :retval=>"Q"
+    attach_method :initWithContentsOfURL, :args=>3, :names=>["options", "error"], :types=>["@", "Q", "^@"], :retval=>"@"
+    attach_method :initWithData, :args=>3, :names=>["options", "error"], :types=>["@", "Q", "^@"], :retval=>"@"
+    attach_method :initWithRootElement, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :initWithXMLString, :args=>3, :names=>["options", "error"], :types=>["@", "Q", "^@"], :retval=>"@"
+    attach_method :insertChild, :args=>2, :names=>["atIndex"], :types=>["@", "Q"], :retval=>"v"
+    attach_method :insertChildren, :args=>2, :names=>["atIndex"], :types=>["@", "Q"], :retval=>"v"
+    attach_method :isStandalone, :args=>0, :names=>[], :types=>[], :retval=>"B"
+    attach_method :objectByApplyingXSLT, :args=>3, :names=>["arguments", "error"], :types=>["@", "@", "^@"], :retval=>"@"
+    attach_method :objectByApplyingXSLTAtURL, :args=>3, :names=>["arguments", "error"], :types=>["@", "@", "^@"], :retval=>"@"
+    attach_method :objectByApplyingXSLTString, :args=>3, :names=>["arguments", "error"], :types=>["@", "@", "^@"], :retval=>"@"
+    attach_method :removeChildAtIndex, :args=>1, :names=>[], :types=>["Q"], :retval=>"v"
+    attach_method :replaceChildAtIndex, :args=>2, :names=>["withNode"], :types=>["Q", "@"], :retval=>"v"
+    attach_singular_method :replacementClassForClass, :args=>1, :names=>[], :types=>["#"], :retval=>"#"
+    attach_method :rootElement, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :setCharacterEncoding, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setChildren, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setDTD, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setDocumentContentKind, :args=>1, :names=>[], :types=>["Q"], :retval=>"v"
+    attach_method :setMIMEType, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setRootElement, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setStandalone, :args=>1, :names=>[], :types=>["B"], :retval=>"v"
+    attach_method :setVersion, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :validateAndReturnError, :args=>1, :names=>[], :types=>["^@"], :retval=>"B"
+    attach_method :version, :args=>0, :names=>[], :types=>[], :retval=>"@"
+  end
+end

data/lib/cocoa/bindings/NSXMLElement.rb

@@ -0,0 +1,32 @@
+# generated by 'rake generate'
+require 'cocoa/bindings/NSXMLNode'
+module Cocoa
+  class NSXMLElement < Cocoa::NSXMLNode
+    attach_method :addAttribute, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :addChild, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :addNamespace, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :attributeForLocalName, :args=>2, :names=>["URI"], :types=>["@", "@"], :retval=>"@"
+    attach_method :attributeForName, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :attributes, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :elementsForLocalName, :args=>2, :names=>["URI"], :types=>["@", "@"], :retval=>"@"
+    attach_method :elementsForName, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :initWithName, [{:args=>1, :names=>[], :types=>["@"], :retval=>"@"}, {:args=>2, :names=>["URI"], :types=>["@", "@"], :retval=>"@"}, {:args=>2, :names=>["stringValue"], :types=>["@", "@"], :retval=>"@"}]
+    attach_method :initWithXMLString, :args=>2, :names=>["error"], :types=>["@", "^@"], :retval=>"@"
+    attach_method :insertChild, :args=>2, :names=>["atIndex"], :types=>["@", "Q"], :retval=>"v"
+    attach_method :insertChildren, :args=>2, :names=>["atIndex"], :types=>["@", "Q"], :retval=>"v"
+    attach_method :namespaceForPrefix, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :namespaces, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :normalizeAdjacentTextNodesPreservingCDATA, :args=>1, :names=>[], :types=>["B"], :retval=>"v"
+    attach_method :removeAttributeForName, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :removeChildAtIndex, :args=>1, :names=>[], :types=>["Q"], :retval=>"v"
+    attach_method :removeNamespaceForPrefix, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :replaceChildAtIndex, :args=>2, :names=>["withNode"], :types=>["Q", "@"], :retval=>"v"
+    attach_method :resolveNamespaceForName, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :resolvePrefixForNamespaceURI, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :setAttributes, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setAttributesAsDictionary, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setAttributesWithDictionary, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setChildren, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setNamespaces, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+  end
+end

data/lib/cocoa/bindings/NSXMLNode.rb

@@ -0,0 +1,49 @@
+# generated by 'rake generate'
+require 'cocoa/bindings/NSObject'
+module Cocoa
+  class NSXMLNode < Cocoa::NSObject
+    attach_singular_method :DTDNodeWithXMLString, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :URI, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :XMLString, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :XMLStringWithOptions, :args=>1, :names=>[], :types=>["Q"], :retval=>"@"
+    attach_method :XPath, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :attributeWithName, [{:args=>3, :names=>["URI", "stringValue"], :types=>["@", "@", "@"], :retval=>"@"}, {:args=>2, :names=>["stringValue"], :types=>["@", "@"], :retval=>"@"}]
+    attach_method :canonicalXMLStringPreservingComments, :args=>1, :names=>[], :types=>["B"], :retval=>"@"
+    attach_method :childAtIndex, :args=>1, :names=>[], :types=>["Q"], :retval=>"@"
+    attach_method :childCount, :args=>0, :names=>[], :types=>[], :retval=>"Q"
+    attach_method :children, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :commentWithStringValue, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :description, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :detach, :args=>0, :names=>[], :types=>[], :retval=>"v"
+    attach_singular_method :document, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :documentWithRootElement, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_singular_method :elementWithName, [{:args=>1, :names=>[], :types=>["@"], :retval=>"@"}, {:args=>2, :names=>["URI"], :types=>["@", "@"], :retval=>"@"}, {:args=>3, :names=>["children", "attributes"], :types=>["@", "@", "@"], :retval=>"@"}, {:args=>2, :names=>["stringValue"], :types=>["@", "@"], :retval=>"@"}]
+    attach_method :index, :args=>0, :names=>[], :types=>[], :retval=>"Q"
+    attach_method :initWithKind, [{:args=>1, :names=>[], :types=>["Q"], :retval=>"@"}, {:args=>2, :names=>["options"], :types=>["Q", "Q"], :retval=>"@"}]
+    attach_method :kind, :args=>0, :names=>[], :types=>[], :retval=>"Q"
+    attach_method :level, :args=>0, :names=>[], :types=>[], :retval=>"Q"
+    attach_method :localName, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :localNameForName, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :name, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :namespaceWithName, :args=>2, :names=>["stringValue"], :types=>["@", "@"], :retval=>"@"
+    attach_method :nextNode, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :nextSibling, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :nodesForXPath, :args=>2, :names=>["error"], :types=>["@", "^@"], :retval=>"@"
+    attach_method :objectValue, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :objectsForXQuery, [{:args=>3, :names=>["constants", "error"], :types=>["@", "@", "^@"], :retval=>"@"}, {:args=>2, :names=>["error"], :types=>["@", "^@"], :retval=>"@"}]
+    attach_method :parent, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :predefinedNamespaceForPrefix, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :prefix, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :prefixForName, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :previousNode, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :previousSibling, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :processingInstructionWithName, :args=>2, :names=>["stringValue"], :types=>["@", "@"], :retval=>"@"
+    attach_method :rootDocument, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :setName, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setObjectValue, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setStringValue, [{:args=>1, :names=>[], :types=>["@"], :retval=>"v"}, {:args=>2, :names=>["resolvingEntities"], :types=>["@", "B"], :retval=>"v"}]
+    attach_method :setURI, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :stringValue, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_singular_method :textWithStringValue, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+  end
+end

data/lib/cocoa/bindings/NSXMLParser.rb

@@ -0,0 +1,24 @@
+# generated by 'rake generate'
+require 'cocoa/bindings/NSObject'
+module Cocoa
+  class NSXMLParser < Cocoa::NSObject
+    attach_method :abortParsing, :args=>0, :names=>[], :types=>[], :retval=>"v"
+    attach_method :columnNumber, :args=>0, :names=>[], :types=>[], :retval=>"q"
+    attach_method :delegate, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :initWithContentsOfURL, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :initWithData, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :initWithStream, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :lineNumber, :args=>0, :names=>[], :types=>[], :retval=>"q"
+    attach_method :parse, :args=>0, :names=>[], :types=>[], :retval=>"B"
+    attach_method :parserError, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :publicID, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :setDelegate, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setShouldProcessNamespaces, :args=>1, :names=>[], :types=>["B"], :retval=>"v"
+    attach_method :setShouldReportNamespacePrefixes, :args=>1, :names=>[], :types=>["B"], :retval=>"v"
+    attach_method :setShouldResolveExternalEntities, :args=>1, :names=>[], :types=>["B"], :retval=>"v"
+    attach_method :shouldProcessNamespaces, :args=>0, :names=>[], :types=>[], :retval=>"B"
+    attach_method :shouldReportNamespacePrefixes, :args=>0, :names=>[], :types=>[], :retval=>"B"
+    attach_method :shouldResolveExternalEntities, :args=>0, :names=>[], :types=>[], :retval=>"B"
+    attach_method :systemID, :args=>0, :names=>[], :types=>[], :retval=>"@"
+  end
+end

data/lib/cocoa/bindings/NSXPCConnection.rb

@@ -0,0 +1,30 @@
+# generated by 'rake generate'
+require 'cocoa/bindings/NSObject'
+module Cocoa
+  class NSXPCConnection < Cocoa::NSObject
+    attach_method :auditSessionIdentifier, :args=>0, :names=>[], :types=>[], :retval=>"i"
+    attach_method :effectiveGroupIdentifier, :args=>0, :names=>[], :types=>[], :retval=>"I"
+    attach_method :effectiveUserIdentifier, :args=>0, :names=>[], :types=>[], :retval=>"I"
+    attach_method :endpoint, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :exportedInterface, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :exportedObject, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :initWithListenerEndpoint, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :initWithMachServiceName, :args=>2, :names=>["options"], :types=>["@", "Q"], :retval=>"@"
+    attach_method :initWithServiceName, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :interruptionHandler, :args=>0, :names=>[], :types=>[], :retval=>"@?"
+    attach_method :invalidate, :args=>0, :names=>[], :types=>[], :retval=>"v"
+    attach_method :invalidationHandler, :args=>0, :names=>[], :types=>[], :retval=>"@?"
+    attach_method :processIdentifier, :args=>0, :names=>[], :types=>[], :retval=>"i"
+    attach_method :remoteObjectInterface, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :remoteObjectProxy, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :remoteObjectProxyWithErrorHandler, :args=>1, :names=>[], :types=>["@?"], :retval=>"@"
+    attach_method :resume, :args=>0, :names=>[], :types=>[], :retval=>"v"
+    attach_method :serviceName, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :setExportedInterface, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setExportedObject, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :setInterruptionHandler, :args=>1, :names=>[], :types=>["@?"], :retval=>"v"
+    attach_method :setInvalidationHandler, :args=>1, :names=>[], :types=>["@?"], :retval=>"v"
+    attach_method :setRemoteObjectInterface, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :suspend, :args=>0, :names=>[], :types=>[], :retval=>"v"
+  end
+end

data/lib/cocoa/bindings/NSXPCInterface.rb

@@ -0,0 +1,13 @@
+# generated by 'rake generate'
+require 'cocoa/bindings/NSObject'
+module Cocoa
+  class NSXPCInterface < Cocoa::NSObject
+    attach_method :classesForSelector, :args=>3, :names=>["argumentIndex", "ofReply"], :types=>[":", "Q", "B"], :retval=>"@"
+    attach_method :interfaceForSelector, :args=>3, :names=>["argumentIndex", "ofReply"], :types=>[":", "Q", "B"], :retval=>"@"
+    attach_singular_method :interfaceWithProtocol, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :protocol, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :setClasses, :args=>4, :names=>["forSelector", "argumentIndex", "ofReply"], :types=>["@", ":", "Q", "B"], :retval=>"v"
+    attach_method :setInterface, :args=>4, :names=>["forSelector", "argumentIndex", "ofReply"], :types=>["@", ":", "Q", "B"], :retval=>"v"
+    attach_method :setProtocol, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+  end
+end

data/lib/cocoa/bindings/NSXPCListener.rb

@@ -0,0 +1,15 @@
+# generated by 'rake generate'
+require 'cocoa/bindings/NSObject'
+module Cocoa
+  class NSXPCListener < Cocoa::NSObject
+    attach_singular_method :anonymousListener, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :delegate, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :endpoint, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :initWithMachServiceName, :args=>1, :names=>[], :types=>["@"], :retval=>"@"
+    attach_method :invalidate, :args=>0, :names=>[], :types=>[], :retval=>"v"
+    attach_method :resume, :args=>0, :names=>[], :types=>[], :retval=>"v"
+    attach_singular_method :serviceListener, :args=>0, :names=>[], :types=>[], :retval=>"@"
+    attach_method :setDelegate, :args=>1, :names=>[], :types=>["@"], :retval=>"v"
+    attach_method :suspend, :args=>0, :names=>[], :types=>[], :retval=>"v"
+  end
+end

data/lib/cocoa/helpers.rb

@@ -0,0 +1,787 @@
+require 'active_support/inflector'
+require 'ffi'
+
+module ObjC
+  extend FFI::Library
+ 
+  # Load the 'libobjc' library.
+  ffi_lib 'objc'
+ 
+  # Bind the 'sel_registerName' function, which accepts a String and
+  # returns an equivalent Objective-C selector (i.e. message name).
+  attach_function :sel_registerName, [:string], :pointer
+ 
+  # Bind the 'objc_msgSend' function, which sends a message to an
+  # Objective-C object. It accepts a pointer to the object being sent
+  # the message, a pointer to a selector, and a varargs array of
+  # arguments to be sent with the message. It returns a pointer to the
+  # result of sending the message.
+  attach_function :objc_msgSend, [:pointer, :pointer, :varargs], :pointer
+  #attach_function :objc_msgSend_stret, [:pointer, :pointer, :varargs], CGRect.by_value
+ 
+  # A convenience method using objc_msgSend and sel_registerName to easily
+  # send Objective-C messages from Ruby.
+  def self.msgSend( id, selector, *args )
+    selector = sel_registerName(selector) if selector.is_a? String
+    objc_msgSend( id, selector, *args )
+  end
+
+  def self.msgSend_stret( return_type, id, selector, *args )
+    selector = sel_registerName(selector) if selector.is_a? String
+    method = "objc_msgSend_stret_for_#{return_type.name.underscore}".to_sym
+    unless respond_to? method
+      attach_function method, :objc_msgSend_stret, [:pointer, :pointer, :varargs], return_type.by_value
+    end
+    send(method, id, selector, *args )
+  end
+ 
+  # Bind the 'objc_getClass' function, which accepts the name of an
+  # Objective-C class, and returns a pointer to that class.
+  attach_function :objc_getClass, [:string], :pointer
+
+  attach_function :objc_allocateClassPair, [:pointer, :string, :int], :pointer
+  attach_function :objc_registerClassPair, [:pointer], :void
+end
+
+class CGPoint < FFI::Struct
+  def initialize *args
+    options = args.first
+    if options.is_a? Hash
+      self[:x] = options[:x]
+      self[:y] = options[:y]
+    else
+      super *args
+    end
+  end
+  layout :x, :double,
+         :y, :double
+end
+
+class CGSize < FFI::Struct
+  def initialize *args
+    options = args.first
+    if options.is_a? Hash
+      self[:width] = options[:width]
+      self[:height] = options[:height]
+    else
+      super *args
+    end
+  end
+  layout :width, :double,
+         :height, :double
+end
+
+class CGRect < FFI::Struct
+  def initialize *args
+    options = args.first
+    if options.is_a? Hash
+      self[:origin][:x] = options[:x]
+      self[:origin][:y] = options[:y]
+      self[:size][:width] = options[:width]
+      self[:size][:height] = options[:height]
+    else
+      super *args
+    end
+  end
+  layout :origin, CGPoint,
+         :size, CGSize
+end
+
+module Cocoa; end
+
+class Cocoa::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
+
+NSRect = CGRect
+NSSize = CGSize
+NSPoint = CGPoint
+
+module Cocoa
+
+  def instances
+    @@instances ||= {}
+  end
+  def instance_for data
+    if data.is_a?(FFI::Pointer)
+      @@instances[data.address] ||= translate_retval nil,data,'@'
+    else
+      data
+    end
+  end
+
+  def NSMakeSize width,height
+    CGSize.new(width: width, height: height)
+  end
+  def NSMakePoint x,y
+    CGPoint.new(x: x, y: y)
+  end
+  def CGRectMake x,y,width,height
+    CGRect.new(x: x, y: y, width: width, height: height)
+  end
+  NSZeroPoint = CGPoint.new(x: 0, y: 0)
+  NSZeroRect = CGRect.new(x: 0, y: 0, width: 0, height: 0)
+
+  def CFRangeMake loc,len
+    CFRange.new(location: loc, length: len)
+  end
+
+  # Accepts a Ruby String and creates an equivalent NSString instance
+  # and returns a pointer to it.
+  def self.String_to_NSString( string )
+    nsstring_class = ObjC.objc_getClass("NSString")
+    ObjC.msgSend( nsstring_class, "stringWithUTF8String:",
+                  :string, string )
+  end
+ 
+  # Accepts a pointer to an NSString object, and returns the string
+  # contents as a Ruby String.
+  def self.NSString_to_String( nsstring_pointer )
+    c_string_pointer = ObjC.msgSend( nsstring_pointer, "UTF8String" )
+    if c_string_pointer.null?
+      return "(NULL)"
+    else
+      return c_string_pointer.read_string()
+    end
+  end
+
+  def self.fixed_args args,options={}
+    ([args.first]+options.values).map do |arg|
+      case arg
+      when TrueClass
+        [:bool,arg]
+      when FalseClass
+        [:bool,arg]
+      when Fixnum
+        [:int,arg]
+      when String
+        [:pointer,Cocoa.String_to_NSString(arg)]
+      when NilClass
+        [:pointer,nil]
+      when Symbol
+        [:pointer,ObjC.sel_registerName("#{arg}:")]
+      when NSObject
+        [:pointer,arg.object]
+      when FFI::Struct
+        [arg.class.by_value,arg]
+      else
+        raise ArgumentError
+      end
+    end.flatten
+  end
+
+  def self.attach_nsstring_getter method
+    raw = "get_objc_#{method}".to_sym
+    attach_variable raw, method, :pointer
+    if /[A-Z]/ =~ method.to_s[0]
+      Cocoa.const_set(method,Cocoa::NSString_to_String(send(raw)))
+    else
+      define_singleton_method method do
+       Cocoa::NSString_to_String(send(raw))
+      end
+    end
+  end
+
+  def self.attach_singular_method method,*params
+    params = params.extract_options!
+params.freeze
+    if params[:args] == 0
+      define_singleton_method method do
+        instance = new(true)
+        instance.object = ObjC.msgSend(instance.klass,method.to_s)
+        instance
+      end
+    else
+      define_singleton_method method do |*args|
+        raise "hell"
+      end
+    end
+  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.translate_retval method,ret,type
+    case type
+    when '@'
+      return nil if ret.address == 0
+      return ret if method == :NSStringFromClass
+      klass_name = Cocoa::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 = "FIX_#{klass_name}" if klass_name[0]=='_'
+        klass = begin
+          Cocoa.const_get(klass_name)
+        rescue => e
+          superclass_name = Cocoa::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
+    when '#'
+      ret
+    when /^{([^=]*)=.*}$/
+      ret
+    when /^\^{[^=]*=.*}$/
+      return nil if ret.address == 0
+      klass_name = Cocoa::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 = "FIX_#{klass_name}" if klass_name[0]=='_'
+        klass = begin
+          Cocoa.const_get(klass_name)
+        rescue => e
+          superclass_name = Cocoa::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
+    else
+      raise type
+    end
+  end
+
+  def self.attach_method method,*params
+    if params.first.is_a? Array
+      params = params.last
+    end
+
+    params = params.extract_options!
+params.freeze
+    if params[:args] == 0
+      begin
+        attach_function "call_#{method}".to_sym, method, [], apple_type_to_ffi(params[:retval])
+        define_method method do
+          case params[:retval]
+          when /^\^{[^=]*=.*}$/
+            Cocoa::translate_retval(method,send("call_#{method}".to_sym),params[:retval])
+          else
+            raise params.inspect
+          end
+        end
+      rescue FFI::NotFoundError => e
+        puts "method missing: #{e.message}"
+      end
+    else
+      begin
+        attach_function "call_#{method}".to_sym, method, params[:types].map{ |arg| apple_type_to_ffi(arg) }, apple_type_to_ffi(params[:retval])
+        define_method method do |*args|
+          raise ArgumentError.new("#{method} requires #{params[:args]} argument(s)") unless params[:args] == args.size
+          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
+          ret = send("call_#{method}".to_sym,*fixed_args)
+          if params[:retval]=='v'
+            self
+          else
+            Cocoa::translate_retval(method,ret,params[:retval])
+          end
+        end
+      rescue FFI::NotFoundError => e
+#        puts "!!!"
+#        puts e.message
+      end
+    end
+  end
+  extend self
+
+  class NSObject
+
+    def self.inherited(parent)
+      if parent.name
+puts "INHERITED #{parent.name}" if parent.name =~ /Timer/
+        klass = ObjC.objc_allocateClassPair(ObjC.objc_getClass(name.split('::').last),parent.name,0)
+        ObjC.objc_registerClassPair(klass)
+      end
+    end
+
+    def initialize allocated=false
+      @klass = ObjC.objc_getClass(self.class.name.split('::').last)
+      unless allocated
+        self.object = @klass
+        new
+      end
+    end
+    def self.alloc
+      new(true).alloc
+    end
+    def get_class
+      ObjC.objc_getClass(self.class.name.split('::').last)
+    end
+    def alloc
+      self.object = ObjC.msgSend(ObjC.objc_getClass(self.class.name.split('::').last),"alloc")
+      self
+    end
+    def init
+      self.object = ObjC.msgSend(@object,"init")
+      self
+    end
+    def new
+      self.object = ObjC.msgSend(@object,"new")
+      self
+    end
+    def autorelease
+      self.object = ObjC.msgSend(@object,"autorelease")
+      self
+    end
+#  protected
+    attr_accessor :klass
+    attr_reader :object
+
+    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,Cocoa.String_to_NSString(arg)]
+        when NilClass
+          [:pointer,nil]
+        when Symbol
+          [:pointer,ObjC.sel_registerName("#{arg}:")]
+        when 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.smart_constantize ret,klass_name
+      begin
+        Cocoa.const_get(klass_name)
+      rescue
+        _superclass = ObjC.msgSend(ret,'superclass')
+        superclass_name = Cocoa::NSString_to_String(Cocoa::NSStringFromClass(_superclass))
+        superclass = begin
+          "Cocoa::#{superclass_name}".constantize        
+        rescue Exception => e
+          smart_constantize(_superclass,superclass_name)
+        end
+        proxy = Class.new(superclass)
+        Cocoa.const_set(klass_name, proxy)
+        klass = ("Cocoa::"+klass_name).constantize
+        superclass.inherited(klass)
+        klass
+      end
+    end
+
+    def self.attach_singular_method method,*__params
+__params.freeze
+      return if method==:class
+      return if method==:new
+      if __params.first.is_a?(Hash) && __params.first[:args] == 0
+        define_singleton_method method do
+          instance = new(true)
+          instance.object = ObjC.msgSend(instance.klass,method.to_s)
+          instance
+        end
+      else
+        _params = [__params.dup].flatten
+_params.freeze
+        define_singleton_method method do |*args|
+# puts method
+# puts args.inspect
+# puts _params.inspect
+          par = if _params.size == 1 && _params.first[:variadic]
+            _params
+          else
+            _params.select{ |par| (par[:args] == 1 && args.size == 1) || (par[:args] == args.last.size+1 && par[:names].map(&:to_sym).sort == args.last.keys.sort) }
+          end
+          raise ArgumentError unless par.size == 1
+          params = par.dup.extract_options!
+
+          options = args.extract_options!
+          fixed_args = if params[:variadic]
+            raise "not yet supported" unless params[:types].size == 1
+            NSObject.fixed_args(args,options,params[:types],params)
+          else
+            NSObject.fixed_args(args,options,params[:types])
+          end
+          ret = ObjC.msgSend(ObjC.objc_getClass(name.split('::').last),"#{method}#{(['']+params[:names]).join(':')}:",*fixed_args)
+          case params[:retval]
+          when '@'
+            return nil if ret.address == 0
+            klass_name = Cocoa::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 = klass_name.gsub(/^_*/,'') if klass_name[0]=='_'
+              klass = smart_constantize(ret,klass_name)
+              klass.new(true)
+            end
+            instance.object = ret
+            instance
+          when 'v'
+            self
+         else
+            raise params[:retval]
+          end
+        end
+      end
+    end
+
+    def self.attach_method method,*_params
+      return if method==:class
+      @@method_specs ||= {}
+      if _params.first.is_a? Array
+        _params = [_params].flatten
+_params.freeze
+        define_method method do |*args|
+          if args.last.is_a? Hash
+            params = _params.select{ |par| par[:args] == args.last.size+1 && par[:names].map(&:to_sym).sort == args.last.keys.sort }
+            raise ArgumentError unless params.size == 1
+            params = params.extract_options!
+            @@method_specs[method] = params
+
+            options = args.extract_options!
+            fixed_args = NSObject.fixed_args(args,options,params[:types])
+            # puts "ObjC.msgSend(@object,\"#{method}:#{params[:names].join(':')}:\",#{fixed_args.inspect})"
+            ObjC.msgSend(@object,"#{method}#{(['']+params[:names]).join(':')}:",*fixed_args)
+            self
+          else
+            params = _params.select{ |par| par[:args] == 1 }
+            raise ArgumentError unless params.size == 1
+            @@method_specs[method] = params
+
+            fixed_args = NSObject.fixed_args(args)
+            # puts "ObjC.msgSend(#{@object.inspect},#{method},#{fixed_args.inspect})"
+            ObjC.msgSend(@object,"#{method}:",*fixed_args)
+            self
+          end
+        end
+      else
+        params = _params.extract_options!
+        @@method_specs[method] = params
+        if params[:args] == 0
+params.freeze
+          define_method method do
+            case params[:retval]
+            when '@'
+              Cocoa::translate_retval(method,ObjC.msgSend(@object,method.to_s),params[:retval])
+            when 'v'
+              ObjC.msgSend(@object,method.to_s)
+              self
+            when '^v'
+              ObjC.msgSend(@object,method.to_s)
+            when 'Q'
+              ObjC.msgSend(@object,method.to_s).address
+            when 'B'
+              ret = ObjC.msgSend(@object,method.to_s)
+              ret.address ? true : false
+            when /^{([^=]*)=.*}$/
+              ObjC.msgSend_stret($1.constantize,@object,method.to_s)
+            when /^\^{([^=]*)=.*}$/
+              ret = ObjC.msgSend(@object,method.to_s)
+              klass_name = Cocoa::NSString_to_String(Cocoa::NSStringFromClass(ObjC.msgSend(ret,"class")))
+              if klass_name == '__NSCFType'
+                # dont know what the hell this is, experiment:
+                klass_name = $1
+              end
+              instance = begin
+                ("Cocoa::"+klass_name).constantize.new(true)
+              rescue
+                klass_name = "FIX_#{klass_name}" if klass_name[0]=='_'
+# puts "TRYING #{klass_name}"
+                klass = begin
+                  Cocoa.const_get(klass_name)
+                rescue => e
+                  superclass_name = Cocoa::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
+            when '*'
+              ObjC.msgSend(@object,method.to_s).read_string
+            else
+              puts params.inspect
+              raise params[:retval]
+            end
+          end
+        else
+          define_method method do |*args|
+            options = args.extract_options!
+            fixed_args = NSObject.fixed_args(args,options,params[:types])
+            case params[:retval]
+            when '@'
+              Cocoa::translate_retval(method,ObjC.msgSend(@object,"#{method}#{(['']+params[:names]).join(':')}:",*fixed_args),params[:retval])
+            else
+              ObjC.msgSend(@object,"#{method}#{(['']+params[:names]).join(':')}:",*fixed_args)
+              self
+            end
+          end
+        end
+      end
+    end
+
+    def object= obj
+      Cocoa::instances[obj.address] = self
+      @object = obj
+    end
+
+    def self.ffi_argument_types method
+      return [:pointer] unless @@method_specs[method] # own method probably TODO: return argument count * pointers
+      @@method_specs[method][:types].map do |type|
+        case type
+        when '@'
+          :pointer
+        when /^{([^=]*)=.*}$/
+          $1.constantize.by_value
+        else
+          raise type
+        end
+      end
+    end
+
+    def self.ffi_return_type method
+      return :void unless @@method_specs[method] # own method probably
+      case @@method_specs[method][:retval]
+      when nil
+        :void
+      when 'v'
+        :void
+      else
+        raise @@method_specs[method][:retval].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.objc_argument_types method
+      #"@:^{CGRect={CGPoint=dd}{CGSize=dd}}@"
+      return 'v@:@' unless @@method_specs[method] # own method probably TODO: @v: + @ times argument count
+      objc_type(@@method_specs[method][:retval],'v')+'@:'+@@method_specs[method][:types].map{ |type| objc_type(type) }.join
+    end
+
+    def self.method_added(name)
+      return if caller.first.split('`').last[0..-2] == 'define_method'  # MRI
+      return if caller.first.split('`').last[0..-2] == 'attach_method'  # Rubinius
+      method_definition = "#{self.name.underscore}_#{name.to_s.underscore}".to_sym
+      add_method = "add_#{self.name.underscore}_#{name.to_s.underscore}".to_sym
+
+      @method_callers ||= {}
+      raise "allready added" if @method_callers[method_definition]
+      @method_callers[method_definition] = Proc.new do |this,cmd,*args|
+        begin
+          instance = Cocoa.instances[this.address]
+          instance.send(name,*args.map{ |arg| Cocoa::instance_for(arg) })
+        rescue => e
+          puts e.message
+          puts e.backtrace
+        end
+      end
+
+      ObjC.callback method_definition, [:pointer, :pointer]+ffi_argument_types(name), ffi_return_type(name)
+      ObjC.attach_function add_method, :class_addMethod, [:pointer,:pointer,method_definition,:string], :void
+
+      ObjC.send(add_method,ObjC.objc_getClass(self.name.split('::').last),ObjC.sel_registerName("#{name}:"),@method_callers[method_definition],objc_argument_types(name))
+    end
+  end
+end