basis/cocoa/apple-script/apple-script.factor

   1 ! Copyright (C) 2013 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: cocoa cocoa.application cocoa.classes kernel parser
   5 multiline words ;
   6
   7 IN: cocoa.apple-script
   8
   9 : run-apple-script ( str -- )
  10     [ NSAppleScript -> alloc ] dip
  11     <NSString> -> initWithSource: -> autorelease
  12     f -> executeAndReturnError: drop ;
  13
  14 SYNTAX: APPLESCRIPT:
  15     scan-new-word scan-object
  16     [ run-apple-script ] curry ( -- ) define-declared ;