date and time created 87/02/15 16:03:27 by lepreau

SCCS-vsn: local/sccscmds/sccscmds.2/util/any.c 1.1
SCCS-vsn: local/sccscmds/sccscmds.ok/util/any.c 1.1

diff --git a/usr/src/local/sccscmds/sccscmds.2/util/any.c b/usr/src/local/sccscmds/sccscmds.2/util/any.c
new file mode 100644 (file)
index 0000000..c191e85
--- /dev/null
+++ b/usr/src/local/sccscmds/sccscmds.2/util/any.c
@@ -0,0 +1,14 @@
+static char Sccsid[] "@(#)any  2.1";
+/*
+       If any character of `s' is `c', return 1
+       else return 0.
+*/
+
+any(c,s)
+register char c, *s;
+{
+       while (*s)
+               if (*s++ == c)
+                       return(1);
+       return(0);
+}

diff --git a/usr/src/local/sccscmds/sccscmds.ok/util/any.c b/usr/src/local/sccscmds/sccscmds.ok/util/any.c
new file mode 100644 (file)
index 0000000..c191e85
--- /dev/null
+++ b/usr/src/local/sccscmds/sccscmds.ok/util/any.c
@@ -0,0 +1,14 @@
+static char Sccsid[] "@(#)any  2.1";
+/*
+       If any character of `s' is `c', return 1
+       else return 0.
+*/
+
+any(c,s)
+register char c, *s;
+{
+       while (*s)
+               if (*s++ == c)
+                       return(1);
+       return(0);
+}