aboutsummaryrefslogtreecommitdiff
path: root/bootstrap/test.cff
blob: f74619a639c0108330a4fda98a99c16dd45855c7 (plain) (blame)
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
34
35
36
37
38
39
40
41
42
43
44

struct Vec2f;
struct Vec2f {
   x f32,
   y f32,
}

union Val {
   x i64,
   lo i32,
   y f64,
}

enum Color {
   Red, Green, Blue
}

static xs *void = {};

fn isort(xs *int, n usize) void  {
   extern fn qsort(base *void, nmemb usize, size usize, compar *fn(l *const void, r *const void, _ *void) int) void;
   fn icmp(lhs *const void, rhs *const void, _ *void) int {
      let lhs = *as(*int)lhs;
      let rhs = *as(*int)rhs;
      return lhs - rhs;
   }
   qsort(xs, n, 4, &icmp);
}

extern fn main (argc int, argv **u8) int {
   extern fn printf(fmt *const u8, ...) int;

   let colors [3]Color = { :Red, :Green, :Blue } ;
   let x = Vec2f { .y: 1, .x: 2.4 };
   printf("v = { %g, %g }\n", x.x, x.y);

   let is [10]int = { [4] = 1, 2, [1 - 1] = 3 };
   isort(is, 10);
   for let i = 0; i < 10; ++i {
      printf("%d\n", is[i]);
   } 

   return 0;
}