/*	Public domain	*/

#include <agar/core/begin.h>

struct ag_object;
struct ag_object_class_spec;

/* Agar class specification. */
typedef struct ag_object_class_spec {
	char hier[AG_OBJECT_HIER_MAX];		/* Inheritance hierarchy */
	char libs[AG_OBJECT_LIBS_MAX];		/* Library list */
	char spec[AG_OBJECT_HIER_MAX];		/* Full class specification */
	char name[AG_OBJECT_NAME_MAX];		/* Short name */
} AG_ObjectClassSpec;

/* Agar namespace specification. */
typedef struct ag_namespace {
	const char *name;			/* Name string */
	const char *pfx;			/* Prefix string */
	const char *url;			/* URL of package */
} AG_Namespace;

/* Object class description. */
typedef struct ag_object_class {
	char hier[AG_OBJECT_HIER_MAX];	/* Inheritance hierarchy */
	size_t size;			/* Structure size */
	AG_Version ver;			/* Version numbers */
	void (*init)(void *);
	void (*reinit)(void *);
	void (*destroy)(void *);
	int (*load)(void *, AG_DataSource *, const AG_Version *); 
	int (*save)(void *, AG_DataSource *);
	void *(*edit)(void *);
	/*
	 * Private
	 */
	char name[AG_OBJECT_TYPE_MAX];			/* Short name */
	char libs[AG_OBJECT_LIBS_MAX];			/* Required modules */
	AG_TAILQ_HEAD(,ag_object_class) sub;		/* Direct subclasses */
	AG_TAILQ_ENTRY(ag_object_class) subclasses;	/* Subclass entry */
	struct ag_object_class *super;			/* Superclass */
} AG_ObjectClass;

#ifdef AG_DEBUG
# define AG_ASSERT_CLASS(obj,class) \
	if (!AG_OfClass((obj),(class))) \
		AG_FatalError("%s is not a %s", AGOBJECT(obj)->name, class)
#else
# define AG_ASSERT_CLASS(obj,class)
#endif

__BEGIN_DECLS
extern AG_ObjectClass *agClassTree;		/* Object class tree */
extern AG_Namespace   *agNamespaceTbl;		/* Registered namespaces */
extern int             agNamespaceCount;
extern char           **agModuleDirs;		/* Module search directories */
extern int              agModuleDirCount;
extern AG_Mutex	        agClassLock;		/* Lock on class tree */

void            AG_InitClassTbl(void);
void            AG_DestroyClassTbl(void);
AG_ObjectClass *AG_LookupClass(const char *);
AG_ObjectClass *AG_LoadClass(const char *);
void            AG_UnloadClass(AG_ObjectClass *);
AG_Namespace   *AG_RegisterNamespace(const char *, const char *, const char *);
void            AG_UnregisterNamespace(const char *);

void AG_RegisterModuleDirectory(const char *);
void AG_UnregisterModuleDirectory(const char *);
void AG_RegisterClass(void *);
void AG_UnregisterClass(void *);
int  AG_ParseClassSpec(struct ag_object_class_spec *, const char *);
int  AG_OfClassGeneral(const struct ag_object *, const char *);
int  AG_ClassIsNamedGeneral(const AG_ObjectClass *, const char *);
int  AG_ObjectGetInheritHier(void *, AG_ObjectClass ***, int *);

/* Return description for the given namespace. */
static __inline__ AG_Namespace *
AG_GetNamespace(const char *ns)
{
	int i;

	for (i = 0; i < agNamespaceCount; i++) {
		if (strcmp(agNamespaceTbl[i].name, ns) == 0)
			return (&agNamespaceTbl[i]);
	}
	AG_SetError("No such namespace: %s", ns);
	return (NULL);
}

/* Compare the inheritance hierarchy of a class against a given pattern. */
static __inline__ int
AG_ClassIsNamed(void *pClass, const char *pat)
{
	AG_ObjectClass *cls = (AG_ObjectClass *)pClass;
	const char *c;
	int nwild = 0;

	for (c = &pat[0]; *c != '\0'; c++) {
		if (*c == '*')
			nwild++;
	}
	if (nwild == 0) {
		return (strncmp(cls->hier, pat, c - &pat[0]) == 0);
	} else if (nwild == 1) {
		if (pat[0] == '*') {
			return (1);
		}
		for (c = &pat[0]; *c != '\0'; c++) {
			if (c[0] == ':' && c[1] == '*' && c[2] == '\0') {
				if (c == &pat[0] ||
				    strncmp(cls->hier, pat, c - &pat[0]) == 0)
					return (1);
			}
		}
		return (0);
	}
	return AG_ClassIsNamedGeneral(cls, pat);	/* General case */
}
__END_DECLS

#include <agar/core/close.h>