1 ! Copyright (C) 2006 Slava Pestov
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: compiler io kernel cocoa.runtime cocoa.subclassing
4 cocoa.messages cocoa.types sequences words vocabs parser
5 core-foundation.bundles namespaces assocs hashtables
6 compiler.units lexer init ;
9 : (remember-send) ( selector variable -- )
10 global [ dupd ?set-at ] change-at ;
14 : remember-send ( selector -- )
15 sent-messages (remember-send) ;
17 SYNTAX: -> scan dup remember-send parsed \ send parsed ;
19 SYMBOL: super-sent-messages
21 : remember-super-send ( selector -- )
22 super-sent-messages (remember-send) ;
24 SYNTAX: SUPER-> scan dup remember-super-send parsed \ super-send parsed ;
28 frameworks [ V{ } clone ] initialize
30 [ frameworks get [ load-framework ] each ] "cocoa.messages" add-init-hook
32 SYNTAX: FRAMEWORK: scan [ load-framework ] [ frameworks get push ] bi ;
34 SYNTAX: IMPORT: scan [ ] import-objc-class ;
36 "Compiling Objective C bridge..." print
38 "cocoa.classes" create-vocab drop
41 "cocoa" "cocoa.runtime" "cocoa.messages" "cocoa.subclassing"
42 } [ words ] map concat compile
44 "Importing Cocoa classes..." print
62 "NSNotificationCenter"
70 "NSPropertyListSerialization"
81 ] with-compilation-unit