fix geadline

Reviewed-on: starnakin/IronGOLEM#5

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,8 @@ geadline2(prompt, text)
 					esccode('D');
 				}
 			}
+		} else if (c == '\n') {
+			return buf;
 		} else {
 			size = size + 1;
 			if (size >= capacity) {
@@ -115,16 +117,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/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
-		orgaemu 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/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
+```