ITAppleEventCenter.m

   1 #import "ITAppleEventCenter.h"
   2
   3 Boolean MyAEIdleCallback (
   4                                          EventRecord * theEvent,
   5                                          SInt32 * sleepTime,
   6                                          RgnHandle * mouseRgn
   7                                          );
   8
   9 Boolean MyAEIdleCallback (
  10                                          EventRecord * theEvent,
  11                                          SInt32 * sleepTime,
  12                                          RgnHandle * mouseRgn
  13                                          )
  14 {
  15     return FALSE;
  16 }
  17
  18 @implementation ITAppleEventCenter
  19
  20 static ITAppleEventCenter *_sharedAECenter = nil;
  21
  22 + (id)sharedCenter
  23 {
  24     if( _sharedAECenter ) {
  25         return _sharedAECenter;
  26     } else {
  27         return _sharedAECenter = [[ITAppleEventCenter alloc] init];
  28     }
  29 }
  30
  31 - (id)init
  32 {
  33     if (self = [super init])
  34            {
  35            idleUPP = NewAEIdleUPP(MyAEIdleCallback);
  36            }
  37     return self;
  38 }
  39
  40 - (void)dealloc
  41 {
  42     DisposeAEIdleUPP(idleUPP);
  43 }
  44
  45 - (NSString*)sendAEWithRequestedKey:(NSString*)key eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
  46 {
  47     //Add error checking...
  48     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
  49     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
  50
  51     NSString *nssendString = [NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%s'), from:'null'() }", [key UTF8String]];
  52     const char *sendString = [nssendString UTF8String];
  53     NSString  *_finalString = nil;
  54
  55     AppleEvent sendEvent, replyEvent;
  56
  57     DescType resultType;
  58     Size resultSize, charResultSize;
  59
  60     AEBuildError buildError;
  61     OSStatus err;
  62     OSErr err2, err3;
  63     /*
  64         if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
  65             NSLog(@"Error getting PID of application! Exiting.");
  66             return nil;
  67         }
  68         */
  69     //NSLog(@"_sendString: %s", sendString);
  70
  71     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
  72
  73     [self printCarbonDesc:&sendEvent];
  74
  75     if (err) {
  76         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[nssendString substringToIndex:buildError.fErrorPos]);
  77     }
  78
  79     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
  80
  81     [self printCarbonDesc:&replyEvent];
  82
  83     if (err) {
  84         NSLog(@"Send Error: %i",err);
  85     } else {
  86         unichar *result = 0;
  87
  88         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
  89         result = malloc(resultSize);
  90
  91         if (err2) {
  92             NSLog(@"Error After AESizeOfParam: %i", err2);
  93         } else {
  94             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
  95
  96             if (err3) {
  97                 NSLog(@"Error After AEGetParamPtr: %i", err3);
  98             } else {
  99                 _finalString = [NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)];
 100             }
 101         }
 102         free(result);
 103     }
 104
 105     AEDisposeDesc(&sendEvent);
 106     AEDisposeDesc(&replyEvent);
 107
 108     return _finalString;
 109 }
 110
 111 - (NSString*)sendAEWithSendString:(NSString*)nssendString eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 112 {
 113     //Add error checking...
 114     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 115     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 116
 117     const char *sendString = [nssendString UTF8String];
 118     NSString  *_finalString = nil;
 119
 120     AppleEvent sendEvent, replyEvent;
 121
 122     DescType resultType;
 123     Size resultSize, charResultSize;
 124
 125     AEBuildError buildError;
 126     OSStatus err;
 127     OSErr err2, err3;
 128     /*
 129         if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 130             NSLog(@"Error getting PID of application! Exiting.");
 131             return nil;
 132         }
 133         */
 134     //NSLog(@"_sendString: %s", sendString);
 135
 136     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 137
 138     [self printCarbonDesc:&sendEvent];
 139
 140     if (err) {
 141         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[nssendString substringToIndex:buildError.fErrorPos]);
 142     }
 143
 144     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
 145
 146     [self printCarbonDesc:&replyEvent];
 147
 148     if (err) {
 149         NSLog(@"Send Error: %i",err);
 150     } else {
 151         unichar *result = 0;
 152
 153         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 154         result = malloc(resultSize);
 155
 156         if (err2) {
 157             NSLog(@"Error After AESizeOfParam: %i", err2);
 158         } else {
 159             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
 160
 161             if (err3) {
 162                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 163             } else {
 164                 _finalString = [NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)];
 165             }
 166         }
 167         free(result);
 168     }
 169
 170     AEDisposeDesc(&sendEvent);
 171     AEDisposeDesc(&replyEvent);
 172
 173     return _finalString;
 174 }
 175
 176 - (long)sendAEWithRequestedKeyForNumber:(NSString*)key eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 177 {
 178     //Add error checking...
 179     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 180     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 181
 182     NSString *nssendString = [NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%s'), from:'null'() }", [key UTF8String]];
 183     const char *sendString = [nssendString UTF8String];
 184     long result = 0;
 185
 186     AppleEvent sendEvent, replyEvent;
 187
 188     DescType resultType;
 189     Size resultSize, charResultSize;
 190
 191     AEBuildError buildError;
 192     OSStatus err;
 193     OSErr err2, err3;
 194     /*
 195         if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 196             NSLog(@"Error getting PID of application! Exiting.");
 197             return nil;
 198         }
 199         */
 200     //NSLog(@"_sendString: %s", sendString);
 201
 202     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 203
 204     [self printCarbonDesc:&sendEvent];
 205
 206     if (err) {
 207         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[nssendString substringToIndex:buildError.fErrorPos]);
 208     }
 209
 210     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
 211
 212     [self printCarbonDesc:&replyEvent];
 213
 214     if (err) {
 215         NSLog(@"Send Error: %i",err);
 216     } else {
 217         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 218
 219         if (err2) {
 220             NSLog(@"Error After AESizeOfParam: %i", err2);
 221         } else {
 222             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, &result, resultSize, &charResultSize);
 223
 224             if (err3) {
 225                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 226             }
 227         }
 228     }
 229
 230     AEDisposeDesc(&sendEvent);
 231     AEDisposeDesc(&replyEvent);
 232
 233     return result;
 234 }
 235
 236 - (NSString*)sendTwoTierAEWithRequestedKey:(NSString*)key fromObjectByKey:(NSString*)object eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 237 {
 238     //Add error checking...
 239     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 240     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 241
 242     NSString *nssendString = [NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%s'), from:obj { form:'prop', want:type('prop'), seld:type('%s'), from:'null'() } }", [key UTF8String], [object UTF8String]];
 243     const char *sendString = [nssendString UTF8String];
 244     NSString  *_finalString = nil;
 245
 246     AppleEvent sendEvent, replyEvent;
 247
 248     DescType resultType;
 249     Size resultSize, charResultSize;
 250
 251     AEBuildError buildError;
 252     OSStatus err;
 253     OSErr err2, err3;
 254     /*
 255         if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 256             NSLog(@"Error getting PID of application! Exiting.");
 257             return nil;
 258         }*/
 259
 260     //NSLog(@"_sendString: %s", sendString);
 261
 262     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 263
 264     [self printCarbonDesc:&sendEvent];
 265
 266     if (err) {
 267         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[nssendString substringToIndex:buildError.fErrorPos]);
 268     }
 269
 270     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
 271
 272     [self printCarbonDesc:&replyEvent];
 273
 274     if (err) {
 275         NSLog(@"Send Error: %i",err);
 276     } else {
 277         unichar *result = 0;
 278
 279         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 280         result = malloc(resultSize);
 281
 282         if (err2) {
 283             NSLog(@"Error After AESizeOfParam: %i", err2);
 284         } else {
 285             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
 286
 287             if (err3) {
 288                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 289             } else {
 290                 _finalString = [NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)];
 291             }
 292         }
 293         free(result);
 294     }
 295
 296     AEDisposeDesc(&sendEvent);
 297     AEDisposeDesc(&replyEvent);
 298
 299     return _finalString;
 300 }
 301
 302 - (long)sendTwoTierAEWithRequestedKeyForNumber:(NSString*)key fromObjectByKey:(NSString*)object eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 303 {
 304     //Add error checking...
 305     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 306     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 307
 308     NSString *nssendString = [NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%s'), from:obj { form:'prop', want:type('prop'), seld:type('%s'), from:'null'() } }", [key UTF8String], [object UTF8String]];
 309     const char *sendString = [nssendString UTF8String];
 310     long result = 0;
 311
 312     AppleEvent sendEvent, replyEvent;
 313
 314     DescType resultType;
 315     Size resultSize, charResultSize;
 316
 317     AEBuildError buildError;
 318     OSStatus err;
 319     OSErr err2, err3;
 320     /*
 321         if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 322             NSLog(@"Error getting PID of application! Exiting.");
 323             return nil;
 324         }
 325         */
 326     // NSLog(@"_sendString: %s", sendString);
 327
 328     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 329
 330     [self printCarbonDesc:&sendEvent];
 331
 332     if (err) {
 333         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[nssendString substringToIndex:buildError.fErrorPos]);
 334     }
 335
 336     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
 337
 338     [self printCarbonDesc:&replyEvent];
 339
 340     if (err) {
 341         NSLog(@"Send Error: %i",err);
 342     } else {
 343         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 344
 345         if (err2) {
 346             NSLog(@"Error After AESizeOfParam: %i", err2);
 347         } else {
 348             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, &result, resultSize, &charResultSize);
 349
 350             if (err3) {
 351                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 352             }
 353         }
 354     }
 355
 356     AEDisposeDesc(&sendEvent);
 357     AEDisposeDesc(&replyEvent);
 358
 359     return result;
 360 }
 361
 362 - (NSString *)sendAEWithRequestedArray:(NSArray *)array eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 363 {
 364     NSString *buildString = [NSString stringWithFormat:@"{ form:'prop', want:type('prop'), seld:type('%s'), from:'null'() }", [[array objectAtIndex:0] UTF8String]];
 365     const char *sendString;
 366     int i;
 367     NSString  *_finalString = nil;
 368
 369     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 370     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 371
 372     AppleEvent sendEvent, replyEvent;
 373
 374     DescType resultType;
 375     Size resultSize, charResultSize;
 376
 377     AEBuildError buildError;
 378     OSStatus err;
 379     OSErr err2, err3;
 380
 381     for (i = 1; i < [array count]; i++) {
 382         NSString *from = [NSString stringWithFormat:@"{ form:'prop', want:type('prop'), seld:type('%s'), from:obj %@ }",
 383                   [[array objectAtIndex:i] UTF8String], buildString];
 384         buildString = from;
 385     }
 386     buildString = [@"'----':obj " stringByAppendingString:buildString];
 387     sendString = [buildString UTF8String];
 388     /*
 389         if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 390             NSLog(@"Error getting PID of application! Exiting.");
 391             return nil;
 392         }
 393         */
 394     //NSLog(@"_sendString: %s", sendString);
 395
 396     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 397
 398     [self printCarbonDesc:&sendEvent];
 399
 400     if (err) {
 401         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[buildString substringToIndex:buildError.fErrorPos]);
 402     }
 403
 404     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
 405
 406     [self printCarbonDesc:&replyEvent];
 407
 408     if (err) {
 409         NSLog(@"Send Error: %i",err);
 410     } else {
 411         unichar *result = 0;
 412
 413         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 414         result=malloc(resultSize);
 415
 416         if (err2) {
 417             NSLog(@"Error After AESizeOfParam: %i", err2);
 418         } else {
 419             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
 420             if (err3) {
 421                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 422             } else {
 423                 _finalString = [NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)];
 424             }
 425         }
 426         free(result);
 427     }
 428     return _finalString;
 429 }
 430
 431 - (void)sendAEWithEventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 432 {
 433     //Add error checking...
 434     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 435     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 436     AEDesc dest;
 437     AppleEvent event, reply;
 438
 439     //AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, kAnyTransactionID, &event, nil, "");
 440     AECreateDesc(typeProcessSerialNumber,(ProcessSerialNumber*)&psn,sizeof(ProcessSerialNumber),&dest);
 441     AECreateAppleEvent(eClass,eID,&dest,kAutoGenerateReturnID,kAnyTransactionID,&event);
 442     AESend(&event, &reply, kAENoReply, kAENormalPriority, kAEDefaultTimeout, idleUPP, nil);
 443
 444     AEDisposeDesc(&dest);
 445     AEDisposeDesc(&event);
 446     AEDisposeDesc(&reply);
 447 }
 448
 449 - (void)printCarbonDesc:(AEDesc*)desc {
 450     Handle xx;
 451     AEPrintDescToHandle(desc,&xx);
 452     NSLog(@"Handle: %s", *xx);
 453     DisposeHandle(xx);
 454 }
 455
 456
 457 - (AEArrayDataPointer)sendAEWithRequestedKeyForArray:(NSString*)key eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 458 {
 459     //Add error checking...
 460     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 461     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 462
 463     NSString *nssendString = [NSString stringWithFormat:@"'----':obj { form:'indx', want:'%s', seld:abso($616C6C20$), from:'null'() }", [key UTF8String]];
 464     const char *sendString = [nssendString UTF8String];
 465     AEArrayDataPointer result = nil;
 466
 467     AppleEvent sendEvent, replyEvent;
 468
 469
 470     AEBuildError buildError;
 471     OSStatus err;
 472
 473     //NSLog(@"_sendString: %s", sendString);
 474
 475     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 476
 477     [self printCarbonDesc:&sendEvent];
 478
 479     if (err) {
 480         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[nssendString substringToIndex:buildError.fErrorPos]);
 481     }
 482
 483     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
 484
 485     [self printCarbonDesc:&replyEvent];
 486
 487     if (err) {
 488         NSLog(@"Send Error: %i",err);
 489     } else {
 490            SInt32 count, resultCount;
 491
 492            AECountItems(&replyEvent,&count);
 493            result=malloc(sizeof(AEDesc)*count);
 494            AEGetArray(&replyEvent, kAEDescArray, result, sizeof(AEDesc)*count, NULL, NULL, &resultCount);
 495
 496         free(result);
 497     }
 498
 499     AEDisposeDesc(&sendEvent);
 500     AEDisposeDesc(&replyEvent);
 501
 502     return result;
 503 }
 504
 505 - (long)sendAEWithSendStringForNumber:(NSString*)string eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 506 {
 507     //Add error checking...
 508     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 509     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 510
 511     const char *sendString = [string UTF8String];
 512     SInt32 result = 0;
 513
 514     AppleEvent sendEvent, replyEvent;
 515
 516     DescType resultType;
 517     Size resultSize, charResultSize;
 518
 519     AEBuildError buildError;
 520     OSStatus err;
 521     OSErr err2, err3;
 522     /*
 523         if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 524             NSLog(@"Error getting PID of application! Exiting.");
 525             return nil;
 526         }
 527         */
 528     //NSLog(@"_sendString: %s", sendString);
 529
 530     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 531
 532     [self printCarbonDesc:&sendEvent];
 533
 534     if (err) {
 535         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[string substringToIndex:buildError.fErrorPos]);
 536     }
 537
 538     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
 539
 540     [self printCarbonDesc:&replyEvent];
 541
 542     if (err) {
 543         NSLog(@"Send Error: %i",err);
 544     } else {
 545         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 546
 547         if (err2) {
 548             NSLog(@"Error After AESizeOfParam: %i", err2);
 549         } else {
 550             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, &result, resultSize, &charResultSize);
 551
 552             if (err3) {
 553                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 554             }
 555         }
 556     }
 557
 558
 559 AEDisposeDesc(&sendEvent);
 560 AEDisposeDesc(&replyEvent);
 561 NSLog(@"waffles say %d",result);
 562 return result;
 563 }
 564
 565 - (AEArrayDataPointer)sendAEWithSendStringForArray:(NSString*)string eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 566 {
 567     //Add error checking...
 568     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 569     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 570
 571     const char *sendString = [string UTF8String];
 572     AEArrayDataPointer result = NULL;
 573
 574     AppleEvent sendEvent, replyEvent;
 575
 576     AEBuildError buildError;
 577     OSStatus err;
 578     /*
 579         if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 580             NSLog(@"Error getting PID of application! Exiting.");
 581             return nil;
 582         }
 583         */
 584     //NSLog(@"_sendString: %s", sendString);
 585
 586     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 587
 588     [self printCarbonDesc:&sendEvent];
 589
 590     if (err) {
 591         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[string substringToIndex:buildError.fErrorPos]);
 592     }
 593
 594     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, idleUPP, NULL);
 595
 596     [self printCarbonDesc:&replyEvent];
 597
 598     if (err) {
 599         NSLog(@"Send Error: %i",err);
 600     } else {
 601            SInt32 count, resultCount;
 602
 603            AECountItems(&replyEvent,&count);
 604            result=malloc(sizeof(AEDesc)*count);
 605            AEGetArray(&replyEvent, kAEDescArray, result, sizeof(AEDesc)*count, NULL, NULL, &resultCount);
 606
 607         free(result);
 608     }
 609
 610     AEDisposeDesc(&sendEvent);
 611     AEDisposeDesc(&replyEvent);
 612
 613     return result;
 614 }
 615 @end