code/main.felan


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

byte :: i8;
ubyte :: u8;

short :: i16;
ushort :: u16;

int :: i32;
uint :: u32;

long :: i64;
ulong :: u64;

short_float :: f16;
float :: f32;
double :: f64;
long_double :: f128;

usize :: u64;

array :: (t:type) -> type {
  return struct {
    ptr : *t;
    length : usize;
  };
};

array2 :: (t:type) -> type {
  return struct {
    ptr : *t;
    length : usize;
  };
};

array_int :: array(u64);
array_int1 :: array(u64);
array_int2 :: array2(u64);

main :: () -> void {
  print_u64 (if array_int == array_int1 1 else 0);
  print_u64 (if array_int == array_int2 1 else 0);
};