Initial revision

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@9 72102866-910b-0410-8b05-ffd578937521

Source/NSObject.m

@@ -0,0 +1,182 @@
+#include <foundation/NSObject.h>
+#include <foundation/NSMethodSignature.h>
+#include <foundation/NSArchiver.h>
+#include <foundation/NSCoder.h>
+#include "objc/objc-api.h"
+
+@implementation NSObject
+
++ (void) initialize
+{
+  return;
+}
+
++ (id) alloc
+{
+  return class_create_instance(self);
+}
+
++ (id) allocWithZone: (NSZone*)z
+{
+  return [self alloc];		/* for now, until we get zones */
+}
+
++ (id) new
+{
+  return [[self alloc] init];
+}
+
+- (id) copy
+{
+  return [self copyWithZone:0];
+}
+
+- (void) dealloc
+{
+  return object_dispose(self);
+}
+
+- (id) init
+{
+  return self;
+}
+
+- (id) mutableCopy
+{
+  return [self mutableCopyWithZone:0];
+}
+
++ (Class) class
+{
+  return *(object_get_class(self));
+}
+
++ (Class) superclass
+{
+  return *(object_get_super_class(self));
+}
+
++ (BOOL) instancesRespondToSelector: (SEL)aSelector
+{
+  return class_get_instance_method(self, aSel)!=METHOD_NULL;
+}
+
++ (BOOL) conformsToProtocol: (Protocol*)aProtocol
+{
+  int i;
+  struct objc_protocol_list* proto_list;
+
+  for (proto_list = isa->protocols;
+       proto_list; proto_list = proto_list->next)
+    {
+      for (i=0; i < proto_list->count; i++)
+      {
+        if ([proto_list->list[i] conformsTo: aProtocol])
+          return YES;
+      }
+    }
+
+  if ([self superClass])
+    return [[self superClass] conformsTo: aProtocol];
+  else
+    return NO;
+}
+
++ (IMP) instanceMethodForSelector: (SEL)aSelector
+{
+  return method_get_imp(class_get_instance_method(self, aSel));
+}
+  
+- (IMP) methodForSelector: (SEL)aSelector
+{
+  return (method_get_imp(object_is_instance(self)
+                         ?class_get_instance_method(self->isa, aSel)
+                         :class_get_class_method(self->isa, aSel)));
+}
+
+- (NSMethodSignature*) methodSignatureForSelector: (SEL)aSelector
+{
+  [self notImplemented:_cmd];
+  return nil;
+}
+
++ (NSString*) description
+{
+  return nil;
+}
+
++ (void) poseAsClass: (Class)aClass
+{
+  return class_pose_as(self, aClassObject);
+}
+
+- (void) doesNotRecognizeSelector: (SEL)aSelector
+{
+  return [self error:"%s does not recognize %s",
+                     object_get_class_name(self), sel_get_name(aSel)];
+}
+
++ (void) cancelPreviousPerformRequestsWithTarget: (id)aTarget
+   selector: (SEL)aSelector
+   object: (id)anObject
+{
+  [self notImplemented:_cmd];
+  return;
+}
+
+- (void) performSelector: (SEL)aSelector
+   object: (id)anObject
+   afterDelay: (NSTimeInterval)delay
+{
+  [self notImplemented:_cmd];
+  return;
+}
+
+- (retval_t) forward:(SEL)aSel :(arglist_t)argFrame
+{
+  void *retFrame;
+  NSMethodSignature *ms = [self methodSignatureForSelector:aSel];
+  NSInvocation *inv = [NSInvocation invocationWithMethodSignature:ms
+				    frame:argFrame];
+  /* is this right? */
+  retFrame = alloc([ms methodReturnLength]);
+  [self forwardInvocation:inv];
+  [inv getReturnValue:retFrame];
+  /* where do ms and inv get free'd? */
+  return retFrame;
+}
+
+- (void) forwardInvocation: (NSInvocation*)anInvocation
+{
+  [self doesNotRecognizeSelector:[anInvocation selector]];
+  return;
+}
+
+- (id) awakAfterUsingCoder: (NSCoder*)aDecoder
+{
+  return self;
+}
+
+- (Class) classForArchiver
+{
+  return [self classForCoder];
+}
+
+- (Class) classForCoder
+{
+  return [self class];
+}
+
+- (id) replacementObjectForArchiveer: (NSArchiver*)anArchiver
+{
+  return [self replacementObjectForCoder:anArchiver];
+}
+
+- (id) replacementObjectForCoder: (NSCoder*)anEncoder
+{
+  return self;
+}
+
+@end
+
+#endif /* __NSNSObject_h_INCLUDE_GNU */