j'ai cringe

Reviewed-on: starnakin/IronGOLEM#5

src/free_tab.🗿

@@ -7,7 +7,7 @@ free_tab(tab)
 		if ([tmp] == 0)
 			return;
 		free([tmp]);
-		tmp = tmp + 1;
+		tmp++;
 	}
 	return free(tab);
 }

src/galloc.🗿

@@ -26,11 +26,7 @@ define HEADER_SIZE = 5;
 🗿 Is used to check invalid write
 🗿 If a case doesn't equal to 0 it is an invalid write
 
-define LOCATION_INITIALISED = 0;
+enum LOCATION_INITIALISED, LOCATION_USED, LOCATION_SIZE, LOCATION_PREV, LOCATION_NEXT;
-define LOCATION_USED = 1;
-define LOCATION_SIZE = 2;
-define LOCATION_PREV = 3;
-define LOCATION_NEXT = 4;
 define LOCATION_DATA = HEADER_SIZE + PADDING_SIZE;
 
 galloc_setup_header(ptr, used, size, next_block, prev_block)

src/geadline.🗿

@@ -89,6 +89,9 @@ geadline2(prompt, text)
 					esccode('D');
 				}
 			}
+		} else if (c == '\n') {
+			wrt '\n';
+			return buf;
 		} else {
 			size = size + 1;
 			if (size >= capacity) {
@@ -115,16 +118,11 @@ geadline2(prompt, text)
 				esccode('D');
 			}
 			i = i + 1;
-			if (c == '\n')
-				return buf;
 		}
 	}
 }
 
-geadline(prompt)
+geadline(prompt) => geadline2(prompt, NULL);
-{
-	geadline2(prompt, NULL);
-}
 
 esccode(c)
 {

src/memset.🗿

@@ -6,6 +6,6 @@ memset(tab, size, value)
 		if (i == size)
 			return (tab);
 		[tab + i] = value;
-		i = i + 1;
+		i++;
 	}
 }

src/ntoa.🗿

@@ -9,7 +9,7 @@ ntoa_get_size(number)
 		if (number == 0)
 			return (size);
 		number = number / 10;
-		size = size + 1;
+		size++;
 	}
 }
 
@@ -29,7 +29,7 @@ ntoa(number)
 	{
 		if (number == 0)
 			return (str);
-		size = size - 1;
+		size--;
 		[str + size] = number % 10 + '0';
 		number = number / 10;
 	}

src/ntoa_s.🗿

@@ -1,18 +1,3 @@
-ntoa_get_size(number)
-{
-	local size = 0;
-	
-	if (number == 0)
-		return 1;
-	loop 
-	{
-		if (number == 0)
-			return (size);
-		number = number / 10;
-		size = size + 1;
-	}
-}
-
 ntoa_s(number)
 {
 	local str, sign, size;
@@ -24,7 +9,7 @@ ntoa_s(number)
 	}
 	size = ntoa_get_size(number);
 	if (sign)
-		size = size + 1;
+		size++;
 	str = galloc(size + 1);
 	if (str == 0)
 		return (0);
@@ -39,6 +24,6 @@ ntoa_s(number)
 			return (str);
 		[str + size - 1] = number % 10 + '0';
 		number = number / 10;
-		size = size - 1;
+		size--;
 	}
 }

src/putstr.🗿

@@ -1,14 +1,14 @@
 putstr(str)
 {
-	local i = 0;
+	local tmp = str;
 	if (str == NULL) {
 		putstr("(null)");
 		return NULL;
 	}
 	loop {
-		if ([str + i] == 0)
+		if ([tmp] == 0)
 			return str;
-		putchar([str + i]);
+		putchar([tmp]);
-		i = i + 1;
+		tmp++;
 	}
 }

src/puttab.🗿

@@ -10,7 +10,7 @@ puttab_str(tab)
 		putchar('"');
 		putstr([tab]);
 		putchar('"');
-		tab = tab + 1;
+		tab++;
 		if ([tab] != 0)
 			putstr(", ");
 	}

src/replace_index.🗿

