1/* Copyright (c) 2000 TXT DataKonsult Ab & Monty Program Ab
2 Copyright (c) 2009-2011, Monty Program Ab
3
4 Redistribution and use in source and binary forms, with or without
5 modification, are permitted provided that the following conditions are
6 met:
7
8 1. Redistributions of source code must retain the above copyright
9 notice, this list of conditions and the following disclaimer.
10
11 2. Redistributions in binary form must the following disclaimer in
12 the documentation and/or other materials provided with the
13 distribution.
14
15 THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ``AS IS'' AND ANY
16 EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
18 PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
19 CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
20 SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
21 LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
22 USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
23 ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
24 OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
25 OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 SUCH DAMAGE.
27*/
28
29/* File : strcont.c
30 Author : Monty
31 Updated: 1988.07.27
32 Defines: strcont()
33
34 strcont(str, set) if str contanies any character in the string set.
35 The result is the position of the first found character in str, or NullS
36 if there isn't anything found.
37
38*/
39
40#include "strings_def.h"
41
42char * strcont(reg1 const char *str,reg2 const char *set)
43{
44 reg3 char * start = (char *) set;
45
46 while (*str)
47 {
48 while (*set)
49 {
50 if (*set++ == *str)
51 return ((char*) str);
52 }
53 set=start; str++;
54 }
55 return (NullS);
56} /* strcont */
57