factor/basis/cocoa/cocoa.factor

! Copyright (C) 2006, 2009 Slava Pestov
! See http://factorcode.org/license.txt for BSD license.
USING: cocoa.messages compiler.units core-foundation.bundles
hashtables init io kernel lexer namespaces sequences vocabs ;
QUALIFIED: cocoa.messages
IN: cocoa

SYMBOL: sent-messages

: (remember-send) ( selector variable -- )
    [ dupd ?set-at ] change-global ;

: remember-send ( selector -- )
    sent-messages (remember-send) ;

SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ;

SYNTAX: SEL:
    scan-token
    [ remember-send ]
    [ <selector> suffix! \ cocoa.messages:selector suffix! ] bi ;

SYMBOL: super-sent-messages

: remember-super-send ( selector -- )
    super-sent-messages (remember-send) ;

SYNTAX: SUPER-> scan-token dup remember-super-send suffix! \ super-send suffix! ;

SYMBOL: frameworks

frameworks [ V{ } clone ] initialize

[ frameworks get [ load-framework ] each ] "cocoa" add-startup-hook

SYNTAX: FRAMEWORK: scan-token [ load-framework ] [ frameworks get push ] bi ;

SYNTAX: IMPORT: scan-token [ ] import-objc-class ;

"Importing Cocoa classes..." print

"cocoa.classes" create-vocab drop

[
    {
        "NSAlert"
        "NSAppleScript"
        "NSApplication"
        "NSArray"
        "NSAutoreleasePool"
        "NSBitmapImageRep"
        "NSBundle"
        "NSColorSpace"
        "NSData"
        "NSDictionary"
        "NSError"
        "NSEvent"
        "NSException"
        "NSMenu"
        "NSMenuItem"
        "NSMutableDictionary"
        "NSNib"
        "NSNotification"
        "NSNotificationCenter"
        "NSNumber"
        "NSObject"
        "NSOpenGLContext"
        "NSOpenGLPixelFormat"
        "NSOpenGLView"
        "NSOpenPanel"
        "NSPanel"
        "NSPasteboard"
        "NSPropertyListSerialization"
        "NSResponder"
        "NSSavePanel"
        "NSScreen"
        "NSString"
        "NSView"
        "NSWindow"
        "NSWorkspace"
    } [
        [ ] import-objc-class
    ] each
] with-compilation-unit
cocoa: don't need to explicitly compile words anymore, as if more than a year ago... 2009-05-05 10:40:58 -04:00			`! Copyright (C) 2006, 2009 Slava Pestov`
Initial import 2007-09-20 18:09:08 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
cocoa: fix requirement that mac deploys have high reflection. 2014-10-31 14:33:19 -04:00			`USING: cocoa.messages compiler.units core-foundation.bundles`
cocoa: switch back to an assoc, used by tools.deploy.shaker.strip-cocoa. 2014-10-31 19:52:40 -04:00			`hashtables init io kernel lexer namespaces sequences vocabs ;`
factor: Removing SLOT: nth/at/global in favor of using change: at for tuple slots named ``at`` and change-at for hashtables. Redo many FROM: and QUALIFIED: and using lists. 2015-08-12 09:49:02 -04:00			`QUALIFIED: cocoa.messages`
Initial import 2007-09-20 18:09:08 -04:00			`IN: cocoa`

			`SYMBOL: sent-messages`

cocoa: switch back to an assoc, used by tools.deploy.shaker.strip-cocoa. 2014-10-31 19:52:40 -04:00			`: (remember-send) ( selector variable -- )`
			`[ dupd ?set-at ] change-global ;`
cocoa: fix requirement that mac deploys have high reflection. 2014-10-31 14:33:19 -04:00
Initial import 2007-09-20 18:09:08 -04:00			`: remember-send ( selector -- )`
cocoa: switch back to an assoc, used by tools.deploy.shaker.strip-cocoa. 2014-10-31 19:52:40 -04:00			`sent-messages (remember-send) ;`
Initial import 2007-09-20 18:09:08 -04:00
Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferred top-level words now throw an exception on EOF. CREATE -> scan-new CREATE-CLASS -> scan-new-class CREATE-WORD -> scan-new-word CREATE-GENERIC -> scan-new-generic scan -> (scan-token) scan-token now throws on eof (scan-word) returns word/number/f scan-word now throws on eof scan-word-name expects a non-number Fixes #183. Fixes #209. 2011-09-27 16:20:07 -04:00			`SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ;`
Initial import 2007-09-20 18:09:08 -04:00
cocoa: maybe this is cleaner... 2013-03-30 16:44:11 -04:00			`SYNTAX: SEL:`
			`scan-token`
			`[ remember-send ]`
factor: Removing SLOT: nth/at/global in favor of using change: at for tuple slots named ``at`` and change-at for hashtables. Redo many FROM: and QUALIFIED: and using lists. 2015-08-12 09:49:02 -04:00			`[ <selector> suffix! \ cocoa.messages:selector suffix! ] bi ;`
cocoa: maybe this is cleaner... 2013-03-30 16:44:11 -04:00
Initial import 2007-09-20 18:09:08 -04:00			`SYMBOL: super-sent-messages`

			`: remember-super-send ( selector -- )`
