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 ;
   5 IN: tools.cocoa
   6
   7 : method. ( method -- )
   8     {
   9         [ method_getName sel_getName ]
  10         [ method-return-type ]
  11         [ method-arg-types ]
  12         [ method_getImplementation ]
  13     } cleave 4array . ;
  14
  15 : methods. ( class -- )
  16     [ method. ] each-method-in-class ;