lib/libc/citrus/citrus_bcs.c

   1 /*      $NetBSD: citrus_bcs.c,v 1.5 2005/05/14 17:55:42 tshiozak Exp $  */
   2
   3 /*-
   4  * Copyright (c)2003 Citrus Project,
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28
  29 #if HAVE_NBTOOL_CONFIG_H
  30 #include "nbtool_config.h"
  31 #endif
  32
  33 #include <sys/cdefs.h>
  34 #if defined(LIBC_SCCS) && !defined(lint)
  35 __RCSID("$NetBSD: citrus_bcs.c,v 1.5 2005/05/14 17:55:42 tshiozak Exp $");
  36 #endif /* LIBC_SCCS and not lint */
  37
  38 #ifndef HOSTPROG
  39 #include "namespace.h"
  40 #endif
  41 #include <assert.h>
  42 #include <stdlib.h>
  43
  44 #include "citrus_namespace.h"
  45 #include "citrus_bcs.h"
  46
  47 /*
  48  * case insensitive comparison between two C strings.
  49  */
  50 int
  51 _citrus_bcs_strcasecmp(const char * __restrict str1,
  52                        const char * __restrict str2)
  53 {
  54         int c1 = 1, c2 = 1;
  55
  56         while (c1 && c2 && c1 == c2) {
  57                 c1 = _bcs_toupper(*str1++);
  58                 c2 = _bcs_toupper(*str2++);
  59         }
  60
  61         return ((c1 == c2) ? 0 : ((c1 > c2) ? 1 : -1));
  62 }
  63
  64 /*
  65  * case insensitive comparison between two C strings with limitation of length.
  66  */
  67 int
  68 _citrus_bcs_strncasecmp(const char * __restrict str1,
  69                         const char * __restrict str2, size_t sz)
  70 {
  71         int c1 = 1, c2 = 1;
  72
  73         while (c1 && c2 && c1 == c2 && sz != 0) {
  74                 c1 = _bcs_toupper(*str1++);
  75                 c2 = _bcs_toupper(*str2++);
  76                 sz--;
  77         }
  78
  79         return ((c1 == c2) ? 0 : ((c1 > c2) ? 1 : -1));
  80 }
  81
  82 /*
  83  * skip white space characters.
  84  */
  85 const char *
  86 _citrus_bcs_skip_ws(const char *p)
  87 {
  88
  89         while (*p && _bcs_isspace(*p))
  90                 p++;
  91
  92         return (p);
  93 }
  94
  95 /*
  96  * skip non white space characters.
  97  */
  98 const char *
  99 _citrus_bcs_skip_nonws(const char *p)
 100 {
 101
 102         while (*p && !_bcs_isspace(*p))
 103                 p++;
 104
 105         return (p);
 106 }
 107
 108 /*
 109  * skip white space characters with limitation of length.
 110  */
 111 const char *
 112 _citrus_bcs_skip_ws_len(const char * __restrict p, size_t * __restrict len)
 113 {
 114
 115         while (*p && *len > 0 && _bcs_isspace(*p)) {
 116                 p++;
 117                 (*len)--;
 118         }
 119
 120         return (p);
 121 }
 122
 123 /*
 124  * skip non white space characters with limitation of length.
 125  */
 126 const char *
 127 _citrus_bcs_skip_nonws_len(const char * __restrict p, size_t * __restrict len)
 128 {
 129
 130         while (*p && *len > 0 && !_bcs_isspace(*p)) {
 131                 p++;
 132                 (*len)--;
 133         }
 134
 135         return (p);
 136 }
 137
 138 /*
 139  * truncate trailing white space characters.
 140  */
 141 void
 142 _citrus_bcs_trunc_rws_len(const char * __restrict p, size_t * __restrict len)
 143 {
 144
 145         while (*len > 0 && _bcs_isspace(p[*len - 1]))
 146                 (*len)--;
 147 }
 148
 149 /*
 150  * destructive transliterate to lowercase.
 151  */
 152 void
 153 _citrus_bcs_convert_to_lower(char *s)
 154 {
 155         while (*s) {
 156                 *s = _bcs_tolower(*s);
 157                 s++;
 158         }
 159 }
 160
 161 /*
 162  * destructive transliterate to uppercase.
 163  */
 164 void
 165 _citrus_bcs_convert_to_upper(char *s)
 166 {
 167         while (*s) {
 168                 *s = _bcs_toupper(*s);
 169                 s++;
 170         }
 171 }