[thirdparty/openssl.git] / crypto / ctype.c

/*
 * Copyright 2017-2022 The OpenSSL Project Authors. All Rights Reserved.
 *
 * Licensed under the Apache License 2.0 (the "License").  You may not use
 * this file except in compliance with the License.  You can obtain a copy
 * in the file LICENSE in the source distribution or at
 * https://www.openssl.org/source/license.html
 */

#include <string.h>
#include <stdio.h>
#include "crypto/ctype.h"
#include <openssl/ebcdic.h>

#include "internal/e_os.h"
#include "internal/core.h"

#ifndef OPENSSL_SYS_WINDOWS
#include <strings.h>
#endif
#include <locale.h>

#ifdef OPENSSL_SYS_MACOSX
#include <xlocale.h>
#endif

/*
 * Define the character classes for each character in the seven bit ASCII
 * character set.  This is independent of the host's character set, characters
 * are converted to ASCII before being used as an index in to this table.
 * Characters outside of the seven bit ASCII range are detected before indexing.
 */
static const unsigned short ctype_char_map[128] = {
   /* 00 nul */ CTYPE_MASK_cntrl,
   /* 01 soh */ CTYPE_MASK_cntrl,
   /* 02 stx */ CTYPE_MASK_cntrl,
   /* 03 etx */ CTYPE_MASK_cntrl,
   /* 04 eot */ CTYPE_MASK_cntrl,
   /* 05 enq */ CTYPE_MASK_cntrl,
   /* 06 ack */ CTYPE_MASK_cntrl,
   /* 07 \a  */ CTYPE_MASK_cntrl,
   /* 08 \b  */ CTYPE_MASK_cntrl,
   /* 09 \t  */ CTYPE_MASK_blank | CTYPE_MASK_cntrl | CTYPE_MASK_space,
   /* 0A \n  */ CTYPE_MASK_cntrl | CTYPE_MASK_space,
   /* 0B \v  */ CTYPE_MASK_cntrl | CTYPE_MASK_space,
   /* 0C \f  */ CTYPE_MASK_cntrl | CTYPE_MASK_space,
   /* 0D \r  */ CTYPE_MASK_cntrl | CTYPE_MASK_space,
   /* 0E so  */ CTYPE_MASK_cntrl,
   /* 0F si  */ CTYPE_MASK_cntrl,
   /* 10 dle */ CTYPE_MASK_cntrl,
   /* 11 dc1 */ CTYPE_MASK_cntrl,
   /* 12 dc2 */ CTYPE_MASK_cntrl,
   /* 13 dc3 */ CTYPE_MASK_cntrl,
   /* 14 dc4 */ CTYPE_MASK_cntrl,
   /* 15 nak */ CTYPE_MASK_cntrl,
   /* 16 syn */ CTYPE_MASK_cntrl,
   /* 17 etb */ CTYPE_MASK_cntrl,
   /* 18 can */ CTYPE_MASK_cntrl,
   /* 19 em  */ CTYPE_MASK_cntrl,
   /* 1A sub */ CTYPE_MASK_cntrl,
   /* 1B esc */ CTYPE_MASK_cntrl,
   /* 1C fs  */ CTYPE_MASK_cntrl,
   /* 1D gs  */ CTYPE_MASK_cntrl,
   /* 1E rs  */ CTYPE_MASK_cntrl,
   /* 1F us  */ CTYPE_MASK_cntrl,
   /* 20     */ CTYPE_MASK_blank | CTYPE_MASK_print | CTYPE_MASK_space
                | CTYPE_MASK_asn1print,
   /* 21  !  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 22  "  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 23  #  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 24  $  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 25  %  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 26  &  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 27  '  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_asn1print,
   /* 28  (  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_asn1print,
   /* 29  )  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_asn1print,
   /* 2A  *  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 2B  +  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 2C  ,  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_asn1print,
   /* 2D  -  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_asn1print,
   /* 2E  .  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_asn1print,
   /* 2F  /  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 30  0  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 31  1  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 32  2  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 33  3  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 34  4  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 35  5  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 36  6  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 37  7  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 38  8  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 39  9  */ CTYPE_MASK_digit | CTYPE_MASK_graph | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 3A  :  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_asn1print,
   /* 3B  ;  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 3C  <  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 3D  =  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 3E  >  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 3F  ?  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct
                | CTYPE_MASK_asn1print,
   /* 40  @  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 41  A  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 42  B  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 43  C  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 44  D  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 45  E  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 46  F  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 47  G  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 48  H  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 49  I  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 4A  J  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 4B  K  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 4C  L  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 4D  M  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 4E  N  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 4F  O  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 50  P  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 51  Q  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 52  R  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 53  S  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 54  T  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 55  U  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 56  V  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 57  W  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 58  X  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 59  Y  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 5A  Z  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_upper
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 5B  [  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 5C  \  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 5D  ]  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 5E  ^  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 5F  _  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 60  `  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 61  a  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 62  b  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 63  c  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 64  d  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 65  e  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 66  f  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_xdigit | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 67  g  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 68  h  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 69  i  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 6A  j  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 6B  k  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 6C  l  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 6D  m  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 6E  n  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 6F  o  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 70  p  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 71  q  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 72  r  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 73  s  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 74  t  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 75  u  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 76  v  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 77  w  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 78  x  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 79  y  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 7A  z  */ CTYPE_MASK_graph | CTYPE_MASK_lower | CTYPE_MASK_print
                | CTYPE_MASK_base64 | CTYPE_MASK_asn1print,
   /* 7B  {  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 7C  |  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 7D  }  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 7E  ~  */ CTYPE_MASK_graph | CTYPE_MASK_print | CTYPE_MASK_punct,
   /* 7F del */ CTYPE_MASK_cntrl
};

