0,0 → 1,223 |
/* |
* Copyright (c) 1989 The Regents of the University of California. |
* All rights reserved. |
* |
* Redistribution and use in source and binary forms, with or without |
* modification, are permitted provided that the following conditions |
* are met: |
* 1. Redistributions of source code must retain the above copyright |
* notice, this list of conditions and the following disclaimer. |
* 2. Redistributions in binary form must reproduce the above copyright |
* notice, this list of conditions and the following disclaimer in the |
* documentation and/or other materials provided with the distribution. |
* 3. All advertising materials mentioning features or use of this software |
* must display the following acknowledgement: |
* This product includes software developed by the University of |
* California, Berkeley and its contributors. |
* 4. Neither the name of the University nor the names of its contributors |
* may be used to endorse or promote products derived from this software |
* without specific prior written permission. |
* |
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND |
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE |
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
* SUCH DAMAGE. |
*/ |
|
#if defined(LIBC_SCCS) && !defined(lint) |
static char sccsid[] = "@(#)ctype_.c 5.6 (Berkeley) 6/1/90"; |
#endif /* LIBC_SCCS and not lint */ |
|
#include <ctype.h> |
|
#define _CTYPE_DATA_0_127 \ |
_C, _C, _C, _C, _C, _C, _C, _C, \ |
_C, _C|_S, _C|_S, _C|_S, _C|_S, _C|_S, _C, _C, \ |
_C, _C, _C, _C, _C, _C, _C, _C, \ |
_C, _C, _C, _C, _C, _C, _C, _C, \ |
_S|_B, _P, _P, _P, _P, _P, _P, _P, \ |
_P, _P, _P, _P, _P, _P, _P, _P, \ |
_N, _N, _N, _N, _N, _N, _N, _N, \ |
_N, _N, _P, _P, _P, _P, _P, _P, \ |
_P, _U|_X, _U|_X, _U|_X, _U|_X, _U|_X, _U|_X, _U, \ |
_U, _U, _U, _U, _U, _U, _U, _U, \ |
_U, _U, _U, _U, _U, _U, _U, _U, \ |
_U, _U, _U, _P, _P, _P, _P, _P, \ |
_P, _L|_X, _L|_X, _L|_X, _L|_X, _L|_X, _L|_X, _L, \ |
_L, _L, _L, _L, _L, _L, _L, _L, \ |
_L, _L, _L, _L, _L, _L, _L, _L, \ |
_L, _L, _L, _P, _P, _P, _P, _C |
|
#define _CTYPE_DATA_128_255 \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0, \ |
0, 0, 0, 0, 0, 0, 0, 0 |
|
#if (defined(__GNUC__) && !defined(__CHAR_UNSIGNED__) && !defined(COMPACT_CTYPE)) || defined (__CYGWIN__) |
#define ALLOW_NEGATIVE_CTYPE_INDEX |
#endif |
|
#if defined(_MB_CAPABLE) |
#if defined(_MB_EXTENDED_CHARSETS_ISO) |
#include "ctype_iso.h" |
#endif |
#if defined(_MB_EXTENDED_CHARSETS_WINDOWS) |
#include "ctype_cp.h" |
#endif |
#endif |
|
#if defined(ALLOW_NEGATIVE_CTYPE_INDEX) |
/* No static const on Cygwin since it's referenced and potentially overwritten |
for compatibility with older applications. */ |
#ifndef __CYGWIN__ |
static _CONST |
#endif |
char _ctype_b[128 + 256] = { |
_CTYPE_DATA_128_255, |
_CTYPE_DATA_0_127, |
_CTYPE_DATA_128_255 |
}; |
|
#ifdef _NEED_OLD_CTYPE_PTR_DEFINITION |
#ifndef _MB_CAPABLE |
_CONST |
#endif |
char __EXPORT *__ctype_ptr = (char *) _ctype_b + 128; |
#endif |
|
#ifndef _MB_CAPABLE |
_CONST |
#endif |
char __EXPORT *__ctype_ptr__ = (char *) _ctype_b + 127; |
|
# ifdef __CYGWIN__ |
|
__asm__ (" \n\ |
.data \n\ |
.globl __ctype_ \n\ |
.set __ctype_,__ctype_b+127 \n\ |
.text \n\ |
"); |
|
# else /* !__CYGWIN__ */ |
|
_CONST char _ctype_[1 + 256] = { |
0, |
_CTYPE_DATA_0_127, |
_CTYPE_DATA_128_255 |
}; |
# endif /* !__CYGWIN__ */ |
|
#else /* !defined(ALLOW_NEGATIVE_CTYPE_INDEX) */ |
|
_CONST char _ctype_[1 + 256] = { |
0, |
_CTYPE_DATA_0_127, |
_CTYPE_DATA_128_255 |
}; |
|
#ifdef _NEED_OLD_CTYPE_PTR_DEFINITION |
#ifndef _MB_CAPABLE |
_CONST |
#endif |
char *__ctype_ptr = (char *) _ctype_ + 1; |
#endif |
|
#ifndef _MB_CAPABLE |
_CONST |
#endif |
char *__ctype_ptr__ = (char *) _ctype_; |
|
#endif |
|
#if defined(_MB_CAPABLE) |
/* Cygwin has its own implementation which additionally maintains backward |
compatibility with applications built under older Cygwin releases. */ |
#ifndef __CYGWIN__ |
void |
__set_ctype (const char *charset) |
{ |
#if defined(_MB_EXTENDED_CHARSETS_ISO) || defined(_MB_EXTENDED_CHARSETS_WINDOWS) |
int idx; |
#endif |
|
switch (*charset) |
{ |
#if defined(_MB_EXTENDED_CHARSETS_ISO) |
case 'I': |
idx = __iso_8859_index (charset + 9); |
/* The ctype table has a leading ISO-8859-1 element so we have to add |
1 to the index returned by __iso_8859_index. If __iso_8859_index |
returns < 0, it's ISO-8859-1. */ |
if (idx < 0) |
idx = 0; |
else |
++idx; |
# if defined(ALLOW_NEGATIVE_CTYPE_INDEX) |
#ifdef _NEED_OLD_CTYPE_PTR_DEFINITION |
__ctype_ptr = (char *) (__ctype_iso[idx] + 128); |
#endif |
__ctype_ptr__ = (char *) (__ctype_iso[idx] + 127); |
# else |
#ifdef _NEED_OLD_CTYPE_PTR_DEFINITION |
__ctype_ptr = (char *) __ctype_iso[idx] + 1; |
#endif |
__ctype_ptr__ = (char *) __ctype_iso[idx]; |
# endif |
return; |
#endif |
#if defined(_MB_EXTENDED_CHARSETS_WINDOWS) |
case 'C': |
idx = __cp_index (charset + 2); |
if (idx < 0) |
break; |
# if defined(ALLOW_NEGATIVE_CTYPE_INDEX) |
#ifdef _NEED_OLD_CTYPE_PTR_DEFINITION |
__ctype_ptr = (char *) (__ctype_cp[idx] + 128); |
#endif |
__ctype_ptr__ = (char *) (__ctype_cp[idx] + 127); |
# else |
#ifdef _NEED_OLD_CTYPE_PTR_DEFINITION |
__ctype_ptr = (char *) __ctype_cp[idx] + 1; |
#endif |
__ctype_ptr__ = (char *) __ctype_cp[idx]; |
# endif |
return; |
#endif |
default: |
break; |
} |
# if defined(ALLOW_NEGATIVE_CTYPE_INDEX) |
#ifdef _NEED_OLD_CTYPE_PTR_DEFINITION |
__ctype_ptr = (char *) _ctype_b + 128; |
#endif |
__ctype_ptr__ = (char *) _ctype_b + 127; |
# else |
#ifdef _NEED_OLD_CTYPE_PTR_DEFINITION |
__ctype_ptr = (char *) _ctype_ + 1; |
#endif |
__ctype_ptr__ = (char *) _ctype_; |
# endif |
} |
#endif /* !__CYGWIN__ */ |
#endif /* _MB_CAPABLE */ |