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

17 lines
472 B
Factor
Raw Normal View History

! 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 send\ alloc ] dip
<NSString> send\ initWithSource: send\ autorelease
f send\ executeAndReturnError: drop ;
2017-08-26 15:20:04 -04:00
SYNTAX: \APPLESCRIPT:
scan-new-word scan-object
[ run-apple-script ] curry ( -- ) define-declared ;