dlls/msvcrt/ctype.c

   1 /*
   2  * msvcrt.dll ctype functions
   3  *
   4  * Copyright 2000 Jon Griffiths
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "msvcrt.h"
  22 #include "winnls.h"
  23
  24 /* Some abbreviations to make the following table readable */
  25 #define _C_ MSVCRT__CONTROL
  26 #define _S_ MSVCRT__SPACE
  27 #define _P_ MSVCRT__PUNCT
  28 #define _D_ MSVCRT__DIGIT
  29 #define _H_ MSVCRT__HEX
  30 #define _U_ MSVCRT__UPPER
  31 #define _L_ MSVCRT__LOWER
  32
  33 WORD MSVCRT__ctype [257] = {
  34   0, _C_, _C_, _C_, _C_, _C_, _C_, _C_, _C_, _C_, _S_|_C_, _S_|_C_,
  35   _S_|_C_, _S_|_C_, _S_|_C_, _C_, _C_, _C_, _C_, _C_, _C_, _C_, _C_,
  36   _C_, _C_, _C_, _C_, _C_, _C_, _C_, _C_, _C_, _C_, _S_|MSVCRT__BLANK,
  37   _P_, _P_, _P_, _P_, _P_, _P_, _P_, _P_, _P_, _P_, _P_, _P_, _P_, _P_,
  38   _P_, _D_|_H_, _D_|_H_, _D_|_H_, _D_|_H_, _D_|_H_, _D_|_H_, _D_|_H_,
  39   _D_|_H_, _D_|_H_, _D_|_H_, _P_, _P_, _P_, _P_, _P_, _P_, _P_, _U_|_H_,
  40   _U_|_H_, _U_|_H_, _U_|_H_, _U_|_H_, _U_|_H_, _U_, _U_, _U_, _U_, _U_,
  41   _U_, _U_, _U_, _U_, _U_, _U_, _U_, _U_, _U_, _U_, _U_, _U_, _U_, _U_,
  42   _U_, _P_, _P_, _P_, _P_, _P_, _P_, _L_|_H_, _L_|_H_, _L_|_H_, _L_|_H_,
  43   _L_|_H_, _L_|_H_, _L_, _L_, _L_, _L_, _L_, _L_, _L_, _L_, _L_, _L_,
  44   _L_, _L_, _L_, _L_, _L_, _L_, _L_, _L_, _L_, _L_, _P_, _P_, _P_, _P_,
  45   _C_, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  46   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  47   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  48   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  49   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  50   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  51 };
  52
  53 /* pctype is used by macros in the Win32 headers. It must point
  54  * To a table of flags exactly like ctype. To allow locale
  55  * changes to affect ctypes (i.e. isleadbyte), we use a second table
  56  * and update its flags whenever the current locale changes.
  57  */
  58 WORD* MSVCRT__pctype = NULL;
  59
  60 /*********************************************************************
  61  *              __pctype_func (MSVCRT.@)
  62  */
  63 WORD** CDECL MSVCRT___pctype_func(void)
  64 {
  65   return &get_locale()->locinfo->pctype;
  66 }
  67
  68 /*********************************************************************
  69  *              _isctype_l (MSVCRT.@)
  70  */
  71 int CDECL _isctype_l(int c, int type, MSVCRT__locale_t locale)
  72 {
  73   if(!locale)
  74       locale = get_locale();
  75
  76   if (c >= -1 && c <= 255)
  77     return locale->locinfo->pctype[c] & type;
  78
  79   if (locale->locinfo->mb_cur_max != 1 && c > 0)
  80   {
  81     /* FIXME: Is there a faster way to do this? */
  82     WORD typeInfo;
  83     char convert[3], *pconv = convert;
  84
  85     if (locale->locinfo->pctype[(UINT)c >> 8] & MSVCRT__LEADBYTE)
  86       *pconv++ = (UINT)c >> 8;
  87     *pconv++ = c & 0xff;
  88     *pconv = 0;
  89
  90     if (GetStringTypeExA(locale->locinfo->lc_handle[MSVCRT_LC_CTYPE],
  91                 CT_CTYPE1, convert, convert[1] ? 2 : 1, &typeInfo))
  92       return typeInfo & type;
  93   }
  94   return 0;
  95 }
  96
  97 /*********************************************************************
  98  *              _isctype (MSVCRT.@)
  99  */
 100 int CDECL _isctype(int c, int type)
 101 {
 102     return _isctype_l(c, type, NULL);
 103 }
 104
 105 /*********************************************************************
 106  *              isalnum (MSVCRT.@)
 107  */
 108 int CDECL MSVCRT_isalnum(int c)
 109 {
 110   return _isctype( c, MSVCRT__ALPHA | MSVCRT__DIGIT );
 111 }
 112
 113 /*********************************************************************
 114  *              isalpha (MSVCRT.@)
 115  */
 116 int CDECL MSVCRT_isalpha(int c)
 117 {
 118   return _isctype( c, MSVCRT__ALPHA );
 119 }
 120
 121 /*********************************************************************
 122  *              iscntrl (MSVCRT.@)
 123  */
 124 int CDECL MSVCRT_iscntrl(int c)
 125 {
 126   return _isctype( c, MSVCRT__CONTROL );
 127 }
 128
 129 /*********************************************************************
 130  *              isdigit (MSVCRT.@)
 131  */
 132 int CDECL MSVCRT_isdigit(int c)
 133 {
 134   return _isctype( c, MSVCRT__DIGIT );
 135 }
 136
 137 /*********************************************************************
 138  *              isgraph (MSVCRT.@)
 139  */
 140 int CDECL MSVCRT_isgraph(int c)
 141 {
 142   return _isctype( c, MSVCRT__ALPHA | MSVCRT__DIGIT | MSVCRT__PUNCT );
 143 }
 144
 145 /*********************************************************************
 146  *              isleadbyte (MSVCRT.@)
 147  */
 148 int CDECL MSVCRT_isleadbyte(int c)
 149 {
 150   return _isctype( c, MSVCRT__LEADBYTE );
 151 }
 152
 153 /*********************************************************************
 154  *              islower (MSVCRT.@)
 155  */
 156 int CDECL MSVCRT_islower(int c)
 157 {
 158   return _isctype( c, MSVCRT__LOWER );
 159 }
 160
 161 /*********************************************************************
 162  *              isprint (MSVCRT.@)
 163  */
 164 int CDECL MSVCRT_isprint(int c)
 165 {
 166   return _isctype( c, MSVCRT__ALPHA | MSVCRT__DIGIT | MSVCRT__BLANK | MSVCRT__PUNCT );
 167 }
 168
 169 /*********************************************************************
 170  *              ispunct (MSVCRT.@)
 171  */
 172 int CDECL MSVCRT_ispunct(int c)
 173 {
 174   return _isctype( c, MSVCRT__PUNCT );
 175 }
 176
 177 /*********************************************************************
 178  *              isspace (MSVCRT.@)
 179  */
 180 int CDECL MSVCRT_isspace(int c)
 181 {
 182   return _isctype( c, MSVCRT__SPACE );
 183 }
 184
 185 /*********************************************************************
 186  *              isupper (MSVCRT.@)
 187  */
 188 int CDECL MSVCRT_isupper(int c)
 189 {
 190   return _isctype( c, MSVCRT__UPPER );
 191 }
 192
 193 /*********************************************************************
 194  *              isxdigit (MSVCRT.@)
 195  */
 196 int CDECL MSVCRT_isxdigit(int c)
 197 {
 198   return _isctype( c, MSVCRT__HEX );
 199 }
 200
 201 /*********************************************************************
 202  *              __isascii (MSVCRT.@)
 203  */
 204 int CDECL MSVCRT___isascii(int c)
 205 {
 206   return isascii((unsigned)c);
 207 }
 208
 209 /*********************************************************************
 210  *              __toascii (MSVCRT.@)
 211  */
 212 int CDECL MSVCRT___toascii(int c)
 213 {
 214   return (unsigned)c & 0x7f;
 215 }
 216
 217 /*********************************************************************
 218  *              iswascii (MSVCRT.@)
 219  *
 220  */
 221 int CDECL MSVCRT_iswascii(MSVCRT_wchar_t c)
 222 {
 223   return ((unsigned)c < 0x80);
 224 }
 225
 226 /*********************************************************************
 227  *              __iscsym (MSVCRT.@)
 228  */
 229 int CDECL MSVCRT___iscsym(int c)
 230 {
 231   return (c < 127 && (isalnum(c) || c == '_'));
 232 }
 233
 234 /*********************************************************************
 235  *              __iscsymf (MSVCRT.@)
 236  */
 237 int CDECL MSVCRT___iscsymf(int c)
 238 {
 239   return (c < 127 && (isalpha(c) || c == '_'));
 240 }
 241
 242 /*********************************************************************
 243  *              _toupper (MSVCRT.@)
 244  */
 245 int CDECL MSVCRT__toupper(int c)
 246 {
 247     return c - 0x20;  /* sic */
 248 }
 249
 250 /*********************************************************************
 251  *              _tolower (MSVCRT.@)
 252  */
 253 int CDECL MSVCRT__tolower(int c)
 254 {
 255     return c + 0x20;  /* sic */
 256 }