basis/cocoa/cocoa.factor

   1 ! Copyright (C) 2006, 2009 Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: cocoa.messages compiler.units core-foundation.bundles
   4 hashtables init io kernel lexer namespaces sequences vocabs ;
   5 IN: cocoa
   6
   7 SYMBOL: sent-messages
   8
   9 : (remember-send) ( selector variable -- )
  10     [ dupd ?set-at ] change-global ;
  11
  12 : remember-send ( selector -- )
  13     sent-messages (remember-send) ;
  14
  15 SYNTAX: -> scan-token dup remember-send suffix! \ send suffix! ;
  16
  17 SYNTAX: ?-> dup last cache-stubs scan-token dup remember-send suffix! \ ?send suffix! ;
  18
  19 SYNTAX: SEL:
  20     scan-token
  21     [ remember-send ]
  22     [ <selector> suffix! \ cocoa.messages:selector suffix! ] bi ;
  23
  24 SYMBOL: super-sent-messages
  25
  26 : remember-super-send ( selector -- )
  27     super-sent-messages (remember-send) ;
  28
  29 SYNTAX: SUPER-> scan-token dup remember-super-send suffix! \ super-send suffix! ;
  30
  31 SYMBOL: frameworks
  32
  33 frameworks [ V{ } clone ] initialize
  34
  35 [ frameworks get [ load-framework ] each ] "cocoa" add-startup-hook
  36
  37 SYNTAX: FRAMEWORK: scan-token [ load-framework ] [ frameworks get push ] bi ;
  38
  39 SYNTAX: IMPORT: scan-token [ ] import-objc-class ;
  40
  41 "Importing Cocoa classes..." print
  42
  43 "cocoa.classes" create-vocab drop
  44
  45 [
  46     {
  47         "NSAlert"
  48         "NSAppleScript"
  49         "NSApplication"
  50         "NSArray"
  51         "NSAutoreleasePool"
  52         "NSBitmapImageRep"
  53         "NSBundle"
  54         "NSButton"
  55         "NSColorSpace"
  56         "NSCustomTouchBarItem"
  57         "NSData"
  58         "NSDictionary"
  59         "NSError"
  60         "NSEvent"
  61         "NSException"
  62         "NSMenu"
  63         "NSMenuItem"
  64         "NSMutableDictionary"
  65         "NSNib"
  66         "NSNotification"
  67         "NSNotificationCenter"
  68         "NSNumber"
  69         "NSObject"
  70         "NSOpenGLContext"
  71         "NSOpenGLPixelFormat"
  72         "NSOpenGLView"
  73         "NSOpenPanel"
  74         "NSPanel"
  75         "NSPasteboard"
  76         "NSPropertyListSerialization"
  77         "NSResponder"
  78         "NSSavePanel"
  79         "NSScreen"
  80         "NSString"
  81         "NSTouchBar"
  82         "NSTouchBarItem"
  83         "NSView"
  84         "NSWindow"
  85         "NSWorkspace"
  86     } [
  87         [ ] import-objc-class
  88     ] each
  89 ] with-compilation-unit