AppleScript 0.1 → 0.1.3

raw patch · 2 files changed

+48/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• AppleScript.cabal +3/−2
• cbits/RunScript.h +45/−0

@@ -1,5 +1,5 @@ Name:			AppleScript-Version:		0.1+Version:		0.1.3 License:		BSD3 License-file:		LICENSE Author:			Wouter Swierstra@@ -13,8 +13,9 @@ Extra-source-files:	examples/HelloThere.hs 			, examples/OpenLocation.hs 			, examples/TextFields.hs+		        , cbits/RunScript.h Include-Dirs: 		cbits-C-Sources: 		cbits/RunScript.c +C-Sources: 		cbits/RunScript.c Frameworks: 		Carbon Ghc-Options: 		-ffi Extensions: 		CPP, ForeignFunctionInterface

@@ -0,0 +1,45 @@+#ifndef __RUNSCRIPT__+#define __RUNSCRIPT__++#if TARGET_API_MAC_CARBON++#ifdef __APPLE_CC__+#include <Carbon/Carbon.h>+#else+#include <Carbon.h>+#endif++#else++#include <Types.h>+#include <AppleEvents.h>++#endif++++#ifdef __cplusplus+extern "C" {+#endif++/* AppleScriptAvailable returns true if AppleScript is available. */+Boolean AppleScriptAvailable(void);+++/* LowRunAppleScript compiles and runs an AppleScript provided as+text in the buffer pointed to by text.  textLength bytes will be+compiled from this buffer and run as an AppleScript using all of the+default environment and execution settings.  If resultData is not+NULL, then the result returned by the execution command will be+returned as typeChar in this descriptor record (or typeNull if there+is no result information).  If the function returns+errOSAScriptError, then resultData will be set to a descriptive+error message describing the error (if one is available).  */+OSStatus LowRunAppleScript(const void* text, long textLength, AEDesc *resultData);+++#ifdef __cplusplus+}+#endif++#endif