Merge branch 'master' into master

src/free_tab.🗿

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

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]);
-		i = i + 1;
+		putchar([tmp]);
+		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;

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", "");
+}