ITOSAScript.m

   1 /*
   2  *      ITFoundation
   3  *      ITOSAScript
   4  *          An extended NSAppleScript that allows any OSA language.
   5  *
   6  *      Original Author : Kent Sutherland <ksutherland@ithinksw.com>
   7  *      Responsibility : Kent Sutherland <ksutherland@ithinksw.com>
   8  *      Responsibility : Joseph Spiros <joseph.spiros@ithinksw.com>
   9  *
  10  *      Copyright (c) 2002 - 2004 iThink Software.
  11  *      All Rights Reserved
  12  *
  13  */
  14
  15 /*
  16 Script Subtypes:
  17     kAppleScriptSubtype - AppleScript (Default)
  18     'Jscr' - JavaScript (if installed)
  19 */
  20
  21 #import "ITOSAScript.h"
  22 #import "ITOSAComponent.h"
  23
  24 @implementation ITOSAScript
  25
  26 - (id)init
  27 {
  28     if ( (self = [super init]) ) {
  29         _source = nil;
  30     }
  31     return self;
  32 }
  33
  34 - (id)initWithContentsOfFile:(NSString *)path
  35 {
  36     if ( (self = [super init]) ) {
  37         _source = [[NSString alloc] initWithContentsOfFile:path];
  38     }
  39     return self;
  40 }
  41
  42 - (id)initWithSource:(NSString *)source
  43 {
  44     if ( (self = [super init]) ) {
  45         [self setSource:source];
  46     }
  47     return self;
  48 }
  49
  50 - (void)dealloc
  51 {
  52     [_source release];
  53     [super dealloc];
  54 }
  55
  56 - (NSString *)source
  57 {
  58     return _source;
  59 }
  60
  61 - (void)setSource:(NSString *)newSource
  62 {
  63     [_source release];
  64     _source = [newSource copy];
  65 }
  66
  67 - (ITOSAComponent *)component
  68 {
  69     return _component;
  70 }
  71
  72 - (void)setComponent:(ITOSAComponent *)newComponent
  73 {
  74     _component = newComponent;
  75 }
  76
  77 - (BOOL)compile
  78 {
  79     return NO;
  80 }
  81
  82 - (BOOL)isCompiled
  83 {
  84     return NO;
  85 }
  86
  87 - (NSString *)execute
  88 {
  89     AEDesc scriptDesc, resultDesc;
  90     Size length;
  91     NSString *result;
  92     Ptr buffer;
  93
  94     AECreateDesc(typeChar, [_source cString], [_source cStringLength], &scriptDesc);
  95
  96     OSADoScript([_component componentInstance], &scriptDesc, kOSANullScript, typeChar, kOSAModeCanInteract, &resultDesc);
  97
  98     length = AEGetDescDataSize(&resultDesc);
  99     buffer = malloc(length);
 100
 101     AEGetDescData(&resultDesc, buffer, length);
 102     AEDisposeDesc(&scriptDesc);
 103     AEDisposeDesc(&resultDesc);
 104     result = [NSString stringWithCString:buffer length:length];
 105     if (![result isEqualToString:@""] &&
 106         ([result characterAtIndex:0] == '\"') &&
 107         ([result characterAtIndex:[result length] - 1] == '\"'))
 108     {
 109         result = [result substringWithRange:NSMakeRange(1, [result length] - 2)];
 110     }
 111     free(buffer);
 112     buffer = NULL;
 113     return result;
 114 }
 115
 116 @end