6c82ad2561
2003-05-23 Nathanael Nerode <neroden@gcc.gnu.org> * Makefile.in, NXConstStr.m, Object.m, Protocol.m, archive.c, class.c, encoding.c, gc.c, objc/NXConstStr.h, objc/Object.h, objc/Protocol.h, objc/encoding.h, objc/hash.h, objc/objc-api.h, objc/objc-list.h, objc/objc.h, ocjc/runtime.h, objc/sarray.h, objc/thr.h, objc/typedstream.h: Replace "GNU CC" with "GCC". From-SVN: r67131
131 lines
3.4 KiB
Objective-C
131 lines
3.4 KiB
Objective-C
/* This file contains the implementation of class Protocol.
|
|
Copyright (C) 1993 Free Software Foundation, Inc.
|
|
|
|
This file is part of GCC.
|
|
|
|
GCC is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
GCC is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GCC; see the file COPYING. If not, write to
|
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
/* As a special exception, if you link this library with files
|
|
compiled with GCC to produce an executable, this does not cause
|
|
the resulting executable to be covered by the GNU General Public License.
|
|
This exception does not however invalidate any other reasons why
|
|
the executable file might be covered by the GNU General Public License. */
|
|
|
|
#include "objc/Protocol.h"
|
|
#include "objc/objc-api.h"
|
|
|
|
/* Method description list */
|
|
struct objc_method_description_list {
|
|
int count;
|
|
struct objc_method_description list[1];
|
|
};
|
|
|
|
|
|
@implementation Protocol
|
|
{
|
|
@private
|
|
char *protocol_name;
|
|
struct objc_protocol_list *protocol_list;
|
|
struct objc_method_description_list *instance_methods, *class_methods;
|
|
}
|
|
|
|
/* Obtaining attributes intrinsic to the protocol */
|
|
|
|
- (const char *)name
|
|
{
|
|
return protocol_name;
|
|
}
|
|
|
|
/* Testing protocol conformance */
|
|
|
|
- (BOOL) conformsTo: (Protocol *)aProtocolObject
|
|
{
|
|
size_t i;
|
|
struct objc_protocol_list* proto_list;
|
|
|
|
if (!strcmp(aProtocolObject->protocol_name, self->protocol_name))
|
|
return YES;
|
|
|
|
for (proto_list = protocol_list; proto_list; proto_list = proto_list->next)
|
|
{
|
|
for (i=0; i < proto_list->count; i++)
|
|
{
|
|
if ([proto_list->list[i] conformsTo: aProtocolObject])
|
|
return YES;
|
|
}
|
|
}
|
|
|
|
return NO;
|
|
}
|
|
|
|
/* Looking up information specific to a protocol */
|
|
|
|
- (struct objc_method_description *) descriptionForInstanceMethod:(SEL)aSel
|
|
{
|
|
int i;
|
|
struct objc_protocol_list* proto_list;
|
|
const char* name = sel_get_name (aSel);
|
|
struct objc_method_description *result;
|
|
|
|
for (i = 0; i < instance_methods->count; i++)
|
|
{
|
|
if (!strcmp ((char*)instance_methods->list[i].name, name))
|
|
return &(instance_methods->list[i]);
|
|
}
|
|
|
|
for (proto_list = protocol_list; proto_list; proto_list = proto_list->next)
|
|
{
|
|
size_t j;
|
|
for (j=0; j < proto_list->count; j++)
|
|
{
|
|
if ((result = [proto_list->list[j]
|
|
descriptionForInstanceMethod: aSel]))
|
|
return result;
|
|
}
|
|
}
|
|
|
|
return NULL;
|
|
}
|
|
|
|
- (struct objc_method_description *) descriptionForClassMethod:(SEL)aSel;
|
|
{
|
|
int i;
|
|
struct objc_protocol_list* proto_list;
|
|
const char* name = sel_get_name (aSel);
|
|
struct objc_method_description *result;
|
|
|
|
for (i = 0; i < class_methods->count; i++)
|
|
{
|
|
if (!strcmp ((char*)class_methods->list[i].name, name))
|
|
return &(class_methods->list[i]);
|
|
}
|
|
|
|
for (proto_list = protocol_list; proto_list; proto_list = proto_list->next)
|
|
{
|
|
size_t j;
|
|
for (j=0; j < proto_list->count; j++)
|
|
{
|
|
if ((result = [proto_list->list[j]
|
|
descriptionForClassMethod: aSel]))
|
|
return result;
|
|
}
|
|
}
|
|
|
|
return NULL;
|
|
}
|
|
|
|
@end
|