cocoa.apple-script: adding a simple applescript runner.

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

@@ -0,0 +1,11 @@
+! Copyright (C) 2013 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: cocoa cocoa.application cocoa.classes kernel ;
+
+IN: cocoa.apple-script
+
+: run-apple-script ( str -- )
+    [ NSAppleScript -> alloc ] dip
+    <NSString> -> initWithSource: -> autorelease
+    f -> executeAndReturnError: drop ;

basis/cocoa/apple-script/platforms.txt

@@ -0,0 +1 @@
+macosx

basis/cocoa/cocoa.factor

@@ -52,6 +52,7 @@ SYNTAX: IMPORT: scan-token [ ] import-objc-class ;
 [
     {
         "NSAlert"
+        "NSAppleScript"
         "NSApplication"
         "NSArray"
         "NSAutoreleasePool"