#ifdef CHARSET_EBCDIC
int ossl_toascii(int c)
{
    if (c < -128 || c > 256 || c == EOF)
        return c;
    /*
     * Adjust negatively signed characters.
     * This is not required for ASCII because any character that sign extends
     * is not seven bit and all of the checks are on the seven bit characters.
     * I.e. any check must fail on sign extension.
     */
    if (c < 0)
        c += 256;
    return os_toascii[c];
}

int ossl_fromascii(int c)
{
    if (c < -128 || c > 256 || c == EOF)
        return c;
    if (c < 0)
        c += 256;
    return os_toebcdic[c];
}
#endif

int ossl_ctype_check(int c, unsigned int mask)
{
    const int max = sizeof(ctype_char_map) / sizeof(*ctype_char_map);
    const int a = ossl_toascii(c);

    return a >= 0 && a < max && (ctype_char_map[a] & mask) != 0;
}

#if defined(CHARSET_EBCDIC) && !defined(CHARSET_EBCDIC_TEST)
static const int case_change = 0x40;
#else
static const int case_change = 0x20;
#endif

int ossl_tolower(int c)
{
    return ossl_isupper(c) ? c ^ case_change : c;
}

int ossl_toupper(int c)
{
    return ossl_islower(c) ? c ^ case_change : c;
}

int ossl_ascii_isdigit(const char inchar) {
    if (inchar > 0x2F && inchar < 0x3A)
        return 1;
    return 0;
}

/* str[n]casecmp_l is defined in POSIX 2008-01. Value is taken accordingly
 * https://www.gnu.org/software/libc/manual/html_node/Feature-Test-Macros.html */

#if (defined OPENSSL_SYS_WINDOWS) || (defined(_POSIX_C_SOURCE) && _POSIX_C_SOURCE >= 200809L)

# if defined OPENSSL_SYS_WINDOWS
# define locale_t _locale_t
# define freelocale _free_locale
# define strcasecmp_l _stricmp_l
# define strncasecmp_l _strnicmp_l
# endif
static locale_t loc;

# ifndef FIPS_MODULE
void *ossl_c_locale() {
    return (void *)loc;
}
# endif

int ossl_init_casecmp_int() {
# ifdef OPENSSL_SYS_WINDOWS
    loc = _create_locale(LC_COLLATE, "C");
# else
    loc = newlocale(LC_COLLATE_MASK, "C", (locale_t) 0);
# endif
    return (loc == (locale_t) 0) ? 0 : 1;
}

void ossl_deinit_casecmp() {
    freelocale(loc);
}

int OPENSSL_strcasecmp(const char *s1, const char *s2)
{
    return strcasecmp_l(s1, s2, (locale_t)ossl_c_locale());
}

int OPENSSL_strncasecmp(const char *s1, const char *s2, size_t n)
{
    return strncasecmp_l(s1, s2, n, (locale_t)ossl_c_locale());
}
#else
# ifndef FIPS_MODULE
void *ossl_c_locale() {
    return NULL;
}
# endif

