use combinators.smart
parent
932631c901
commit
e020df3d00
|
@ -1,16 +1,18 @@
|
||||||
! Copyright (C) 2008 Slava Pestov.
|
! Copyright (C) 2008 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: arrays cocoa.messages cocoa.runtime combinators
|
USING: arrays cocoa.messages cocoa.runtime combinators
|
||||||
prettyprint ;
|
prettyprint combinators.smart ;
|
||||||
IN: tools.cocoa
|
IN: tools.cocoa
|
||||||
|
|
||||||
: method. ( method -- )
|
: method. ( method -- )
|
||||||
{
|
[
|
||||||
[ method_getName sel_getName ]
|
{
|
||||||
[ method-return-type ]
|
[ method_getName sel_getName ]
|
||||||
[ method-arg-types ]
|
[ method-return-type ]
|
||||||
[ method_getImplementation ]
|
[ method-arg-types ]
|
||||||
} cleave 4array . ;
|
[ method_getImplementation ]
|
||||||
|
} cleave
|
||||||
|
] output>array . ;
|
||||||
|
|
||||||
: methods. ( class -- )
|
: methods. ( class -- )
|
||||||
[ method. ] each-method-in-class ;
|
[ method. ] each-method-in-class ;
|
||||||
|
|
Loading…
Reference in New Issue