src/contain_only.🗿

@@ -1,14 +0,0 @@
-contain_only(to_big, to_find)
-{
-	local tmp;
-
-	tmp = to_big;
-	loop
-	{
-		if ([tmp] == 0)
-			return 1;
-		if (strchr(to_find, [tmp]) == 0)
-			return 0;
-		tmp++;
-	}
-}

src/strchr.🗿

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

tests/contain_only.🗿

@@ -1,7 +0,0 @@
-main()
-{
-	name = "contain_only";
-
-	test_num(contain_only("17", "0123456789"), 1, "");
-	test_num(contain_only("17a", "0123456789"), 0, "");
-}