int ossl_init_casecmp_int() {
    return 1;
}

void ossl_deinit_casecmp() {
}

int OPENSSL_strcasecmp(const char *s1, const char *s2)
{
    return strcasecmp(s1, s2);
}

int OPENSSL_strncasecmp(const char *s1, const char *s2, size_t n)
{
    return strncasecmp(s1, s2, n);
}
#endif
Commit	Line	Data
a1df06b3	1	/*
fecb3aae	2	* Copyright 2017-2022 The OpenSSL Project Authors. All Rights Reserved.
a1df06b3	3	*
0e9725bc	4	* Licensed under the Apache License 2.0 (the "License"). You may not use
a1df06b3 P	5	* this file except in compliance with the License. You can obtain a copy
	6	* in the file LICENSE in the source distribution or at
	7	* https://www.openssl.org/source/license.html
	8	*/
	9
	10	#include <string.h>
678c462e	11	#include <stdio.h>
25f2138b	12	#include "crypto/ctype.h"
6229815a	13	#include <openssl/ebcdic.h>
a1df06b3	14
4b2bd272 DB	15	#include "internal/e_os.h"
	16	#include "internal/core.h"
	17
	18	#ifndef OPENSSL_SYS_WINDOWS
	19	#include <strings.h>
	20	#endif
	21	#include <locale.h>
	22
	23	#ifdef OPENSSL_SYS_MACOSX
	24	#include <xlocale.h>
	25	#endif
	26
