Subversion Repositories openrisc_me

/* This provides a minimal implementation of the Object root class.

 * It is split from the definition so that it can be placed

 * at the end of source files that require it.  This reduces

 * clutter in .s and other internmediate code while debugging.

*/

#ifndef _OBJC_OBJECT1_IMPLEMENTATION_H_

#define _OBJC_OBJECT1_IMPLEMENTATION_H_

#ifdef DO_NEXT_M64_OBJECT_IMPLEMENTATION

@implementation Object

+ initialize {

     return self;

}

- init {

     return self;

}

+ class {

    return object_getClass(self);

}

+ new {

     return [[self alloc] init];

}

+ free {

     return nil;

}

- free {

     return object_dispose(self);

}

+ alloc {

     return class_createInstance(self, 0);

}

- class {

     return isa;

}

- superclass {

     return class_getSuperclass([self class]);

}

- (const char *) name {

     return class_getName([self class]);

}

-(BOOL)conformsTo:(Protocol *)protocol {

     Class cls;

     for (cls = [self class]; cls; cls = [cls superclass]) {

         if (class_conformsToProtocol(cls, protocol)) return YES;

     }

     return NO;

}

@end

#endif /* NEEDS_OBJECT_IMPLEMENTATION */

#endif /* _OBJC_OBJECT1_IMPLEMENTATION_H_ */