fix string length bug

1 files changed, 38 insertions, 1 deletions

diff --git a/code/main.felan b/code/main.felan
index 132c24e..4610ccc 100644
--- a/code/main.felan
+++ b/code/main.felan
@@ -1,5 +1,10 @@
+string :: []u8;
+
 main :: () -> void {
-  print("Hello world!\n");
+  str := "123";
+  print(str);
+  v := to_u64(str);
+  print(v);
 };
 
 print :: (value:[]u8)->void{
@@ -10,3 +15,35 @@ print :: (value:[]u8)->void{
   }
 };
 
+print :: (value:u64)->void{
+  value := value;
+  result :[20]u8 = undefined;
+  i := 0;
+  while {
+    result[i] = '0' + @cast(value % 10,u8);
+    i += 1;
+    value /= 10;
+    value != 0;
+  } {}
+
+  j := 0;
+  while j < i {
+    putc result[j];
+    j += 1;
+  }
+};
+
+to_u64 :: (value:string) -> u64 {
+  i :u64= 0;
+  result :u64= 0;
+
+  c :u8= undefined;
+  while i < value.length {
+    c = value[value.length-i-1];
+    result *= 10;
+    result += @cast(c - '0',u64);
+    i += 1;
+  }
+  return result;
+};
+