aboutsummaryrefslogtreecommitdiff
path: root/examples/lists.zc
diff options
context:
space:
mode:
Diffstat (limited to 'examples/lists.zc')
-rw-r--r--examples/lists.zc37
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;
}