view release on metacpan or  search on metacpan

AppleScript.xs  view on Meta::CPAN

#include "perl.h"
#include "XSUB.h"

/* Based on Apple code from
   http://developer.apple.com/qa/qa2001/qa1026.html */

MODULE = Mac::AppleScript		PACKAGE = Mac::AppleScript		

SV *
RunAppleScript(SV *text)
PPCODE:
{
    ComponentInstance theComponent;
    AEDesc scriptTextDesc;
    AEDesc resultData;
    OSStatus err = noErr;
    OSAID scriptID, resultID;
    SV *returnSV;
    
    /* set up locals to a known state */
    theComponent = NULL;