opti: strchr

src/contain_only.🗿

@@ -0,0 +1,14 @@
+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 i = 0;
+	local start = str;
 
 	loop {
-		if ([str + i] == c)
-			return (str + i);
-		if ([str + i] == 0)
+		if ([start] == c)
+			return (start);
+		if ([start] == 0)
 			return (0);
-		i++;
+		start++;
 	}
 }

tests/contain_only.🗿

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