crypto/o_str.c

   1 /* crypto/o_str.c */
   2 /*
   3  * Written by Richard Levitte (richard@levitte.org) for the OpenSSL project
   4  * 2003.
   5  */
   6 /* ====================================================================
   7  * Copyright (c) 2003 The OpenSSL Project.  All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  *
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  *
  16  * 2. Redistributions in binary form must reproduce the above copyright
  17  *    notice, this list of conditions and the following disclaimer in
  18  *    the documentation and/or other materials provided with the
  19  *    distribution.
  20  *
  21  * 3. All advertising materials mentioning features or use of this
  22  *    software must display the following acknowledgment:
  23  *    "This product includes software developed by the OpenSSL Project
  24  *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
  25  *
  26  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
  27  *    endorse or promote products derived from this software without
  28  *    prior written permission. For written permission, please contact
  29  *    openssl-core@openssl.org.
  30  *
  31  * 5. Products derived from this software may not be called "OpenSSL"
  32  *    nor may "OpenSSL" appear in their names without prior written
  33  *    permission of the OpenSSL Project.
  34  *
  35  * 6. Redistributions of any form whatsoever must retain the following
  36  *    acknowledgment:
  37  *    "This product includes software developed by the OpenSSL Project
  38  *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
  39  *
  40  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
  41  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  42  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  43  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
  44  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  45  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  46  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  47  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  48  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  49  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  50  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
  51  * OF THE POSSIBILITY OF SUCH DAMAGE.
  52  * ====================================================================
  53  *
  54  * This product includes cryptographic software written by Eric Young
  55  * (eay@cryptsoft.com).  This product includes software written by Tim
  56  * Hudson (tjh@cryptsoft.com).
  57  *
  58  */
  59
  60 #include <ctype.h>
  61 #include <limits.h>
  62 #include <e_os.h>
  63 #include <openssl/crypto.h>
  64 #include "internal/cryptlib.h"
  65 #include "internal/o_str.h"
  66
  67 #if !defined(OPENSSL_IMPLEMENTS_strncasecmp) && \
  68     !defined(OPENSSL_SYS_WIN32) && !defined(OPENSSL_SYS_WINCE) && \
  69     !defined(NETWARE_CLIB)
  70 # include <strings.h>
  71 #endif
  72
  73 int OPENSSL_strncasecmp(const char *str1, const char *str2, size_t n)
  74 {
  75 #if defined(OPENSSL_IMPLEMENTS_strncasecmp)
  76     while (*str1 && *str2 && n) {
  77         int res = toupper(*str1) - toupper(*str2);
  78         if (res)
  79             return res < 0 ? -1 : 1;
  80         str1++;
  81         str2++;
  82         n--;
  83     }
  84     if (n == 0)
  85         return 0;
  86     if (*str1)
  87         return 1;
  88     if (*str2)
  89         return -1;
  90     return 0;
  91 #else
  92     /*
  93      * Recursion hazard warning! Whenever strncasecmp is #defined as
  94      * OPENSSL_strncasecmp, OPENSSL_IMPLEMENTS_strncasecmp must be defined as
  95      * well.
  96      */
  97     return strncasecmp(str1, str2, n);
  98 #endif
  99 }
 100
 101 int OPENSSL_strcasecmp(const char *str1, const char *str2)
 102 {
 103 #if defined(OPENSSL_IMPLEMENTS_strncasecmp)
 104     return OPENSSL_strncasecmp(str1, str2, (size_t)-1);
 105 #else
 106     return strcasecmp(str1, str2);
 107 #endif
 108 }
 109
 110 int OPENSSL_memcmp(const void *v1, const void *v2, size_t n)
 111 {
 112     const unsigned char *c1 = v1, *c2 = v2;
 113     int ret = 0;
 114
 115     while (n && (ret = *c1 - *c2) == 0)
 116         n--, c1++, c2++;
 117
 118     return ret;
 119 }
 120
 121 char *CRYPTO_strdup(const char *str, const char* file, int line)
 122 {
 123     char *ret;
 124
 125     if (str == NULL)
 126         return NULL;
 127     ret = CRYPTO_malloc(strlen(str) + 1, file, line);
 128     if (ret != NULL)
 129         strcpy(ret, str);
 130     return ret;
 131 }
 132
 133 char *CRYPTO_strndup(const char *str, size_t s, const char* file, int line)
 134 {
 135     const char *cp;
 136     size_t maxlen;
 137     char *ret;
 138
 139     if (str == NULL)
 140         return NULL;
 141
 142     /* Get length. */
 143     for (cp = str, maxlen = s; maxlen-- != 0 && *cp != '\0'; ++cp)
 144         continue;
 145     maxlen = cp - str;
 146
 147     ret = CRYPTO_malloc(maxlen + 1, file, line);
 148     if (ret) {
 149         memcpy(ret, str, maxlen);
 150         ret[maxlen] = '\0';
 151     }
 152     return ret;
 153 }
 154
 155 void *CRYPTO_memdup(const void *data, size_t siz, const char* file, int line)
 156 {
 157     void *ret;
 158
 159     if (data == NULL || siz >= INT_MAX)
 160         return NULL;
 161
 162     ret = CRYPTO_malloc(siz, file, line);
 163     if (ret == NULL) {
 164         CRYPTOerr(CRYPTO_F_CRYPTO_MEMDUP, ERR_R_MALLOC_FAILURE);
 165         return NULL;
 166     }
 167     return memcpy(ret, data, siz);
 168 }
 169
 170 size_t OPENSSL_strnlen(const char *str, size_t maxlen)
 171 {
 172     const char *p;
 173
 174     for (p = str; maxlen-- != 0 && *p != '\0'; ++p) ;
 175
 176     return p - str;
 177 }
 178
 179 size_t OPENSSL_strlcpy(char *dst, const char *src, size_t size)
 180 {
 181     size_t l = 0;
 182     for (; size > 1 && *src; size--) {
 183         *dst++ = *src++;
 184         l++;
 185     }
 186     if (size)
 187         *dst = '\0';
 188     return l + strlen(src);
 189 }
 190
 191 size_t OPENSSL_strlcat(char *dst, const char *src, size_t size)
 192 {
 193     size_t l = 0;
 194     for (; size > 0 && *dst; size--, dst++)
 195         l++;
 196     return l + OPENSSL_strlcpy(dst, src, size);
 197 }