X-Git-Url: http://git.ithinksw.org/ITFoundation.git/blobdiff_plain/0e723d6da33760243cfb8ced14cb4b544109d3b4..3d646c75403df6d5324833a701723a765555177f:/ITAppleEventTools.m

diff --git a/ITAppleEventTools.m b/ITAppleEventTools.m
deleted file mode 100755
index cf74e00..0000000
--- a/ITAppleEventTools.m
+++ /dev/null
@@ -1,185 +0,0 @@
-/*
- *  ITAppleEventTools.c
- *  ITFoundation
- *
- *  Created by Alexander Strange on Wed Feb 11 2004.
- *  Copyright (c) 2004 __MyCompanyName__. All rights reserved.
- *
- */
-
-#import "ITDebug.h"
-#import "ITAppleEventTools.h"
-
-NSAppleEventDescriptor *ITSendAEWithString(NSString *sendString, FourCharCode evClass, FourCharCode evID,const ProcessSerialNumber *psn)
-{
-    //Add error checking...
-    pid_t pid;
-    
-    const char *usendString = [sendString UTF8String];
-    
-    AppleEvent sendEvent, replyEvent;
-    NSAppleEventDescriptor *send, *recv;
-    AEDesc resultDesc;
-    DescType resultType;
-    Size resultSize;
-    
-    AEBuildError buildError;
-    OSStatus berr,err;
-    
-    if ((GetProcessPID(psn, &pid) == noErr) && (pid == 0)) {
-	ITDebugLog(@"Error getting PID of application.");
-	return nil;
-    }
-    
-    berr = AEBuildAppleEvent(evClass, evID, typeProcessSerialNumber,psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, usendString);
-    send = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&sendEvent] autorelease];
-    if (!berr) [send logDesc];
-    
-    if (berr) {
-        ITDebugLog(@"Error: %d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
-    }
-    
-    err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, /*kAEDefaultTimeout*/45, NULL, NULL);
-    
-    err = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
-    if (resultSize == 0 || err != 0) {
-        return nil;
-    }
-    
-    AEGetParamDesc(&replyEvent, keyDirectObject, resultType, &resultDesc);
-    
-    recv = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&resultDesc] autorelease];
-    if (!err) [recv logDesc];
-    
-    if (err) {
-        ITDebugLog(@"Send Error: %i",err);
-    }
-    return recv;
-}
-
-NSAppleEventDescriptor *ITSendAEWithStringAndObject(NSString *sendString, const AEDesc *object, FourCharCode evClass, FourCharCode evID,const ProcessSerialNumber *psn)
-{
-    //Add error checking...
-    pid_t pid;
-    
-    const char *usendString = [sendString UTF8String];
-    
-    AppleEvent sendEvent, replyEvent;
-    NSAppleEventDescriptor *send, *recv;
-    AEDesc resultDesc;
-    DescType resultType;
-    Size resultSize;
-    
-    AEBuildError buildError;
-    OSStatus berr,err;
-    
-    if ((GetProcessPID(psn, &pid) == noErr) && (pid == 0)) {
-	ITDebugLog(@"Error getting PID of application.");
-	return nil;
-    }
-    
-    berr = AEBuildAppleEvent(evClass, evID, typeProcessSerialNumber,psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, usendString);
-    send = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&sendEvent] autorelease];
-    if (!berr) [send logDesc];
-    
-    if (berr) {
-        ITDebugLog(@"Error: %d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
-    }
-    err = AEPutParamDesc(&sendEvent, keyDirectObject, object);
-    err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, /*kAEDefaultTimeout*/45, NULL, NULL);
-    
-    err = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
-    if (resultSize == 0 || err != 0) {
-        return nil;
-    }
-    
-    AEGetParamDesc(&replyEvent, keyDirectObject, resultType, &resultDesc);
-    
-    recv = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&resultDesc] autorelease];
-    if (!err) [recv logDesc];
-    
-    if (err) {
-        ITDebugLog(@"Send Error: %i",err);
-    }
-    return recv;
-}
-
-NSAppleEventDescriptor *ITSendAEWithKey(FourCharCode reqKey, FourCharCode evClass, FourCharCode evID,const ProcessSerialNumber *psn)
-{
-    //Add error checking...
-    pid_t pid;
-	NSString *sendString = [NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%c%c%c%c'), from:'null'() }", (reqKey >> 24), (reqKey >> 16) & 0xff, (reqKey >> 8) & 0xff, reqKey & 0xff];
-    const char *usendString = [sendString UTF8String];
-    
-    AppleEvent sendEvent, replyEvent;
-    NSAppleEventDescriptor *send, *recv;
-    AEDesc resultDesc;
-    DescType resultType;
-    Size resultSize;
-    
-    AEBuildError buildError;
-    OSStatus berr,err;
-    
-    if ((GetProcessPID(psn, &pid) == noErr) && (pid == 0)) {
-	ITDebugLog(@"Error getting PID of application.");
-	return nil;
-    }
-    
-    berr = AEBuildAppleEvent(evClass, evID, typeProcessSerialNumber,psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, usendString);
-    send = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&sendEvent] autorelease];
-    if (!berr) [send logDesc];
-    
-    if (berr) {
-        ITDebugLog(@"Error: %d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
-    }
-    
-    err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, /*kAEDefaultTimeout*/45, NULL, NULL);
-    
-    err = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
-    if (resultSize == 0 || err != 0) {
-        return nil;
-    }
-    
-    AEGetParamDesc(&replyEvent, keyDirectObject, resultType, &resultDesc);
-    
-    recv = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&resultDesc] autorelease];
-    if (!err) [recv logDesc];
-    
-    if (err) {
-        ITDebugLog(@"Send Error: %i",err);
-    }
-    return recv;
-}
-
-NSAppleEventDescriptor *ITSendAE(FourCharCode eClass, FourCharCode eID,const ProcessSerialNumber *psn)
-{
-    AEDesc dest;
-    int pid;
-    
-    AppleEvent event, reply;
-    OSStatus cerr,cerr2,err;
-    NSAppleEventDescriptor *nsd, *nse, *nsr;
-    if ((GetProcessPID(psn, &pid) == noErr) && (pid == 0)) {
-        ITDebugLog(@"Error getting PID of application.");
-	return nil;
-    }
-    cerr = AECreateDesc(typeProcessSerialNumber,psn,sizeof(ProcessSerialNumber),&dest);
-    nsd = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&dest] autorelease];
-    cerr2 = AECreateAppleEvent(eClass,eID,&dest,kAutoGenerateReturnID,kAnyTransactionID,&event);
-    nse = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&event] autorelease];
-    if (!cerr2) [nse logDesc];
-    err = AESend(&event, &reply, kAENoReply, kAENormalPriority, /*kAEDefaultTimeout*/45, NULL, NULL);
-    nsr = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&reply] autorelease];
-    [nsr logDesc];
-    return nsr;
-}
-
-@implementation NSAppleEventDescriptor (ITAELogging)
--(void) logDesc
-{
-    Handle xx;
-    AEPrintDescToHandle([self aeDesc],&xx);
-    ITDebugLog(@"AE Descriptor: %s", *xx);
-    DisposeHandle(xx);
-}
-@end
\ No newline at end of file