1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#include <stdbool.h>

#pragma once

typedef struct Object Object;
typedef struct OString OString;
typedef struct OInt OInt;
typedef unsigned int hash_t;

typedef enum class_t {
	OBJECT,
	EMPTYNODE,
	SINGLENODE,
	BITMAPNODE,
	COLLISIONNODE,
	OSTRING,
	OINT,
	OFLOAT, //TODO
	OARRAY, //TODO
	OPY,
	OUSER1,
	OUSER2,
} class_t;

typedef bool (*equalifier)(Object *obj, Object *other);
typedef void (*freeer)(Object *obj);

// everything that goes into a map should implement this
struct Object {
	class_t class;
	hash_t hash;
	unsigned int refcount;
	equalifier equal;
	freeer free;
};

struct OString {
	Object proto;
	char * str;
};

#define OSTRLEN(o) strlen(OSTR2CSTR(o))
#define OSTR2CSTR(o) ((OString*)(o))->str
#define OINT2INT(i) ((OInt*)(i))->n

OString *new_ostring(char *str);
OInt *new_oint(int n);

struct OInt {
	Object proto;
	int n;
};

hash_t hash(void *obj, int size);

void retain(Object *obj);

void release(Object *obj);