aboutsummaryrefslogtreecommitdiff
path: root/examples/dump.zc
blob: df9a864f9a9ede0605cd8582d62d2b2f73cac1e2 (plain) (blame)
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
// printing any struct with no printing code: the heap knows each object's
// type, and reflection walks its fields
struct person { char* name; int age; };
struct item { char* name; int count; person* owner; };

fn dump(p) {
	let t = typeof_obj(p), i = 0;
	if (!t) { put_s("?"); return 0; }
	tprint(t); put_s(" { ");
	while (i < tnfields(t)) {
		let ft = tftype(t, i), v = p[tfoff(t, i)];
		if (i) put_s(", ");
		put_s(tfname(t, i)); put_s(": ");
		if (tkind(ft) == TY_PTR && telem(ft) == typeof(char)) { put_c('"'); put_s(v); put_c('"'); }
		else if (tkind(ft) == TY_PTR) { if (v) dump(v); else put_s("null"); }
		else put_n(v);
		i++;
	}
	put_s(" }");
	return 0;
}
fn main() {
	person* ana = new(person);
	ana.name = "ana"; ana.age = 30;
	item* lamp = new(item);
	lamp.name = "lamp"; lamp.count = 3; lamp.owner = ana;
	dump(lamp); put_c(10);
	free(d*lamp);
	return 0;
}