aboutsummaryrefslogtreecommitdiff
path: root/examples/dump.zc
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dump.zc')
-rw-r--r--examples/dump.zc41
1 files changed, 22 insertions, 19 deletions
diff --git a/examples/dump.zc b/examples/dump.zc
index df9a864..540471a 100644
--- a/examples/dump.zc
+++ b/examples/dump.zc
@@ -1,30 +1,33 @@
+namespace;
+include rt, run;
+
// 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);
+void dump(p) {
+ let t = rt.typeof_obj(p), i = 0;
+ if (!t) { rt.put_s("?"); return; }
+ run.tprint(t); rt.put_s(" { ");
+ while (i < run.tnfields(t)) {
+ let ft = run.tftype(t, i), v = p[run.tfoff(t, i)];
+ if (i) rt.put_s(", ");
+ rt.put_s(run.tfname(t, i)); rt.put_s(": ");
+ if (run.tkind(ft) == run.TY_PTR && run.telem(ft) == typeof(char)) { rt.put_c('"'); rt.put_s(v); rt.put_c('"'); }
+ else if (run.tkind(ft) == run.TY_PTR) { if (v) dump(v); else rt.put_s("null"); }
+ else rt.put_n(v);
i++;
}
- put_s(" }");
- return 0;
+ rt.put_s(" }");
+ return;
}
-fn main() {
- person* ana = new(person);
+void main() {
+ person* ana = rt.new(person);
ana.name = "ana"; ana.age = 30;
- item* lamp = new(item);
+ item* lamp = rt.new(item);
lamp.name = "lamp"; lamp.count = 3; lamp.owner = ana;
- dump(lamp); put_c(10);
- free(d*lamp);
- return 0;
+ dump(lamp); rt.put_c(10);
+ rt.free(lamp);
+ return;
}