home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / gnu / djgpp / libsrc / c / str / strcspn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-08-28  |  1.9 KB  |  61 lines
  1. /* This is file STRCSPN.C */
  2. /* This file may have been modified by DJ Delorie (Jan 1991).  If so,
  3. ** these modifications are Coyright (C) 1993 DJ Delorie, 24 Kirsten Ave,
  4. ** Rochester NH, 03867-2954, USA.
  5. */
  6.  
  7. /*-
  8.  * Copyright (c) 1990 The Regents of the University of California.
  9.  * All rights reserved.
  10.  *
  11.  * This code is derived from software contributed to Berkeley by
  12.  * Chris Torek.
  13.  *
  14.  * Redistribution and use in source and binary forms are permitted
  15.  * provided that: (1) source distributions retain this entire copyright
  16.  * notice and comment, and (2) distributions including binaries display
  17.  * the following acknowledgement:  ``This product includes software
  18.  * developed by the University of California, Berkeley and its contributors''
  19.  * in the documentation or other materials provided with the distribution
  20.  * and in all advertising materials mentioning features or use of this
  21.  * software. Neither the name of the University nor the names of its
  22.  * contributors may be used to endorse or promote products derived
  23.  * from this software without specific prior written permission.
  24.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  25.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  26.  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  27.  */
  28.  
  29. #if defined(LIBC_SCCS) && !defined(lint)
  30. static char sccsid[] = "@(#)strcspn.c    5.5 (Berkeley) 5/16/90";
  31. #endif /* LIBC_SCCS and not lint */
  32.  
  33. #include <sys/stdc.h>
  34. #include <string.h>
  35.  
  36. /*
  37.  * Span the complement of string s2.
  38.  */
  39. size_t
  40. strcspn(s1, s2)
  41.     const char *s1;
  42.     register const char *s2;
  43. {
  44.     register const char *p, *spanp;
  45.     register char c, sc;
  46.  
  47.     /*
  48.      * Stop as soon as we find any character from s2.  Note that there
  49.      * must be a NUL in s2; it suffices to stop when we find that, too.
  50.      */
  51.     for (p = s1;;) {
  52.         c = *p++;
  53.         spanp = s2;
  54.         do {
  55.             if ((sc = *spanp++) == c)
  56.                 return (p - 1 - s1);
  57.         } while (sc != 0);
  58.     }
  59.     /* NOTREACHED */
  60. }
  61.