crap-libs/oop/oop.c

#include "oop.h"

#include <string.h>
#include <stdlib.h>

class_id_t class_ids = 0;

meta_class_t classes[MAX_CLASSES];

class_id_t oop_add_class(const char* name, class_t super, bool instanceable) {
	classes[class_ids] = (meta_class_t) {
		.name = name,
		.super = super.id,
		.instanceable = instanceable
	};
	return class_ids++;
}

bool oop_instance_of_id(void* object, class_id_t id) {
	if (sizeof (object) < sizeof (object_t))
		return false; // not an object
	object_t* obj = (object_t*) object;
	return obj->meta_obj.type.id == id;
}

bool oop_instance_of(void* object, class_t type) {
	return oop_instance_of_id(object, type.id);	
}

const char* oop_get_class_name_by_id(class_id_t id) {
	return classes[id].name;
}

const char* oop_get_class_name(class_t type) {
	return oop_get_class_name_by_id(type.id);
}

class_id_t oop_id_from_name(const char* class_name) {
	for (int i = 0; i < class_ids; i++) {
		if (strcmp(class_name, classes[i].name) == 0)
			return i;
	}
	return NO_CLASS_ID;
}

bool oop_class_exists(const char* class_name) {
	return oop_id_from_name(class_name) != NO_CLASS_ID;
}


class_t object_class;

void method(object, destruct)(object_t* obj) {
	free(obj);
}

object_t* method(object, construct)() {
	object_t* obj = malloc(sizeof(object_t));
	populate(object)(obj, object_class);
	return obj;
}

void method(object, populate)(object_t* obj, class_t type) {
	obj->meta_obj.type = type;
	add_method(obj, object, destruct);
}