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