cocoa: switch back to an assoc, used by tools.deploy.shaker.strip-cocoa. 2014-10-31 19:52:40 -04:00			`super-sent-messages (remember-send) ;`
Initial import 2007-09-20 18:09:08 -04:00
Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferred top-level words now throw an exception on EOF. CREATE -> scan-new CREATE-CLASS -> scan-new-class CREATE-WORD -> scan-new-word CREATE-GENERIC -> scan-new-generic scan -> (scan-token) scan-token now throws on eof (scan-word) returns word/number/f scan-word now throws on eof scan-word-name expects a non-number Fixes #183. Fixes #209. 2011-09-27 16:20:07 -04:00			`SYNTAX: SUPER-> scan-token dup remember-super-send suffix! \ super-send suffix! ;`
Initial import 2007-09-20 18:09:08 -04:00
Some minor new features for Cocoa binding 2008-10-02 08:10:22 -04:00			`SYMBOL: frameworks`

Update some existing code to use initialize 2009-02-10 17:16:12 -05:00			`frameworks [ V{ } clone ] initialize`
Some minor new features for Cocoa binding 2008-10-02 08:10:22 -04:00
change add-init-hook to add-startup-hook, new add-shutdown-hook word 2009-10-19 22:17:02 -04:00			`[ frameworks get [ load-framework ] each ] "cocoa" add-startup-hook`
Some minor new features for Cocoa binding 2008-10-02 08:10:22 -04:00
Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferred top-level words now throw an exception on EOF. CREATE -> scan-new CREATE-CLASS -> scan-new-class CREATE-WORD -> scan-new-word CREATE-GENERIC -> scan-new-generic scan -> (scan-token) scan-token now throws on eof (scan-word) returns word/number/f scan-word now throws on eof scan-word-name expects a non-number Fixes #183. Fixes #209. 2011-09-27 16:20:07 -04:00			`SYNTAX: FRAMEWORK: scan-token [ load-framework ] [ frameworks get push ] bi ;`
Some minor new features for Cocoa binding 2008-10-02 08:10:22 -04:00
Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferred top-level words now throw an exception on EOF. CREATE -> scan-new CREATE-CLASS -> scan-new-class CREATE-WORD -> scan-new-word CREATE-GENERIC -> scan-new-generic scan -> (scan-token) scan-token now throws on eof (scan-word) returns word/number/f scan-word now throws on eof scan-word-name expects a non-number Fixes #183. Fixes #209. 2011-09-27 16:20:07 -04:00			`SYNTAX: IMPORT: scan-token [ ] import-objc-class ;`
Some minor new features for Cocoa binding 2008-10-02 08:10:22 -04:00
cocoa: don't need to explicitly compile words anymore, as if more than a year ago... 2009-05-05 10:40:58 -04:00			`"Importing Cocoa classes..." print`
Initial import 2007-09-20 18:09:08 -04:00
			`"cocoa.classes" create-vocab drop`

Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`[`
			`{`
ui: add a "system-alert" hook that can raise a system modal dialog without involving any potentially stripped gadget, io, or debugger code 2010-02-23 22:28:57 -05:00			`"NSAlert"`
cocoa.apple-script: adding a simple applescript runner. 2013-10-10 18:52:05 -04:00			`"NSAppleScript"`
Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`"NSApplication"`
			`"NSArray"`
			`"NSAutoreleasePool"`
new vocab images.cocoa: load image objects using native cocoa api 2010-06-27 15:29:21 -04:00			`"NSBitmapImageRep"`
Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`"NSBundle"`
new vocab images.cocoa: load image objects using native cocoa api 2010-06-27 15:29:21 -04:00			`"NSColorSpace"`
handle NSFastEnumeration case when the item pointer is returned in the NSFastEnumerationState struct. add words for converting plist objects to Factor structures 2008-07-13 15:18:35 -04:00			`"NSData"`
cocoa no longer depends on xml 2008-04-05 09:30:02 -04:00			`"NSDictionary"`
Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`"NSError"`
			`"NSEvent"`
			`"NSException"`
			`"NSMenu"`
			`"NSMenuItem"`
cocoa no longer depends on xml 2008-04-05 09:30:02 -04:00			`"NSMutableDictionary"`
Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`"NSNib"`
			`"NSNotification"`
			`"NSNotificationCenter"`
handle NSFastEnumeration case when the item pointer is returned in the NSFastEnumerationState struct. add words for converting plist objects to Factor structures 2008-07-13 15:18:35 -04:00			`"NSNumber"`
Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`"NSObject"`
			`"NSOpenGLContext"`
			`"NSOpenGLPixelFormat"`
			`"NSOpenGLView"`
			`"NSOpenPanel"`
interface for controlling window controls (close, minimize, resize, titlebar, etc.). cocoa backend 2009-06-17 23:47:51 -04:00			`"NSPanel"`
Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`"NSPasteboard"`
read-plist word for cocoa.plists 2008-07-19 18:17:12 -04:00			`"NSPropertyListSerialization"`
Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`"NSResponder"`
			`"NSSavePanel"`
Added set-fullscreen? and fullscreen? hooks along with their cocoa implementations. 2008-02-09 03:17:24 -05:00			`"NSScreen"`
Initial IOKit bindings. NSFastEnumeration interface 2008-07-13 13:42:35 -04:00			`"NSString"`
Load fixes for Mac OS X-related libraries 2008-01-09 01:36:11 -05:00			`"NSView"`
			`"NSWindow"`
			`"NSWorkspace"`
			`} [`
			`[ ] import-objc-class`
			`] each`
			`] with-compilation-unit`