a1df06b3 P	27	/*
	28	* Define the character classes for each character in the seven bit ASCII
	29	* character set. This is independent of the host's character set, characters
	30	* are converted to ASCII before being used as an index in to this table.
	31	* Characters outside of the seven bit ASCII range are detected before indexing.
	32	*/
	33	static const unsigned short ctype_char_map[128] = {
	34	/* 00 nul */ CTYPE_MASK_cntrl,
	35	/* 01 soh */ CTYPE_MASK_cntrl,
	36	/* 02 stx */ CTYPE_MASK_cntrl,
	37	/* 03 etx */ CTYPE_MASK_cntrl,
	38	/* 04 eot */ CTYPE_MASK_cntrl,
	39	/* 05 enq */ CTYPE_MASK_cntrl,
	40	/* 06 ack */ CTYPE_MASK_cntrl,
	41	/* 07 \a */ CTYPE_MASK_cntrl,
	42	/* 08 \b */ CTYPE_MASK_cntrl,
	43	/* 09 \t */ CTYPE_MASK_blank \| CTYPE_MASK_cntrl \| CTYPE_MASK_space,
	44	/* 0A \n */ CTYPE_MASK_cntrl \| CTYPE_MASK_space,
	45	/* 0B \v */ CTYPE_MASK_cntrl \| CTYPE_MASK_space,
	46	/* 0C \f */ CTYPE_MASK_cntrl \| CTYPE_MASK_space,
	47	/* 0D \r */ CTYPE_MASK_cntrl \| CTYPE_MASK_space,
	48	/* 0E so */ CTYPE_MASK_cntrl,
	49	/* 0F si */ CTYPE_MASK_cntrl,
	50	/* 10 dle */ CTYPE_MASK_cntrl,
	51	/* 11 dc1 */ CTYPE_MASK_cntrl,
	52	/* 12 dc2 */ CTYPE_MASK_cntrl,
	53	/* 13 dc3 */ CTYPE_MASK_cntrl,
	54	/* 14 dc4 */ CTYPE_MASK_cntrl,
	55	/* 15 nak */ CTYPE_MASK_cntrl,
	56	/* 16 syn */ CTYPE_MASK_cntrl,
	57	/* 17 etb */ CTYPE_MASK_cntrl,
	58	/* 18 can */ CTYPE_MASK_cntrl,
	59	/* 19 em */ CTYPE_MASK_cntrl,
	60	/* 1A sub */ CTYPE_MASK_cntrl,
	61	/* 1B esc */ CTYPE_MASK_cntrl,
	62	/* 1C fs */ CTYPE_MASK_cntrl,
	63	/* 1D gs */ CTYPE_MASK_cntrl,
	64	/* 1E rs */ CTYPE_MASK_cntrl,
	65	/* 1F us */ CTYPE_MASK_cntrl,
	66	/* 20 */ CTYPE_MASK_blank \| CTYPE_MASK_print \| CTYPE_MASK_space
	67	\| CTYPE_MASK_asn1print,
	68	/* 21 ! */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
	69	/* 22 " */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
	70	/* 23 # */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
	71	/* 24 $ */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
	72	/* 25 % */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
	73	/* 26 & */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
	74	/* 27 ' */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
	75	\| CTYPE_MASK_asn1print,
	76	/* 28 ( */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
	77	\| CTYPE_MASK_asn1print,
	78	/* 29 ) */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
	79	\| CTYPE_MASK_asn1print,
	80	/* 2A * */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
	81	/* 2B + */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
	82	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
	83	/* 2C , */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
	84	\| CTYPE_MASK_asn1print,
	85	/* 2D - */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
	86	\| CTYPE_MASK_asn1print,
	87	/* 2E . */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
	88	\| CTYPE_MASK_asn1print,
	89	/* 2F / */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
	90	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
91	/* 30 0 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
92	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
93	/* 31 1 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
94	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
95	/* 32 2 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
96	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
97	/* 33 3 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
98	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
99	/* 34 4 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
100	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
101	/* 35 5 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
102	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
103	/* 36 6 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
104	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
105	/* 37 7 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
106	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
107	/* 38 8 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
108	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
109	/* 39 9 */ CTYPE_MASK_digit \| CTYPE_MASK_graph \| CTYPE_MASK_print
110	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
111	/* 3A : */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
112	\| CTYPE_MASK_asn1print,
113	/* 3B ; */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
114	/* 3C < */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
115	/* 3D = */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
116	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
117	/* 3E > */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
118	/* 3F ? */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct
119	\| CTYPE_MASK_asn1print,
120	/* 40 @ */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
121	/* 41 A */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
122	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
123	/* 42 B */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
124	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
125	/* 43 C */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
126	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
127	/* 44 D */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
128	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
129	/* 45 E */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
130	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
131	/* 46 F */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
132	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
133	/* 47 G */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
134	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
135	/* 48 H */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
136	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
137	/* 49 I */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
138	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
139	/* 4A J */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
140	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
141	/* 4B K */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
142	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
143	/* 4C L */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
144	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
145	/* 4D M */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
146	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
147	/* 4E N */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
148	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
149	/* 4F O */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
150	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
151	/* 50 P */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
152	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
153	/* 51 Q */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
154	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
155	/* 52 R */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
156	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
157	/* 53 S */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
158	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
159	/* 54 T */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
160	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
161	/* 55 U */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
162	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
163	/* 56 V */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
164	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
165	/* 57 W */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
166	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
167	/* 58 X */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
168	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
169	/* 59 Y */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
170	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
171	/* 5A Z */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_upper
172	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
173	/* 5B [ */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
174	/* 5C \ */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
175	/* 5D ] */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
176	/* 5E ^ */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
177	/* 5F _ */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
178	/* 60 ` */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
179	/* 61 a */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
180	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
181	/* 62 b */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
182	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
183	/* 63 c */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
184	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
185	/* 64 d */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
186	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
187	/* 65 e */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
188	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
189	/* 66 f */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
190	\| CTYPE_MASK_xdigit \| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
191	/* 67 g */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
192	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
193	/* 68 h */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
194	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
195	/* 69 i */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
196	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
197	/* 6A j */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
198	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
199	/* 6B k */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
200	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
201	/* 6C l */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
202	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
203	/* 6D m */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
204	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
205	/* 6E n */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
206	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
207	/* 6F o */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
208	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
209	/* 70 p */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
210	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
211	/* 71 q */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
212	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
213	/* 72 r */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
214	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
215	/* 73 s */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
216	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
217	/* 74 t */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
218	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
219	/* 75 u */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
220	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
221	/* 76 v */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
222	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
223	/* 77 w */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
224	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
225	/* 78 x */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
226	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
227	/* 79 y */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
228	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
229	/* 7A z */ CTYPE_MASK_graph \| CTYPE_MASK_lower \| CTYPE_MASK_print
230	\| CTYPE_MASK_base64 \| CTYPE_MASK_asn1print,
231	/* 7B { */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
232	/* 7C \| */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
233	/* 7D } */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
234	/* 7E ~ */ CTYPE_MASK_graph \| CTYPE_MASK_print \| CTYPE_MASK_punct,
235	/* 7F del */ CTYPE_MASK_cntrl
236	};
237
238	#ifdef CHARSET_EBCDIC
239	int ossl_toascii(int c)
240	{
678c462e	241	if (c < -128 \|\| c > 256 \|\| c == EOF)
a1df06b3 P	242	return c;
	243	/*
	244	* Adjust negatively signed characters.
	245	* This is not required for ASCII because any character that sign extends
	246	* is not seven bit and all of the checks are on the seven bit characters.
	247	* I.e. any check must fail on sign extension.
	248	*/
	249	if (c < 0)
	250	c += 256;
	251	return os_toascii[c];
	252	}
	253
	254	int ossl_fromascii(int c)
	255	{
678c462e	256	if (c < -128 \|\| c > 256 \|\| c == EOF)
a1df06b3 P	257	return c;
	258	if (c < 0)
	259	c += 256;
	260	return os_toebcdic[c];
	261	}
	262	#endif
	263
	264	int ossl_ctype_check(int c, unsigned int mask)
	265	{
	266	const int max = sizeof(ctype_char_map) / sizeof(*ctype_char_map);
932c0df2	267	const int a = ossl_toascii(c);
a1df06b3	268
932c0df2	269	return a >= 0 && a < max && (ctype_char_map[a] & mask) != 0;
a1df06b3 P	270	}
	271
	272	#if defined(CHARSET_EBCDIC) && !defined(CHARSET_EBCDIC_TEST)
	273	static const int case_change = 0x40;
	274	#else
	275	static const int case_change = 0x20;
	276	#endif
	277
	278	int ossl_tolower(int c)
	279	{
	280	return ossl_isupper(c) ? c ^ case_change : c;
	281	}
	282
	283	int ossl_toupper(int c)
	284	{
	285	return ossl_islower(c) ? c ^ case_change : c;
	286	}
