steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cocoa.apple-script: add APPLESCRIPT: syntax for defining words.

db4
John Benediktsson 2013-10-11 08:17:25 -07:00
parent 55f72a8568
commit 6069aef790
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/cocoa/apple-script/apple-script.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2013 John Benediktsson ! Copyright (C) 2013 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: cocoa cocoa.application cocoa.classes kernel ; USING: cocoa cocoa.application cocoa.classes kernel parser
multiline words ;
IN: cocoa.apple-script IN: cocoa.apple-script
@ -9,3 +10,7 @@ IN: cocoa.apple-script
[ NSAppleScript -> alloc ] dip [ NSAppleScript -> alloc ] dip
<NSString> -> initWithSource: -> autorelease <NSString> -> initWithSource: -> autorelease
f -> executeAndReturnError: drop ; f -> executeAndReturnError: drop ;
SYNTAX: APPLESCRIPT:
scan-new-word ";APPLESCRIPT" parse-multiline-string
[ run-apple-script ] curry ( -- ) define-declared ;