Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. /****************************************************************************
  2. *
  3. *                            Open Watcom Project
  4. *
  5. *    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
  6. *
  7. *  ========================================================================
  8. *
  9. *    This file contains Original Code and/or Modifications of Original
  10. *    Code as defined in and that are subject to the Sybase Open Watcom
  11. *    Public License version 1.0 (the 'License'). You may not use this file
  12. *    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
  13. *    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
  14. *    provided with the Original Code and Modifications, and is also
  15. *    available at www.sybase.com/developer/opensource.
  16. *
  17. *    The Original Code and all software distributed under the License are
  18. *    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
  19. *    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
  20. *    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
  21. *    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
  22. *    NON-INFRINGEMENT. Please see the License for the specific language
  23. *    governing rights and limitations under the License.
  24. *
  25. *  ========================================================================
  26. *
  27. * Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
  28. *               DESCRIBE IT HERE!
  29. *
  30. ****************************************************************************/
  31.  
  32.  
  33. #include "variety.h"
  34. #include "widechar.h"
  35. #include <stddef.h>
  36. #include <string.h>
  37. #include "setbits.h"
  38.  
  39. /*  The strpbrk function locates the first occurrence in the string pointed
  40.     to by str of any character from the string pointed to by charset.
  41. */
  42.  
  43.  
  44. _WCRTLINK CHAR_TYPE *__F_NAME(strpbrk,wcspbrk) ( const CHAR_TYPE *str, const CHAR_TYPE *charset )
  45. {
  46. #if defined(__WIDECHAR__)
  47.  
  48.     const CHAR_TYPE             *p1;
  49.     const CHAR_TYPE             *p2;
  50.     CHAR_TYPE           tc1;
  51.     CHAR_TYPE           tc2;
  52.     size_t              len;
  53.  
  54.     len = 0;
  55.     for( p1 = str; tc1 = *p1; p1++, len++ ) {
  56.         for( p2 = charset; tc2 = *p2; p2++ ) {
  57.             if( tc1 == tc2 ) break;
  58.         }
  59.         if( tc2 != NULLCHAR ) return( (CHAR_TYPE *)p1 );
  60.     }
  61.     return( NULL );
  62.  
  63. #else
  64.     unsigned char tc;
  65.     unsigned char vector[32];
  66.  
  67.     __setbits( vector, charset );
  68.     for( ; tc = *str; ++str ) {
  69.         /* quit when we find any char in charset */
  70.         if( ( vector[ tc >> 3 ] & _Bits[ tc & 0x07 ] ) != 0 )
  71.              return( (char *)str );
  72.     }
  73.     return( NULL );
  74. #endif
  75. }
  76.