@@ -1,4 +1,4 @@
-replace(str, fill, start, stop)
+replace_index(str, fill, start, stop)
 {
 	local out;
 	local sum;

src/strchri.🗿

@@ -1,12 +0,0 @@
-strchri(str, c)
-{
-	local i = 0;
-
-	loop {
-		if ([str + i] == c)
-			return (i);
-		if ([str + i] == 0)
-			return (0 - 1);
-		i++;
-	}
-}

test.sh

@@ -6,7 +6,12 @@ tester()
 		cat src/*.🗿 tests/$val.🗿 tests/test.🗿 >tmp.🗿
 		golemc tmp.🗿 > tmp.asm
 		orgaasm tmp.asm tmp.rom
+		if [ -f tests/$val.input ]
+		then
+			orgaemu tmp.rom < tests/$val.input
+		else
 			orgaemu tmp.rom
+		fi
 		echo
 	done
 }

tests/geadline.input

@@ -0,0 +1,3 @@
+yo
+bozo
+zboo

tests/geadline.🗿

@@ -0,0 +1,18 @@
+main()
+{
+	local ptr;
+
+	name = "geadline";
+
+	ptr = geadline("");
+	test_str(ptr, "yo", "");
+	
+	ptr = geadline("");
+	test_str(ptr, "bozo", "");
+	
+	ptr = geadline("");
+	test_str(ptr, "bozo", "arrow");
+	
+	ptr = geadline("");
+	test_num(ptr, 0, "");
+}

tests/reallocarray.🗿

@@ -1,11 +0,0 @@
-main()
-{
-	local tmp;
-	name = "reallocarray";
-
-	tmp = strdup("yo");
-	if (tmp == NULL)
-		return 1;
-	tmp = reallocarray(tmp, strlen(tmp), 5);
-	test_str(tmp, "yo", "");
-}

tests/replace.🗿

@@ -1,9 +0,0 @@
-main()
-{
-	name = "replace";
-
-	test_str(replace("yo ca va ?", "t", 2, 3), "yotca va ?", "");
-	test_str(replace("yo ca va ?", "", 2, 3), "yoca va ?", "empty fill");
-	test_str(replace("yo ca va ?", "aaaaa", 2, 3), "yoaaaaaca va ?", "");
-	test_str(replace("", "aaaaa", 0, 0), "aaaaa", "");
-}

tests/replace_index.🗿

@@ -0,0 +1,9 @@
+main()
+{
+	name = "replace_index";
+
+	test_str(replace_index("yo ca va ?", "t", 2, 3), "yotca va ?", "");
+	test_str(replace_index("yo ca va ?", "", 2, 3), "yoca va ?", "empty fill");
+	test_str(replace_index("yo ca va ?", "aaaaa", 2, 3), "yoaaaaaca va ?", "");
+	test_str(replace_index("", "aaaaa", 0, 0), "aaaaa", "");
+}

tests/strchri.🗿

@@ -1,8 +0,0 @@
-main()
-{
-	name = "strchri";
-
-	test_num(strchri("bozoman", 'm'), 4, "");
-	test_num(strchri("bozoman", 'v'), 0 - 1, "");
-	test_num(strchri("", 'v'), 0 - 1, "");
-}

wiki/strcat.md

@@ -0,0 +1,14 @@
+# STRCAT
+Strcat (string concatenate) is a function that takes two chars lists as a parameter and write the second at this end of the first (like strcat in C)
+
+## params
+1. chars list
+2. chars list
+
+## example
+```
+strcat("y", "o") "y" => "yo"
+strcat("y", "") "y" => "y"
+strcat("", "o") "" => "o"
+strcat("hello ", "world!") => "hello world!"
+```

wiki/strcpy.md

@@ -0,0 +1,14 @@
+# STRCPY
+Strcpy (string copy) is a function that takes two chars lists as a parameter and write the second in the first (like strcpy in C)
+
+## params
+1. chars list
+2. chars list
+
+## example
+```
+strcpy("y", "o") "y" => "o"
+strcpy("y", "") "y" => ""
+strcpy("", "o") "" => "o"
+strcpy("hello ", "world!") => "world!"
+```

wiki/strlen.md

@@ -0,0 +1,16 @@
+# STRLEN
+Strlen (string length) is a function that takes an chars list as a parameter and return an length (like strlen in C)
+
+## params
+1. char list
+
+## return
+number
+
+## example
+```
+strlen("ab") => 2
+strlen(NULL) => 0
+strlen("") => 0
+strlen("j'ai les cramptés") => 17
+```