From 6770c84427f2c47031c338ea595ee3af6d598700 Mon Sep 17 00:00:00 2001
From: Miro Jurisic <meeroh@mit.edu>
Date: Fri, 28 Aug 1998 20:22:33 +0000
Subject: Added perl and AppleScript stuff to automagically build CW projects

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@10893 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/mac/RunAppleScript.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/mac/RunAppleScript.pl

(limited to 'src/mac/RunAppleScript.pl')

diff --git a/src/mac/RunAppleScript.pl b/src/mac/RunAppleScript.pl
new file mode 100644
index 000000000..8a4828b89
--- /dev/null
+++ b/src/mac/RunAppleScript.pl
@@ -0,0 +1,16 @@
+use Mac::Components;
+use Mac::OSA;
+use Mac::AppleEvents;
+
+undef $/;
+
+$applescript = OpenDefaultComponent(kOSAComponentType, "ascr") or die "AppleScript not installed";
+$script = AECreateDesc "TEXT", <STDIN>;
+
+$result = OSADoScript($applescript, $script, 0, "TEXT", 0) or die $^E;
+
+print AEPrint($result), "\n";
+
+AEDisposeDesc $result;
+AEDisposeDesc $script;
+CloseComponent $applescript;
-- 
cgit