mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-21 08:03:41 +08:00
8f8c44cb4f
* Object.m: Fix signed/unsigned warning. * Protocol.m: Likewise. * archive.c: Always include stdlib.h. (objc_read_short, objc_read_unsigned_short, objc_read_int, objc_read_long, __objc_read_nbyte_uint, __objc_read_nbyte_ulong): Fix signed/unsigned warning. (objc_write_type, objc_read_type, objc_write_types, objc_read_types): Ensure ctype 8-bit safety. (__objc_no_write, __objc_no_read): Mark unused parameters. * class.c (class_table_setup): Specify void arg. * encoding.c (atoi, objc_sizeof_type, objc_alignof_type, objc_skip_typespec, objc_skip_offset, objc_layout_structure_next_member): Ensure ctype 8-bit safety. (objc_layout_structure_next_member): Ensure variables are initialized. * gc.c (__objc_generate_gc_type_description, class_ivar_set_gcinvisible): Mark unused parameters. * init.c (__objc_send_load, __objc_destroy_class_tree_node): Mark unused parameters. (__objc_init_protocols) Fix signed/unsigned warning. * nil_method.c (nil_method): Mark unused parameters. * thr.h (objc_thread_callback): Specify void arg. * sarray.c (sarray_new, sarray_realloc, sarray_free): Fix signed/unsigned warning. (sarray_free): Fix formatting. * selector.c (sel_types_match): Ensure ctype 8-bit safety. * sendmsg.c (__objc_init_install_dtable) Mark unused parameters. From-SVN: r54649
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 GNU CC.
|
|
|
|
GNU CC 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.
|
|
|
|
GNU CC 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 GNU CC; 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
|