The array-returning function now compiles, but probably does not work.
[ITFoundation.git] / 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