import "libc.hff";
import "libc.hff";
union Val {
   x i64,
   lo i32,
   y f64,
}

enum Color {
   Red, Green, Blue
}

defmacro arraylength(ary) [ (sizeof(ary)/sizeof(ary[0])) ] 
defmacro each(i, x, arr, ...body) [
   for let i = 0; i < arraylength(arr); ++i {
      let x = arr[i];
      { body }
   }
]

static xs *void = {},
      ok = 6;

fn isort(xs *int, n usize) void  {
   fn icmp(lhs *const void, rhs *const void, _ *void) int {
      let lhs = *as(*int)lhs,
          rhs = *as(*int)rhs;
      return lhs - rhs;
   }
   qsort(xs, n, 4, &icmp);

   fn foo() void {}
   let x= &foo;
   x();
}

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

   fn mag(v Vec2f) f32 {
      extern fn sqrtf(_ f32) f32;
      return sqrtf((v.x * v.x) + (v.y * v.y));
   }
   fn zero(v *Vec2f) void {
      v.x = 0;
      v.y = 0;
   }
}

extern fn main (argc int, argv **u8) int {

   let colors [3]Color = { :Red, :Green, :Blue } ;
   let x = Vec2f { .y: 1, .x: 2.4 };
   let p *const Vec2f = &x;
   printf("v = { %g, %g }\n", x.x, p.y);
   printf("mag = %g\n", x->mag());
   x->zero();
   printf("mag = %g\n", (&x)->mag());

   let is []int = { [4] = 1, 2, [1 - 1] = 3 };
   isort(is, arraylength(is));
   each(i, x, is,
      printf("%d\n", x);
   )

   printf("sizeof(is) = %zu\n", sizeof(is));
   printf("sizeof *void = %zu\n", sizeof *void);


   return 0;
}