Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | RSS feed

  1. /*
  2. FUNCTION
  3.         <<wcsstr>>---find a wide-character substring
  4.  
  5. ANSI_SYNOPSIS
  6.         #include <wchar.h>
  7.         wchar_t *wcsstr(const wchar_t *__restrict <[big]>,
  8.                         const wchar_t *__restrict <[little]>);
  9.  
  10. TRAD_SYNOPSIS
  11.         wchar_t *wcsstr(<[big]>, <[little]>
  12.         const wchar_t *__restrict <[big]>;
  13.         const wchar_t *__restrict <[little]>;
  14.  
  15. DESCRIPTION
  16.         The <<wcsstr>> function locates the first occurrence in the
  17.         wide-character string pointed to by <[big]> of the sequence of
  18.         wide characters (excluding the terminating null wide character) in the
  19.         wide-character string pointed to by <[little]>.
  20.  
  21. RETURNS
  22.         On successful completion, <<wcsstr>> returns a pointer to the located
  23.         wide-character string, or a null pointer if the wide-character string
  24.         is not found.
  25.  
  26.         If <[little]> points to a wide-character string with zero length,
  27.         the function returns <[big]>.
  28.  
  29. PORTABILITY
  30. <<wcsstr>> is ISO/IEC 9899/AMD1:1995 (ISO C).
  31.  
  32. */
  33.  
  34. /*      $NetBSD: wcsstr.c,v 1.1 2000/12/23 23:14:37 itojun Exp $        */
  35.  
  36. /*-
  37.  * Copyright (c)1999 Citrus Project,
  38.  * All rights reserved.
  39.  *
  40.  * Redistribution and use in source and binary forms, with or without
  41.  * modification, are permitted provided that the following conditions
  42.  * are met:
  43.  * 1. Redistributions of source code must retain the above copyright
  44.  *    notice, this list of conditions and the following disclaimer.
  45.  * 2. Redistributions in binary form must reproduce the above copyright
  46.  *    notice, this list of conditions and the following disclaimer in the
  47.  *    documentation and/or other materials provided with the distribution.
  48.  *
  49.  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  50.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  51.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  52.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  53.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  54.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  55.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  56.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  57.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  58.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  59.  * SUCH DAMAGE.
  60.  *
  61.  *      citrus Id: wcsstr.c,v 1.2 2000/12/21 05:07:25 itojun Exp
  62.  */
  63.  
  64. #include <_ansi.h>
  65. #include <stddef.h>
  66. #include <wchar.h>
  67.  
  68. wchar_t *
  69. _DEFUN (wcsstr, (big, little),
  70.         _CONST wchar_t *__restrict big _AND
  71.         _CONST wchar_t *__restrict little)
  72. {
  73.   _CONST wchar_t *p;
  74.   _CONST wchar_t *q;
  75.   _CONST wchar_t *r;
  76.  
  77.   if (!*little)
  78.     {
  79.       /* LINTED interface specification */
  80.       return (wchar_t *) big;
  81.     }
  82.   if (wcslen (big) < wcslen (little))
  83.     return NULL;
  84.  
  85.   p = big;
  86.   q = little;
  87.   while (*p)
  88.     {
  89.       q = little;
  90.       r = p;
  91.       while (*q)
  92.         {
  93.           if (*r != *q)
  94.             break;
  95.           q++;
  96.           r++;
  97.         }
  98.       if (!*q)
  99.         {
  100.           /* LINTED interface specification */
  101.           return (wchar_t *) p;
  102.         }
  103.       p++;
  104.     }
  105.   return NULL;
  106. }
  107.