From dc7f7407e08f54e4a2a3c1d1723b2a7d6959532d Mon Sep 17 00:00:00 2001 From: Moon Flower Date: Wed, 14 Oct 2026 09:09:21 +0330 Subject: docs: archive the frozen stage code as one compressed tarball docs/history kept six stages with a full copy of the project under code/, 3.8 mb of sources duplicated from stage to stage and already superseded. store them as docs/history/code-snapshots.tar.gz, 0.66 mb, and extract one in place to read it. every stage's notes.md stays browsable, and the index says where the code went and how to get it back. the top-level README points at the archive too. its other two links into docs/history, 21-micro and 35-bench, were notes that were never kept and do not resolve; the index now records that. --- docs/history/10-zc/code/examples/lists.zc | 35 ------------------------------- 1 file changed, 35 deletions(-) delete mode 100644 docs/history/10-zc/code/examples/lists.zc (limited to 'docs/history/10-zc/code/examples/lists.zc') diff --git a/docs/history/10-zc/code/examples/lists.zc b/docs/history/10-zc/code/examples/lists.zc deleted file mode 100644 index 7392752..0000000 --- a/docs/history/10-zc/code/examples/lists.zc +++ /dev/null @@ -1,35 +0,0 @@ -// ownership in practice: a list owns its boxes. nothing here calls free; -// everything is released at the end of the block that owns it. -fn box(v) -> u { var b = new(1); b[0] = v; return b as u; } -fn mklist(cap) -> u { var l = new(cap + 1); l[0] = 0; return l as u; } -// item arrives as m (it was given down), and goes on as d into the borrowed list -fn push(m l, d item) { l[l[0] + 1] = item as d; l[0] = l[0] + 1; return 0; } -fn show(m l) -{ - var i = 1; - putc('['); - while (i <= l[0]) { if (i > 1) putc(' '); putn(l[i][0]); i++; } - putc(']'); - return 0; -} -fn squares(n) -> u -{ - var l = mklist(n), i = 0; - while (i < n) { - var b = box(i * i); - push(l, b as d); - i++; - } - return l as u; -} -fn main() -{ - var before = live_objects(); - { - var l = squares(6); - show(l); putc(10); - puts("live: "); putn(live_objects() - before); putc(10); - } - puts("after the block: "); putn(live_objects() - before); putc(10); - return 0; -} -- cgit v1.2.3