Adding some new classes that ease access of Carbon/Mac-style resource files/forks.

[ITKit.git] / ITMacResourceFile.m

diff --git a/ITMacResourceFile.m b/ITMacResourceFile.m
new file mode 100755 (executable)
index 0000000..6f39d53
--- /dev/null
+++ b/ITMacResourceFile.m
@@ -0,0 +1,53 @@
+//
+//  ITMacResourceFile.m
+//  ITKit
+//
+//  Created by Joseph Spiros on Thu Dec 25 2003.
+//  Copyright (c) 2003 __MyCompanyName__. All rights reserved.
+//
+
+#import "ITMacResourceFile.h"
+
+
+@implementation ITMacResourceFile
+
+- (id)initWithContentsOfFile:(NSString *)path {
+    HFSUniStr255 dataForkName;
+    FSGetDataForkName(&dataForkName);
+    return [self initWithContentsOfFile:path fork:dataForkName];
+}
+
+- (id)initWithContentsOfFile:(NSString *)path fork:(HFSUniStr255)namedFork {
+    if (self = [super init]) {
+        if (FSPathMakeRef([path fileSystemRepresentation],&_fileReference,NULL) == noErr) {
+            FSOpenResourceFile(&_fileReference, namedFork.length, namedFork.unicode, fsRdPerm, &_referenceNumber);
+        } else {
+            // Raise Exception!
+        }
+    }
+    return self;
+}
+
+- (ITMacResource *)resourceOfType:(ITMacResourceType)type withID:(NSNumber *)idNum {
+    return [[ITMacResource _classForType:type] _resourceWithHandle:GetResource((ResType)type,[idNum shortValue])];
+}
+
+- (ITMacResource *)resourceOfType:(ITMacResourceType)type withName:(NSString *)name {
+    Str255 _buffer;
+    StringPtr _ptr = CFStringGetPascalStringPtr((CFStringRef)name, kCFStringEncodingMacRomanLatin1);
+    if (_ptr == NULL) {
+        if (CFStringGetPascalString((CFStringRef)name, _buffer, 256, kCFStringEncodingMacRomanLatin1)) {
+            _ptr = _buffer;
+        } else {
+            // Raise exception!
+        }
+    }
+    return [[ITMacResource _classForType:type] _resourceWithHandle:GetNamedResource((ResType)type,_ptr)];
+}
+
+- (void)dealloc {
+    CloseResFile(_referenceNumber);
+    [super dealloc];
+}
+
+@end