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
42
43
44
45
46
47
48
49
50
51
52
53

@import("basic.felan");

t :: (comptime formatter : string) -> void {
  i := 0;
  in := 0;
  opening := 0;
  while @cast(i,u64) < formatter.length {
    c := formatter[i];
    if c == '{' {
      if in == 0 {
        opening = i+1;
      }
      in += 1;
    } else if c == '}' {
      in -= 1;
      if in == 0{
        str := sub_string(formatter,opening,i);
        print(str);
      } else if in < 0 {
        in = 0;
      }
    }
    i += 1;
  }
};

sub_string :: (str:string, begin:i64, end:i64) -> string {
  result := "";
  result.ptr = str.ptr + begin;
  result.length = @cast(end-begin,u64);
  return result;
};

main :: () -> void {
  a := '2';
  // @insert("a = '3';a = '5';");
  // @putc(a);
  println(a);
  b := &a;
  println(b.*);
  println(a);
  b.* = '5';
  println(b.*);
  arr :[10]u8= undefined;
  arr[0] = '6';
  @putc(arr[0]);
  // t("hello {world}");
  // str := "abcdef";
  // print(@cast(9-3,u8));
  // print(sub_string(str,1,3));
  // @insert("print(123);");
};