basis/tools/cocoa/cocoa.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays cocoa.messages cocoa.runtime combinators
   4 prettyprint combinators.smart ;
   5 IN: tools.cocoa
   6
   7 : method. ( method -- )
   8     [
   9         {
  10             [ method_getName sel_getName ]
  11             [ method-return-type ]
  12             [ method-arg-types ]
  13             [ method_getImplementation ]
  14         } cleave
  15     ] output>array . ;
  16
  17 : methods. ( class -- )
  18     [ method. ] each-method-in-class ;