Simplifying ITAppleEventCenter
[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         _sharedAECenter = [[ITAppleEventCenter alloc] init];
28         return _sharedAECenter;
29     }
30 }
31
32 - (NSString*)sendAEWithRequestedKey:(NSString*)key eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
33 {
34     /*if ( (!key) || (!eventClass) || (!eventID) || (psn.highLongOfPSN == kNoProcess) ) {
35         return @"";
36     } else*/ {
37     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
38     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
39     
40     const char *sendString = [[NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%s'), from:'null'() }", [key UTF8String]] UTF8String];
41     NSString  *_finalString;
42     
43     AppleEvent sendEvent, replyEvent;
44     AEIdleUPP upp = NewAEIdleUPP(&MyAEIdleCallback);
45     
46     char *charResult;
47     DescType resultType;
48     Size resultSize, charResultSize;
49     int pid;
50     
51     AEBuildError buildError;
52     OSStatus err;
53     OSErr err2, err3;
54     
55     if (GetProcessPID(&psn, &pid) == noErr) {
56         if (pid ==0) {
57             NSLog(@"Process doesn't exist! Exiting.");
58             return nil;
59         }
60     } else {
61         NSLog(@"Error getting PID of application to send to! Exiting.");
62         return nil;
63     }
64     
65     NSLog(@"_sendString: %s", sendString);
66     
67     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
68     
69     [self printCarbonDesc:&sendEvent];
70     
71     if (err) {
72         NSLog(@"%d:%d at \"%@\"",buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
73     }
74     
75     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, upp, NULL);
76     
77     [self printCarbonDesc:&replyEvent];
78     
79     if (err) {
80         NSLog(@"Send Error: %i",err);
81     } else {
82
83         unichar* result=0;
84         
85         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
86         result=malloc(resultSize);
87         
88         if (resultType == typeUInt32) {
89             NSLog(@"waffles");
90         }
91         
92         if (err2) { NSLog(@"Error After AESizeOfParam: %i", err2); } else {
93         
94         err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
95         
96         if (err3) { NSLog(@"Error After AEGetParamPtr: %i", err3); } else {
97         
98         _finalString = [[NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)] copy];
99         
100         }
101         }
102     }
103     
104     AEDisposeDesc(&sendEvent);
105     AEDisposeDesc(&replyEvent);
106     
107     return _finalString;
108     }
109 }
110
111 - (NSString*)sendTwoTierAEWithRequestedKey:(NSString*)key fromObjectByKey:(NSString*)object eventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
112 {
113     /*if ( (!key) || (!object) || (!eventClass) || (!eventID) || (psn.highLongOfPSN == kNoProcess) ) {
114         return @"";
115     } else*/ {
116     AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
117     AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
118     
119     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];
120     NSString  *_finalString;
121     
122     AppleEvent sendEvent, replyEvent;
123     AEIdleUPP upp = NewAEIdleUPP(&MyAEIdleCallback);
124     
125     char *charResult;
126     DescType resultType;
127     Size resultSize, charResultSize;
128     int pid;
129     
130     AEBuildError buildError;
131     OSStatus err;
132     OSErr err2, err3;
133     
134     if (GetProcessPID(&psn, &pid) == noErr) {
135         if (pid ==0) {
136             NSLog(@"Process doesn't exist! Exiting.");
137             return nil;
138         }
139     } else {
140         NSLog(@"Error getting PID of application to send to! Exiting.");
141         return nil;
142     }
143     
144     NSLog(@"_sendString: %s", sendString);
145     
146     err = AEBuildAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, sendString);
147     
148     [self printCarbonDesc:&sendEvent];
149     
150     if (err) {
151         NSLog(@"%d:%d at \"%@\"",buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
152     }
153     
154     err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, kNoTimeOut, upp, NULL);
155     
156     [self printCarbonDesc:&replyEvent];
157     
158     if (err) {
159         NSLog(@"Send Error: %i",err);
160     } else {
161         unichar* result=0;
162         
163         err2 = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
164         result=malloc(resultSize);
165         
166         if (err2) { NSLog(@"Error After AESizeOfParam: %i", err2); } else {
167         
168         err3 = AEGetParamPtr(&replyEvent, keyDirectObject, resultType, NULL, result, resultSize, &charResultSize);
169         
170         if (err3) { NSLog(@"Error After AEGetParamPtr: %i", err3); } else {
171         
172         _finalString = [[NSString stringWithCharacters:result length:charResultSize/sizeof(unichar)] copy];
173         
174         }
175         }
176     }
177     
178     AEDisposeDesc(&sendEvent);
179     AEDisposeDesc(&replyEvent);
180     
181     return _finalString;
182     }
183 }
184
185
186 - (void)sendAEWithEventClass:(NSString*)eventClass eventID:(NSString*)eventID appPSN:(ProcessSerialNumber)psn
187 {
188     /*if ( (!eventClass) || (!eventID) || (psn.highLongOfPSN == kNoProcess) ) {
189         return;
190     } else */{
191         AEEventClass eClass = *((unsigned long*)[eventClass UTF8String]);
192         AEEventID    eID    = *((unsigned long*)[eventID UTF8String]);
193         AppleEvent event, reply;
194     
195         AECreateAppleEvent(eClass, eID, typeProcessSerialNumber,(ProcessSerialNumber*)&psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, kAnyTransactionID, &event);
196     
197         AESend(&event, &reply, kAENoReply, kAENormalPriority, kAEDefaultTimeout, nil, nil);
198     
199         AEDisposeDesc(&event);
200         AEDisposeDesc(&reply);
201     }
202 }
203
204 - (void)printCarbonDesc:(AEDesc*)desc {
205     Handle xx;
206     AEPrintDescToHandle(desc,&xx);
207     NSLog(@"Handle: %s", *xx);
208     DisposeHandle(xx);
209 }
210
211 @end