aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/stdbuf.zc
blob: acb1d2f804461dfa1b49366b46a6c8beb60caf50 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
namespace;
include rt, std;

include std;
fn main() {
	let a = std.arena(8), p, q, b, i = 0, s = 0;
	p = std.Arena.alloc(a, 4);
	q = std.Arena.alloc(a, 4);
	rt.put_n(q - p); rt.put_c(' ');
	std.Arena.reset(a);
	rt.put_n(std.Arena.alloc(a, 4) == p); rt.put_c(' ');
	b = std.bnew(8);
	while (i < 4) { std.Buf.set(b, i, 'A' + i); i++; }
	i = 0;
	while (i < std.Buf.length(b)) { s = s + std.Buf.get(b, i); i++; }
	rt.put_n(s); rt.put_c(' ');
	rt.put_n(std.Buf.capacity(b)); rt.put_c(10);
	rt.free(d*a);
	rt.free(d*b);
	return 0;
}