From 55f72a8568b55ce5bcd029aafed838914ac8f303 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 10 Oct 2013 15:52:05 -0700
Subject: [PATCH] cocoa.apple-script: adding a simple applescript runner.

---
 basis/cocoa/apple-script/apple-script.factor | 11 +++++++++++
 basis/cocoa/apple-script/platforms.txt       |  1 +
 basis/cocoa/cocoa.factor                     |  1 +
 3 files changed, 13 insertions(+)
 create mode 100644 basis/cocoa/apple-script/apple-script.factor
 create mode 100644 basis/cocoa/apple-script/platforms.txt

diff --git a/basis/cocoa/apple-script/apple-script.factor b/basis/cocoa/apple-script/apple-script.factor
new file mode 100644
index 0000000000..9ca06dab34
--- /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
index 0000000000..6e806f449e
--- /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 c90e238ede..6913035709 100644
--- 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"