aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/stdbuf.zc
blob: ab8f9dc922d84519b070849b856a9b4518c4ef10 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
include "src/lib/std.zc";
fn main() {
	let a = arena(8), p, q, b, i = 0, s = 0;
	p = Arena.alloc(a, 4);
	q = Arena.alloc(a, 4);
	put_n(q - p); put_c(' ');
	Arena.reset(a);
	put_n(Arena.alloc(a, 4) == p); put_c(' ');
	b = bnew(8);
	while (i < 4) { Buf.set(b, i, 'A' + i); i++; }
	i = 0;
	while (i < Buf.length(b)) { s = s + Buf.get(b, i); i++; }
	put_n(s); put_c(' ');
	put_n(Buf.capacity(b)); put_c(10);
	free(d*a);
	free(d*b);
	return 0;
}