c-bytecode-vm/struct.h at main · p7g/c-bytecode-vm · GitHub

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
#ifndef cb_struct_h
#define cb_struct_h

#include <sys/types.h>
#include <stdint.h>

#include "str.h"
#include "value.h"

struct cb_method {
	size_t name;
	struct cb_function *func;
};

struct cb_struct_spec {
	cb_gc_header gc_header;
	size_t name;
	size_t nmethods;
	struct cb_method *methods;
	/* A list of interned strings. The index of the string is the index of
	   the corresponding field. */
	size_t nfields, fields[];
};

struct cb_struct {
	cb_gc_header gc_header;
	struct cb_struct_spec *spec;
	struct cb_value fields[];
};

struct cb_struct_spec *cb_struct_spec_new(size_t name, size_t nfields,
		size_t nmethods);
void cb_struct_spec_mark(struct cb_struct_spec *spec);
void cb_struct_spec_set_field_name(struct cb_struct_spec *spec, size_t i,
		size_t name);
void cb_struct_spec_set_method(struct cb_struct_spec *spec, size_t i,
		size_t name, struct cb_function *func);
struct cb_function *cb_struct_spec_get_method(struct cb_struct_spec *spec,
		size_t name);
struct cb_struct *cb_struct_spec_instantiate(struct cb_struct_spec *spec);
struct cb_value *cb_struct_get_field(struct cb_struct *s, size_t name,
		ssize_t *idx_out);
int cb_struct_set_field(struct cb_struct *s, size_t name, struct cb_value val,
		ssize_t *idx_out);

#endif