| 
									
										
										
										
											2008-12-08 17:02:31 -05:00
										 |  |  | ! Copyright (C) 2008 Slava Pestov. | 
					
						
							|  |  |  | ! See http://factorcode.org/license.txt for BSD license. | 
					
						
							|  |  |  | USING: arrays cocoa.messages cocoa.runtime combinators | 
					
						
							| 
									
										
										
										
											2009-01-08 19:57:23 -05:00
										 |  |  | prettyprint combinators.smart ;
 | 
					
						
							| 
									
										
										
										
											2008-12-08 17:02:31 -05:00
										 |  |  | IN: tools.cocoa | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | : method. ( method -- )
 | 
					
						
							| 
									
										
										
										
											2009-01-08 19:57:23 -05:00
										 |  |  |     [ | 
					
						
							|  |  |  |         { | 
					
						
							|  |  |  |             [ method_getName sel_getName ] | 
					
						
							|  |  |  |             [ method-return-type ] | 
					
						
							|  |  |  |             [ method-arg-types ] | 
					
						
							|  |  |  |             [ method_getImplementation ] | 
					
						
							|  |  |  |         } cleave
 | 
					
						
							|  |  |  |     ] output>array . ;
 | 
					
						
							| 
									
										
										
										
											2008-12-08 17:02:31 -05:00
										 |  |  | 
 | 
					
						
							|  |  |  | : methods. ( class -- )
 | 
					
						
							|  |  |  |     [ method. ] each-method-in-class ;
 |