blob: 26ab3ad375ad78136ebfbca7d478ed69658f1b36 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
// passes the typechecker: words mix with everything, literal 0 is null,
// arrays decay to pointers, generic calls bind their parameters
typecheck on;
struct pair<A, B> { A a; B b; };
pair<A, B>*.u mk<A, B>(A x, B y) { pair<A, B>* p = new(pair<A, B>); p.a = x; p.b = y; return u*p; }
A left<A, B>(pair<A, B>* p) { return p.a; }
int strlen2(char* s) { int n = 0; while (s[n]) n++; return n; }
int main() {
pair<int, char*>* p = mk(3, "four");
int a = left(p);
char* s = p.b;
[8]char buf;
char* q = buf;
int* nothing = 0;
let w = 5;
int mixed = w + 1;
q[0] = 'h'; q[1] = 0;
put_n(a + strlen2(s) + strlen2(buf) + mixed); put_c(10);
free(d*p);
return 0;
}
|
