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 - (NSString*)sendAEWithRequestedKey:(NSString*)key eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
  32 {
  33     //Add error checking...
  34     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
  35     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
  36
  37     const char *sendString = [[NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%s'), from:'null'() }", [key UTF8String]] UTF8String];
  38     NSString  *_finalString = nil;
  39
  40     AppleEvent sendEvent, replyEvent;
  41     AEIdleUPP upp = NewAEIdleUPP(&MyAEIdleCallback);
  42
  43     DescType resultType;
  44     Size resultSize, charResultSize;
  45
  46     AEBuildError buildError;
  47     OSStatus err;
  48     OSErr err2, err3;
  49     /*
  50     if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
  51         NSLog(@"Error getting PID of application! Exiting.");
  52         return nil;
  53     }
  54     */
  55     //NSLog(@"_sendString: %s", sendString);
  56
  57     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
  58
  59     //[self printCarbonDesc:&sendEvent];
  60
  61     if (err) {
  62         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
  63     }
  64
  65     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, upp, NULL);
  66
  67     //[self printCarbonDesc:&replyEvent];
  68
  69     if (err) {
  70         NSLog(@"Send Error: %i",err);
  71     } else {
  72         unichar *result = 0;
  73
  74         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
  75         result = malloc(resultSize);
  76
  77         if (err2) {
  78             NSLog(@"Error After AESizeOfParam: %i", err2);
  79         } else {
  80             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
  81
  82             if (err3) {
  83                 NSLog(@"Error After AEGetParamPtr: %i", err3);
  84             } else {
  85                 _finalString = [[NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)] copy];
  86             }
  87         }
  88         free(result);
  89     }
  90
  91     AEDisposeDesc(&sendEvent);
  92     AEDisposeDesc(&replyEvent);
  93
  94     return _finalString;
  95 }
  96
  97 - (long)sendAEWithRequestedKeyForNumber:(NSString*)key eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
  98 {
  99     //Add error checking...
 100     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 101     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 102
 103     const char *sendString = [[NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%s'), from:'null'() }", [key UTF8String]] UTF8String];
 104     long result = 0;
 105
 106     AppleEvent sendEvent, replyEvent;
 107     AEIdleUPP upp = NewAEIdleUPP(&MyAEIdleCallback);
 108
 109     DescType resultType;
 110     Size resultSize, charResultSize;
 111
 112     AEBuildError buildError;
 113     OSStatus err;
 114     OSErr err2, err3;
 115     /*
 116     if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 117         NSLog(@"Error getting PID of application! Exiting.");
 118         return nil;
 119     }
 120     */
 121     //NSLog(@"_sendString: %s", sendString);
 122
 123     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 124
 125     //[self printCarbonDesc:&sendEvent];
 126
 127     if (err) {
 128         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
 129     }
 130
 131     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, upp, NULL);
 132
 133     [self printCarbonDesc:&replyEvent];
 134
 135     if (err) {
 136         NSLog(@"Send Error: %i",err);
 137     } else {
 138         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 139
 140         if (err2) {
 141             NSLog(@"Error After AESizeOfParam: %i", err2);
 142         } else {
 143             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, &result, resultSize, &charResultSize);
 144
 145             if (err3) {
 146                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 147             } else {
 148                 NSLog(@"%i", result);
 149             }
 150         }
 151     }
 152
 153     AEDisposeDesc(&sendEvent);
 154     AEDisposeDesc(&replyEvent);
 155
 156     return result;
 157 }
 158
 159 - (NSString*)sendTwoTierAEWithRequestedKey:(NSString*)key fromObjectByKey:(NSString*)object eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 160 {
 161     //Add error checking...
 162     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 163     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 164
 165     const char *sendString = [[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]] UTF8String];
 166     NSString  *_finalString = nil;
 167
 168     AppleEvent sendEvent, replyEvent;
 169     AEIdleUPP upp = NewAEIdleUPP(&MyAEIdleCallback);
 170
 171     DescType resultType;
 172     Size resultSize, charResultSize;
 173
 174     AEBuildError buildError;
 175     OSStatus err;
 176     OSErr err2, err3;
 177     /*
 178     if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 179         NSLog(@"Error getting PID of application! Exiting.");
 180         return nil;
 181     }*/
 182
 183     //NSLog(@"_sendString: %s", sendString);
 184
 185     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 186
 187     //[self printCarbonDesc:&sendEvent];
 188
 189     if (err) {
 190         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
 191     }
 192
 193     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, upp, NULL);
 194
 195     //[self printCarbonDesc:&replyEvent];
 196
 197     if (err) {
 198         NSLog(@"Send Error: %i",err);
 199     } else {
 200         unichar *result = 0;
 201
 202         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 203         result = malloc(resultSize);
 204
 205         if (err2) {
 206             NSLog(@"Error After AESizeOfParam: %i", err2);
 207         } else {
 208             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
 209
 210             if (err3) {
 211                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 212             } else {
 213                 _finalString = [[NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)] copy];
 214             }
 215         }
 216         free(result);
 217     }
 218
 219     AEDisposeDesc(&sendEvent);
 220     AEDisposeDesc(&replyEvent);
 221
 222     return _finalString;
 223 }
 224
 225 - (long)sendTwoTierAEWithRequestedKeyForNumber:(NSString*)key fromObjectByKey:(NSString*)object eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 226 {
 227     //Add error checking...
 228     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 229     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 230
 231     const char *sendString = [[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]] UTF8String];
 232     long result = 0;
 233
 234     AppleEvent sendEvent, replyEvent;
 235     AEIdleUPP upp = NewAEIdleUPP(&MyAEIdleCallback);
 236
 237     DescType resultType;
 238     Size resultSize, charResultSize;
 239
 240     AEBuildError buildError;
 241     OSStatus err;
 242     OSErr err2, err3;
 243     /*
 244     if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 245         NSLog(@"Error getting PID of application! Exiting.");
 246         return nil;
 247     }
 248     */
 249    // NSLog(@"_sendString: %s", sendString);
 250
 251     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 252
 253     //[self printCarbonDesc:&sendEvent];
 254
 255     if (err) {
 256         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
 257     }
 258
 259     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, upp, NULL);
 260
 261     [self printCarbonDesc:&replyEvent];
 262
 263     if (err) {
 264         NSLog(@"Send Error: %i",err);
 265     } else {
 266         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 267
 268         if (err2) {
 269             NSLog(@"Error After AESizeOfParam: %i", err2);
 270         } else {
 271             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, &result, resultSize, &charResultSize);
 272
 273             if (err3) {
 274                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 275             } else {
 276                 NSLog(@"%i", result);
 277             }
 278         }
 279     }
 280
 281     AEDisposeDesc(&sendEvent);
 282     AEDisposeDesc(&replyEvent);
 283
 284     return result;
 285 }
 286
 287 - (NSString *)sendAEWithRequestedArray:(NSArray *)array eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 288 {
 289     NSString *buildString = [NSString stringWithFormat:@"{ form:'prop', want:type('prop'), seld:type('%s'), from:'null'() }", [[array objectAtIndex:0] UTF8String]];
 290     const char *sendString;
 291     int i;
 292     NSString  *_finalString = nil;
 293
 294     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 295     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 296
 297     AppleEvent sendEvent, replyEvent;
 298     AEIdleUPP upp = NewAEIdleUPP(&MyAEIdleCallback);
 299
 300     DescType resultType;
 301     Size resultSize, charResultSize;
 302
 303     AEBuildError buildError;
 304     OSStatus err;
 305     OSErr err2, err3;
 306
 307     for (i = 1; i < [array count]; i++) {
 308         NSString *from = [NSString stringWithFormat:@"{ form:'prop', want:type('prop'), seld:type('%s'), from:obj %@ }",
 309                     [[array objectAtIndex:i] UTF8String], buildString];
 310         buildString = from;
 311     }
 312     buildString = [@"'----':obj " stringByAppendingString:buildString];
 313     sendString = [buildString UTF8String];
 314     /*
 315     if ((GetProcessPID(&psn, &pid) == noErr) && (pid == 0)) {
 316         NSLog(@"Error getting PID of application! Exiting.");
 317         return nil;
 318     }
 319     */
 320     //NSLog(@"_sendString: %s", sendString);
 321
 322     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 323
 324     //[self printCarbonDesc:&sendEvent];
 325
 326     if (err) {
 327         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
 328     }
 329
 330     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, upp, NULL);
 331
 332     //[self printCarbonDesc:&replyEvent];
 333
 334     if (err) {
 335         NSLog(@"Send Error: %i",err);
 336     } else {
 337         unichar *result = 0;
 338
 339         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
 340         result=malloc(resultSize);
 341
 342         if (err2) {
 343             NSLog(@"Error After AESizeOfParam: %i", err2);
 344         } else {
 345             err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
 346             if (err3) {
 347                 NSLog(@"Error After AEGetParamPtr: %i", err3);
 348             } else {
 349                 _finalString = [[NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)] copy];
 350             }
 351         }
 352         free(result);
 353     }
 354     return _finalString;
 355 }
 356
 357 - (void)sendAEWithEventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 358 {
 359     //Add error checking...
 360     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 361     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 362     AEDesc dest;
 363     AppleEvent event, reply;
 364
 365     //AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, kAnyTransactionID, &event, nil, "");
 366     AECreateDesc(typeProcessSerialNumber,(ProcessSerialNumber*)&psn,sizeof(ProcessSerialNumber),&dest);
 367     AECreateAppleEvent(eClass,eID,&dest,kAutoGenerateReturnID,kAnyTransactionID,&event);
 368     AESend(&event, &reply, kAENoReply, kAENormalPriority, kAEDefaultTimeout, nil, nil);
 369
 370     AEDisposeDesc(&dest);
 371     AEDisposeDesc(&event);
 372     AEDisposeDesc(&reply);
 373 }
 374
 375 - (void)printCarbonDesc:(AEDesc*)desc {
 376     Handle xx;
 377     AEPrintDescToHandle(desc,&xx);
 378     NSLog(@"Handle: %s", *xx);
 379     DisposeHandle(xx);
 380 }
 381
 382
 383 - (AEArrayDataPointer)sendAEWithRequestedKeyForArray:(NSString*)key eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
 384 {
 385     //Add error checking...
 386     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
 387     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
 388
 389     const char *sendString = [[NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%s'), from:'null'() }", [key UTF8String]] UTF8String];
 390     AEArrayDataPointer result = nil;
 391
 392     AppleEvent sendEvent, replyEvent;
 393     AEIdleUPP upp = NewAEIdleUPP(&MyAEIdleCallback);
 394
 395     DescType resultType;
 396     Size resultSize, charResultSize;
 397
 398     AEBuildError buildError;
 399     OSStatus err;
 400     OSErr err2, err3;
 401
 402     //NSLog(@"_sendString: %s", sendString);
 403
 404     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
 405
 406     //[self printCarbonDesc:&sendEvent];
 407
 408     if (err) {
 409         NSLog(@"%d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
 410     }
 411
 412     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, upp, NULL);
 413
 414     //[self printCarbonDesc:&replyEvent];
 415
 416     if (err) {
 417         NSLog(@"Send Error: %i",err);
 418     } else {
 419            SInt32 count, resultCount;
 420
 421            AECountItems(&replyEvent,&count);
 422            result=malloc(sizeof(AEDesc)*count);
 423            AEGetArray(&replyEvent, kAEDescArray, result, sizeof(AEDesc)*count, NULL, NULL, &resultCount);
 424
 425         free(result);
 426     }
 427
 428     AEDisposeDesc(&sendEvent);
 429     AEDisposeDesc(&replyEvent);
 430
 431     return result;
 432 }
 433
 434 @end