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 strspn function computes the length of the initial segment of the
  40.     string pointed to by str which consists entirely of characters from
  41.     the string pointed to by charset.
  42. */
  43.  
  44.  
  45. _WCRTLINK size_t __F_NAME(strspn,wcsspn) ( const CHAR_TYPE *str, const CHAR_TYPE *charset )
  46. {
  47. #if defined(__WIDECHAR__)
  48.  
  49.     const CHAR_TYPE             *p1;
  50.     const CHAR_TYPE             *p2;
  51.     CHAR_TYPE           tc1;
  52.     CHAR_TYPE           tc2;
  53.     size_t              len;
  54.  
  55.     len = 0;
  56.     for( p1 = str; tc1 = *p1; p1++, len++ ) {
  57.         for( p2 = charset; tc2 = *p2; p2++ ) {
  58.             if( tc1 == tc2 ) break;
  59.         }
  60.         if( tc2 == NULLCHAR ) break;
  61.     }
  62.     return( len );
  63.  
  64.  
  65. #else
  66.     unsigned /*char*/ tc;
  67.     unsigned char vector[32];
  68.     size_t len;
  69.  
  70.     __setbits( vector, charset );
  71.     len = 0;
  72.     for( ; tc = (unsigned char) *str; ++str, ++len ) {
  73.         /* quit if we find any char not in charset */
  74.         if( ( vector[ tc >> 3 ] & _Bits[ tc & 0x07 ] ) == 0 )  break;
  75.     }
  76.     return( len );
  77. #endif
  78. }
  79.