brl.mod/blitz.mod/blitz_object.h

#ifndef BLITZ_OBJECT_H
#define BLITZ_OBJECT_H

#include "blitz_types.h"

#ifdef __cplusplus
extern "C"{
#endif

#define BBNULL (&bbNullObject)

#define BBNULLOBJECT (&bbNullObject)

struct BBClass{
	//extends BBGCPool
	BBClass*	super;
	void		(*free)( BBObject *o );
	
	BBDebugScope*debug_scope;

	unsigned int instance_size;

	void		(*ctor)( BBObject *o );
	void		(*dtor)( BBObject *o );
	
	BBString*	(*ToString)( BBObject *x );
	int		(*Compare)( BBObject *x,BBObject *y );
	BBObject*	(*SendMessage)( BBObject * o, BBObject *m,BBObject *s );

	BBINTERFACETABLE itable;
	void*   extra;
	unsigned int obj_size;
	unsigned int instance_count;
	unsigned int fields_offset;

	void*	vfns[40];
};

struct BBObject{
	//extends BBGCMem
	BBClass*	clas;
	//int		refs;
};

struct BBInterface {
	BBClass*	clas;
	const char *name;
};

struct BBInterfaceOffsets {
    BBINTERFACE ifc;
    int offset;
};

struct BBInterfaceTable {
	BBINTERFACEOFFSETS ifc_offsets;
	void * ifc_vtable;
	int ifc_size;
};

extern	BBClass bbObjectClass;
extern	BBObject bbNullObject;

BBObject*	bbObjectNew( BBClass *t );
BBObject*	bbObjectAtomicNew( BBClass *t );
BBObject*	bbObjectNewNC( BBClass *t );
BBObject*	bbObjectAtomicNewNC( BBClass *t );
void		bbObjectFree( BBObject *o );

void		bbObjectCtor( BBObject *o );
void		bbObjectDtor( BBObject *o );

BBString*	bbObjectToString( BBObject *o );
int		bbObjectCompare( BBObject *x,BBObject *y );
BBObject*	bbObjectSendMessage( BBObject * o, BBObject *m,BBObject *s );
void		bbObjectReserved();

BBObject*	bbObjectDowncast( BBObject *o,BBClass *t );
BBObject*	bbObjectStringcast( BBObject *o );
BBObject*	bbObjectArraycast( BBObject *o );
int bbObjectIsString( BBObject *o );
int bbObjectIsArray( BBObject *o );

void		bbObjectRegisterType( BBClass *clas );
BBClass**	bbObjectRegisteredTypes( int *count );
void bbObjectDumpInstanceCounts(char * buf, int size, int includeZeros);
extern int bbCountInstances;


void bbObjectRegisterInterface( BBInterface * ifc );
BBInterface **bbObjectRegisteredInterfaces( int *count );

BBObject * bbInterfaceDowncast(BBOBJECT o, BBINTERFACE ifc);
void * bbObjectInterface(BBOBJECT o, BBINTERFACE ifc);

struct struct_node {
	struct avl_root link;
	BBDebugScope * scope;
};

void bbObjectRegisterStruct( BBDebugScope *p );
BBDebugScope * bbObjectStructInfo( char * name );

BBObject * bbNullObjectTest( BBObject *o );

struct enum_node {
	struct avl_root link;
	BBDebugScope * scope;
};

void bbObjectRegisterEnum( BBDebugScope *p );
BBDebugScope * bbObjectEnumInfo( char * name );

#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
inline void * bbObjectToFieldOffset(BBOBJECT o) {
	if ( !o->clas ) {
		return &bbNullObject;
	}
	return (void*)(((unsigned char*)o) + o->clas->fields_offset);
}
#else
void * bbObjectToFieldOffset(BBOBJECT o);
#endif

#ifdef __cplusplus
}
#endif

#endif