1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
// zclsp --annotate writes the types the compiler can see into a program that
// has none. this one has none: locals take the type of what they start as, a
// parameter takes the type every call gives it, and a function the type of
// what it returns. what it can't tell it leaves alone (twice is called with
// a plain word, so its parameter stays), and the program still means the
// same thing: tests/test.sh runs both and compares.
include "src/lib/std.zc";
struct point { int x, y; };
int calls = 0;
char* name = "annotate";
int table[4];
int add(int a, int b) { calls = calls + 1; return a + b; }
point* scale(point* p, int k) { p.x = p.x * k; p.y = p.y * k; return p; }
point*.u fresh(int x, int y) {
point* p = new(point);
p.x = x; p.y = y;
return u*p;
}
int twice(int v) { return v + v; }
fn len3(char* s) { return len_w(s) + 3; }
fn half(f) { return f / 2.0; }
int main() {
int i = 0, sum = 0, buf[6];
let word_ = table, text = "abc";
point* pt = fresh(2, 3);
let r = 1.5;
while (i < 4) { table[i] = add(i, 10); sum = sum + table[i]; i++; }
scale(pt, 3);
buf[0] = twice(sum);
put_n(sum); put_c(32); put_n(pt.x + pt.y); put_c(32); put_n(buf[0]); put_c(32);
put_n(len3(text)); put_c(32); put_n(calls); put_c(32); put_n(half(r) * 4); put_c(10);
return 0;
}
|
