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

! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license

USING: cocoa cocoa.application cocoa.classes kernel parser
multiline words ;

IN: cocoa.apple-script

: run-apple-script ( str -- )
    [ NSAppleScript -> alloc ] dip
    <NSString> -> initWithSource: -> autorelease
    f -> executeAndReturnError: drop ;

SYNTAX: APPLESCRIPT:
    scan-new-word ";APPLESCRIPT" parse-multiline-string
    [ run-apple-script ] curry ( -- ) define-declared ;