48102247	287
adf7e6d1	288	int ossl_ascii_isdigit(const char inchar) {
48102247	289	if (inchar > 0x2F && inchar < 0x3A)
	290	return 1;
	291	return 0;
	292	}
4b2bd272 DB	293
	294	/* str[n]casecmp_l is defined in POSIX 2008-01. Value is taken accordingly
	295	* https://www.gnu.org/software/libc/manual/html_node/Feature-Test-Macros.html */
	296
	297	#if (defined OPENSSL_SYS_WINDOWS) \|\| (defined(_POSIX_C_SOURCE) && _POSIX_C_SOURCE >= 200809L)
	298
	299	# if defined OPENSSL_SYS_WINDOWS
	300	# define locale_t _locale_t
	301	# define freelocale _free_locale
	302	# define strcasecmp_l _stricmp_l
	303	# define strncasecmp_l _strnicmp_l
	304	# endif
	305	static locale_t loc;
	306
	307	# ifndef FIPS_MODULE
	308	void *ossl_c_locale() {
	309	return (void *)loc;
	310	}
	311	# endif
	312
	313	int ossl_init_casecmp_int() {
	314	# ifdef OPENSSL_SYS_WINDOWS
	315	loc = _create_locale(LC_COLLATE, "C");
	316	# else
	317	loc = newlocale(LC_COLLATE_MASK, "C", (locale_t) 0);
	318	# endif
	319	return (loc == (locale_t) 0) ? 0 : 1;
	320	}
	321
	322	void ossl_deinit_casecmp() {
	323	freelocale(loc);
	324	}
	325
	326	int OPENSSL_strcasecmp(const char s1, const char s2)
	327	{
	328	return strcasecmp_l(s1, s2, (locale_t)ossl_c_locale());
	329	}
	330
	331	int OPENSSL_strncasecmp(const char s1, const char s2, size_t n)
	332	{
	333	return strncasecmp_l(s1, s2, n, (locale_t)ossl_c_locale());
	334	}
	335	#else
	336	# ifndef FIPS_MODULE
	337	void *ossl_c_locale() {
	338	return NULL;
	339	}
	340	# endif
	341
	342	int ossl_init_casecmp_int() {
	343	return 1;
	344	}
	345
	346	void ossl_deinit_casecmp() {
	347	}
	348
	349	int OPENSSL_strcasecmp(const char s1, const char s2)
	350	{
	351	return strcasecmp(s1, s2);
	352	}
	353
	354	int OPENSSL_strncasecmp(const char s1, const char s2, size_t n)
	355	{
	356	return strncasecmp(s1, s2, n);
357	}
358	#endif