diff options
| author | Miro Jurisic <meeroh@mit.edu> | 1998-08-28 20:22:33 +0000 |
|---|---|---|
| committer | Miro Jurisic <meeroh@mit.edu> | 1998-08-28 20:22:33 +0000 |
| commit | 6770c84427f2c47031c338ea595ee3af6d598700 (patch) | |
| tree | 0c65a24f10552a93e28c418e5fa66a8f3a096763 /src/mac/RunAppleScript.pl | |
| parent | ebbfa404a9cf148a92da428877988294c9b3eb86 (diff) | |
| download | krb5-6770c84427f2c47031c338ea595ee3af6d598700.tar.gz krb5-6770c84427f2c47031c338ea595ee3af6d598700.tar.xz krb5-6770c84427f2c47031c338ea595ee3af6d598700.zip | |
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
Diffstat (limited to 'src/mac/RunAppleScript.pl')
| -rw-r--r-- | src/mac/RunAppleScript.pl | 16 |
1 files changed, 16 insertions, 0 deletions
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; |