Minor refactor and basic library

1 files changed, 39 insertions, 0 deletions

diff --git a/examples/basic.odin b/examples/basic.odin
index 1c5b7b317..1f90efa22 100644
--- a/examples/basic.odin
+++ b/examples/basic.odin
@@ -6,3 +6,42 @@ print_string :: proc(s : string) {
 		putchar(c);
 	}
 }
+
+string_byte_reverse :: proc(s : string) {
+	n := len(s);
+	for i := 0; i < n/2; i++ {
+		s[i], s[n-1-i] = s[n-1-i], s[i];
+	}
+}
+
+print_int :: proc(i : int, base : int) {
+	NUM_TO_CHAR_TABLE := "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz@$";
+
+	buf : [21]byte;
+	len := 0;
+	negative := false;
+	if i < 0 {
+		negative = true;
+		i = -i;
+	}
+	if i > 0 {
+		for i > 0 {
+			c : byte = NUM_TO_CHAR_TABLE[i % base];
+			buf[len] = c;
+			len++;
+			i /= base;
+		}
+	} else {
+		buf[len] = '0';
+		len++;
+	}
+
+	if negative {
+		buf[len] = '-';
+		len++;
+	}
+
+	str := cast(string)buf[:len];
+	string_byte_reverse(str);
+	print_string(str);
+}