quakeforge/ruamoko/lib/Protocol.r

#include "Protocol.h"

struct obj_protocol_list {
	struct obj_protocol_list [] next;
	integer count;
	Protocol[] [1] list;
};

struct obj_method_description_list {
	integer count;
	struct obj_method_description [1] list;
};

@implementation Protocol
- (string) name
{
	return protocol_name;
}

- (BOOL) conformsTo: (Protocol [])aProtocolObject
{
	local integer i;
	local struct obj_protocol_list [] proto_list;

	if (aProtocolObject.protocol_name == 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;
}

- (struct obj_method_description []) descriptionForInstanceMethod: (SEL)aSel
{
	local integer i;
	local struct obj_protocol_list [] proto_list;
	local string name = sel_get_name (aSel);
	local struct obj_method_description [] result;

	for (i = 0; i < instance_methods.count; i++) {
		if (instance_methods.list[i].name == name)
			return &instance_methods.list[i];
	}

	for (proto_list = protocol_list; proto_list;
		 proto_list = proto_list.next) {
		for (i = 0; i < proto_list.count; i++) {
			if ((result = [proto_list.list[i]
						   descriptionForInstanceMethod: aSel]))
				return result;
		}
	}
	return NIL;
}

- (struct obj_method_description []) descriptionForClassMethod: (SEL)aSel
{
	local integer i;
	local struct obj_protocol_list [] proto_list;
	local string name = sel_get_name (aSel);
	local struct obj_method_description [] result;

	for (i = 0; i < class_methods.count; i++) {
		if (class_methods.list[i].name == name)
			return &class_methods.list[i];
	}

	for (proto_list = protocol_list; proto_list;
		 proto_list = proto_list.next) {
		for (i = 0; i < proto_list.count; i++) {
			if ((result = [proto_list.list[i]
						   descriptionForClassMethod: aSel]))
				return result;
		}
	}
	return NIL;
}

@end