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

diff --git a/basis/cocoa/apple-script/apple-script.factor b/basis/cocoa/apple-script/apple-script.factor
new file mode 100644 (file)
index 0000000..9ca06da
--- /dev/null
+++ b/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 ;

diff --git a/basis/cocoa/apple-script/platforms.txt b/basis/cocoa/apple-script/platforms.txt
new file mode 100644 (file)
index 0000000..6e806f4
--- /dev/null
+++ b/basis/cocoa/apple-script/platforms.txt
@@ -0,0 +1 @@
+macosx

diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor
index c90e238ede868337670a822dc8f80daf733efc48..6913035709ed5a1c6d3405c21f65c962c8db18ca 100644 (file)
--- a/basis/cocoa/cocoa.factor
+++ b/basis/cocoa/cocoa.factor
@@ -52,6 +52,7 @@ SYNTAX: IMPORT: scan-token [ ] import-objc-class ;
 [
     {
         "NSAlert"
+        "NSAppleScript"
         "NSApplication"
         "NSArray"
         "NSAutoreleasePool"