use Inline C => DATA =>
    LIBS => 'System/Library/Frameworks/Carbon.framework/Carbon';

@ARGV or die "usage: $0 asfile\n";
SimpleRunAppleScript($ARGV[0]);

__DATA__
__C__

#include <Carbon/Carbon.h>

#include <string.h>
#include <sys/stat.h>

/* 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).  */

static OSStatus LowRunAppleScript(const void* text, long textLength,
				  AEDesc *resultData) {
  ComponentInstance theComponent;
  AEDesc scriptTextDesc;
  OSStatus err;
  OSAID scriptID, resultID;

  /* set up locals to a known state */
  theComponent = NULL;
  AECreateDesc(typeNull, NULL, 0, &scriptTextDesc);
  scriptID = kOSANullScript;
  resultID = kOSANullScript;

  /* open the scripting component */
  theComponent = OpenDefaultComponent(kOSAComponentType,
				      typeAppleScript);
  if (theComponent == NULL) { err = paramErr; goto bail; }

  /* put the script text into an aedesc */
  err = AECreateDesc(typeChar, text, textLength, &scriptTextDesc);
  if (err != noErr) goto bail;

  /* compile the script */
  err = OSACompile(theComponent, &scriptTextDesc,
		   kOSAModeNull, &scriptID);
  if (err != noErr) goto bail;

  /* run the script */
  err = OSAExecute(theComponent, scriptID, kOSANullScript,
		   kOSAModeNull, &resultID);

  /* collect the results - if any */
  if (resultData != NULL) {
    AECreateDesc(typeNull, NULL, 0, resultData);
    if (err == errOSAScriptError) {
      OSAScriptError(theComponent, kOSAErrorMessage,
		     typeChar, resultData);
    } else if (err == noErr && resultID != kOSANullScript) {
      OSADisplay(theComponent, resultID, typeChar,
		 kOSAModeNull, resultData);
    }
  }
 bail:
  AEDisposeDesc(&scriptTextDesc);
  if (scriptID != kOSANullScript) OSADispose(theComponent, scriptID);
  if (resultID != kOSANullScript) OSADispose(theComponent, resultID);
  if (theComponent != NULL) CloseComponent(theComponent);
  return err;
}

OSStatus SimpleRunAppleScript(const char* theScript) {
  return LowRunAppleScript(theScript, strlen(theScript), NULL);
}

/* example:
   SimpleRunAppleScript(
   "tell application \"Finder\"\n"
   "  activate\n"
   "  select folder \"Documents\" of startup disk\n"
   "  open selection\n"
   "end tell");
*/