diff options
Diffstat (limited to 'examples/dump.zc')
| -rw-r--r-- | examples/dump.zc | 41 |
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; } |
