diff options
Diffstat (limited to 'examples/lists.zc')
| -rw-r--r-- | examples/lists.zc | 37 |
1 files changed, 20 insertions, 17 deletions
diff --git a/examples/lists.zc b/examples/lists.zc index 02059f3..3fcad3b 100644 --- a/examples/lists.zc +++ b/examples/lists.zc @@ -1,32 +1,35 @@ +namespace; +include rt; + // ownership in practice: a list owns its boxes. nothing here calls free; // everything is released at the end of the block that owns it. -.u box(v) { let b = new(1); b[0] = v; return u*b; } -.u mklist(cap) { let l = new(cap + 1); l[0] = 0; return u*l; } -// item m*arrives (it was given down), and goes d*on into the borrowed list -fn push(.m l, .d item) { l[l[0] + 1] = d*item; l[0] = l[0] + 1; return 0; } -fn show(.m l) { +.u box(v) { let b = rt.new(1); b[0] = v; return b; } +.u mklist(cap) { let l = rt.new(cap + 1); l[0] = 0; return l; } +// item arrives as an owned parameter and moves into the borrowed list +void push(.m l, .d item) { l[l[0] + 1] = d*item; l[0] = l[0] + 1; return; } +void show(.m l) { let i = 1; - put_c('['); - while (i <= l[0]) { if (i > 1) put_c(' '); put_n(l[i][0]); i++; } - put_c(']'); - return 0; + rt.put_c('['); + while (i <= l[0]) { if (i > 1) rt.put_c(' '); rt.put_n(l[i][0]); i++; } + rt.put_c(']'); + return; } .u squares(n) { let l = mklist(n), i = 0; while (i < n) { let b = box(i * i); - push(l, d*b); + push(l, b); i++; } - return u*l; + return l; } -fn main() { - let before = live_objects(); +void main() { + let before = rt.live_objects(); { let l = squares(6); - show(l); put_c(10); - put_s("live: "); put_n(live_objects() - before); put_c(10); + show(l); rt.put_c(10); + rt.put_s("live: "); rt.put_n(rt.live_objects() - before); rt.put_c(10); } - put_s("after the block: "); put_n(live_objects() - before); put_c(10); - return 0; + rt.put_s("after the block: "); rt.put_n(rt.live_objects() - before); rt.put_c(10); + return; } |
