clean and opti

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