17 lines
485 B
Factor
17 lines
485 B
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 ;
|