gl/wctype.in.h

   1 /* A substitute for ISO C99 <wctype.h>, for platforms that lack it.
   2
   3    Copyright (C) 2006-2010 Free Software Foundation, Inc.
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 3, or (at your option)
   8    any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software Foundation,
  17    Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
  18
  19 /* Written by Bruno Haible and Paul Eggert.  */
  20
  21 /*
  22  * ISO C 99 <wctype.h> for platforms that lack it.
  23  * <http://www.opengroup.org/susv3xbd/wctype.h.html>
  24  *
  25  * iswctype, towctrans, towlower, towupper, wctrans, wctype,
  26  * wctrans_t, and wctype_t are not yet implemented.
  27  */
  28
  29 #ifndef _GL_WCTYPE_H
  30
  31 #if __GNUC__ >= 3
  32 @PRAGMA_SYSTEM_HEADER@
  33 #endif
  34
  35 #if @HAVE_WINT_T@
  36 /* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>.
  37    Tru64 with Desktop Toolkit C has a bug: <stdio.h> must be included before
  38    <wchar.h>.
  39    BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
  40    included before <wchar.h>.  */
  41 # include <stddef.h>
  42 # include <stdio.h>
  43 # include <time.h>
  44 # include <wchar.h>
  45 #endif
  46
  47 /* Include the original <wctype.h> if it exists.
  48    BeOS 5 has the functions but no <wctype.h>.  */
  49 /* The include_next requires a split double-inclusion guard.  */
  50 #if @HAVE_WCTYPE_H@
  51 # @INCLUDE_NEXT@ @NEXT_WCTYPE_H@
  52 #endif
  53
  54 #ifndef _GL_WCTYPE_H
  55 #define _GL_WCTYPE_H
  56
  57 /* The definitions of _GL_FUNCDECL_RPL etc. are copied here.  */
  58
  59 /* The definition of _GL_WARN_ON_USE is copied here.  */
  60
  61 /* Define wint_t and WEOF.  (Also done in wchar.in.h.)  */
  62 #if !@HAVE_WINT_T@ && !defined wint_t
  63 # define wint_t int
  64 # ifndef WEOF
  65 #  define WEOF -1
  66 # endif
  67 #else
  68 # ifndef WEOF
  69 #  define WEOF ((wint_t) -1)
  70 # endif
  71 #endif
  72
  73
  74 /* FreeBSD 4.4 to 4.11 has <wctype.h> but lacks the functions.
  75    Linux libc5 has <wctype.h> and the functions but they are broken.
  76    Assume all 11 functions (all isw* except iswblank) are implemented the
  77    same way, or not at all.  */
  78 #if ! @HAVE_ISWCNTRL@ || @REPLACE_ISWCNTRL@
  79
  80 /* IRIX 5.3 has macros but no functions, its isw* macros refer to an
  81    undefined variable _ctmp_ and to <ctype.h> macros like _P, and they
  82    refer to system functions like _iswctype that are not in the
  83    standard C library.  Rather than try to get ancient buggy
  84    implementations like this to work, just disable them.  */
  85 # undef iswalnum
  86 # undef iswalpha
  87 # undef iswblank
  88 # undef iswcntrl
  89 # undef iswdigit
  90 # undef iswgraph
  91 # undef iswlower
  92 # undef iswprint
  93 # undef iswpunct
  94 # undef iswspace
  95 # undef iswupper
  96 # undef iswxdigit
  97 # undef towlower
  98 # undef towupper
  99
 100 /* Linux libc5 has <wctype.h> and the functions but they are broken.  */
 101 # if @REPLACE_ISWCNTRL@
 102 #  if !(defined __cplusplus && defined GNULIB_NAMESPACE)
 103 #   define iswalnum rpl_iswalnum
 104 #   define iswalpha rpl_iswalpha
 105 #   define iswblank rpl_iswblank
 106 #   define iswcntrl rpl_iswcntrl
 107 #   define iswdigit rpl_iswdigit
 108 #   define iswgraph rpl_iswgraph
 109 #   define iswlower rpl_iswlower
 110 #   define iswprint rpl_iswprint
 111 #   define iswpunct rpl_iswpunct
 112 #   define iswspace rpl_iswspace
 113 #   define iswupper rpl_iswupper
 114 #   define iswxdigit rpl_iswxdigit
 115 #   define towlower rpl_towlower
 116 #   define towupper rpl_towupper
 117 #  endif
 118 # endif
 119
 120 static inline int
 121 # if @REPLACE_ISWCNTRL@
 122 rpl_iswalnum
 123 # else
 124 iswalnum
 125 # endif
 126          (wint_t wc)
 127 {
 128   return ((wc >= '0' && wc <= '9')
 129           || ((wc & ~0x20) >= 'A' && (wc & ~0x20) <= 'Z'));
 130 }
 131
 132 static inline int
 133 # if @REPLACE_ISWCNTRL@
 134 rpl_iswalpha
 135 # else
 136 iswalpha
 137 # endif
 138          (wint_t wc)
 139 {
 140   return (wc & ~0x20) >= 'A' && (wc & ~0x20) <= 'Z';
 141 }
 142
 143 static inline int
 144 # if @REPLACE_ISWCNTRL@
 145 rpl_iswblank
 146 # else
 147 iswblank
 148 # endif
 149          (wint_t wc)
 150 {
 151   return wc == ' ' || wc == '\t';
 152 }
 153
 154 static inline int
 155 # if @REPLACE_ISWCNTRL@
 156 rpl_iswcntrl
 157 # else
 158 iswcntrl
 159 # endif
 160         (wint_t wc)
 161 {
 162   return (wc & ~0x1f) == 0 || wc == 0x7f;
 163 }
 164
 165 static inline int
 166 # if @REPLACE_ISWCNTRL@
 167 rpl_iswdigit
 168 # else
 169 iswdigit
 170 # endif
 171          (wint_t wc)
 172 {
 173   return wc >= '0' && wc <= '9';
 174 }
 175
 176 static inline int
 177 # if @REPLACE_ISWCNTRL@
 178 rpl_iswgraph
 179 # else
 180 iswgraph
 181 # endif
 182          (wint_t wc)
 183 {
 184   return wc >= '!' && wc <= '~';
 185 }
 186
 187 static inline int
 188 # if @REPLACE_ISWCNTRL@
 189 rpl_iswlower
 190 # else
 191 iswlower
 192 # endif
 193          (wint_t wc)
 194 {
 195   return wc >= 'a' && wc <= 'z';
 196 }
 197
 198 static inline int
 199 # if @REPLACE_ISWCNTRL@
 200 rpl_iswprint
 201 # else
 202 iswprint
 203 # endif
 204          (wint_t wc)
 205 {
 206   return wc >= ' ' && wc <= '~';
 207 }
 208
 209 static inline int
 210 # if @REPLACE_ISWCNTRL@
 211 rpl_iswpunct
 212 # else
 213 iswpunct
 214 # endif
 215          (wint_t wc)
 216 {
 217   return (wc >= '!' && wc <= '~'
 218           && !((wc >= '0' && wc <= '9')
 219                || ((wc & ~0x20) >= 'A' && (wc & ~0x20) <= 'Z')));
 220 }
 221
 222 static inline int
 223 # if @REPLACE_ISWCNTRL@
 224 rpl_iswspace
 225 # else
 226 iswspace
 227 # endif
 228          (wint_t wc)
 229 {
 230   return (wc == ' ' || wc == '\t'
 231           || wc == '\n' || wc == '\v' || wc == '\f' || wc == '\r');
 232 }
 233
 234 static inline int
 235 # if @REPLACE_ISWCNTRL@
 236 rpl_iswupper
 237 # else
 238 iswupper
 239 # endif
 240          (wint_t wc)
 241 {
 242   return wc >= 'A' && wc <= 'Z';
 243 }
 244
 245 static inline int
 246 # if @REPLACE_ISWCNTRL@
 247 rpl_iswxdigit
 248 # else
 249 iswxdigit
 250 # endif
 251           (wint_t wc)
 252 {
 253   return ((wc >= '0' && wc <= '9')
 254           || ((wc & ~0x20) >= 'A' && (wc & ~0x20) <= 'F'));
 255 }
 256
 257 static inline wint_t
 258 # if @REPLACE_ISWCNTRL@
 259 rpl_towlower
 260 # else
 261 towlower
 262 # endif
 263          (wint_t wc)
 264 {
 265   return (wc >= 'A' && wc <= 'Z' ? wc - 'A' + 'a' : wc);
 266 }
 267
 268 static inline wint_t
 269 # if @REPLACE_ISWCNTRL@
 270 rpl_towupper
 271 # else
 272 towupper
 273 # endif
 274          (wint_t wc)
 275 {
 276   return (wc >= 'a' && wc <= 'z' ? wc - 'a' + 'A' : wc);
 277 }
 278
 279 #elif ! @HAVE_ISWBLANK@
 280 /* Only the iswblank function is missing.  */
 281
 282 static inline int
 283 iswblank (wint_t wc)
 284 {
 285   return wc == ' ' || wc == '\t';
 286 }
 287
 288 #endif
 289
 290 #if defined __MINGW32__
 291
 292 /* On native Windows, wchar_t is uint16_t, and wint_t is uint32_t.
 293    The functions towlower and towupper are implemented in the MSVCRT library
 294    to take a wchar_t argument and return a wchar_t result.  mingw declares
 295    these functions to take a wint_t argument and return a wint_t result.
 296    This means that:
 297    1. When the user passes an argument outside the range 0x0000..0xFFFF, the
 298       function will look only at the lower 16 bits.  This is allowed according
 299       to POSIX.
 300    2. The return value is returned in the lower 16 bits of the result register.
 301       The upper 16 bits are random: whatever happened to be in that part of the
 302       result register.  We need to fix this by adding a zero-extend from
 303       wchar_t to wint_t after the call.  */
 304
 305 static inline wint_t
 306 rpl_towlower (wint_t wc)
 307 {
 308   return (wint_t) (wchar_t) towlower (wc);
 309 }
 310 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
 311 #  define towlower rpl_towlower
 312 # endif
 313
 314 static inline wint_t
 315 rpl_towupper (wint_t wc)
 316 {
 317   return (wint_t) (wchar_t) towupper (wc);
 318 }
 319 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
 320 #  define towupper rpl_towupper
 321 # endif
 322
 323 #endif /* __MINGW32__ */
 324
 325 #if @REPLACE_ISWCNTRL@
 326 _GL_CXXALIAS_RPL (iswalnum, int, (wint_t wc));
 327 _GL_CXXALIAS_RPL (iswalpha, int, (wint_t wc));
 328 _GL_CXXALIAS_RPL (iswblank, int, (wint_t wc));
 329 _GL_CXXALIAS_RPL (iswcntrl, int, (wint_t wc));
 330 _GL_CXXALIAS_RPL (iswdigit, int, (wint_t wc));
 331 _GL_CXXALIAS_RPL (iswgraph, int, (wint_t wc));
 332 _GL_CXXALIAS_RPL (iswlower, int, (wint_t wc));
 333 _GL_CXXALIAS_RPL (iswprint, int, (wint_t wc));
 334 _GL_CXXALIAS_RPL (iswpunct, int, (wint_t wc));
 335 _GL_CXXALIAS_RPL (iswspace, int, (wint_t wc));
 336 _GL_CXXALIAS_RPL (iswupper, int, (wint_t wc));
 337 _GL_CXXALIAS_RPL (iswxdigit, int, (wint_t wc));
 338 #else
 339 _GL_CXXALIAS_SYS (iswalnum, int, (wint_t wc));
 340 _GL_CXXALIAS_SYS (iswalpha, int, (wint_t wc));
 341 _GL_CXXALIAS_SYS (iswblank, int, (wint_t wc));
 342 _GL_CXXALIAS_SYS (iswcntrl, int, (wint_t wc));
 343 _GL_CXXALIAS_SYS (iswdigit, int, (wint_t wc));
 344 _GL_CXXALIAS_SYS (iswgraph, int, (wint_t wc));
 345 _GL_CXXALIAS_SYS (iswlower, int, (wint_t wc));
 346 _GL_CXXALIAS_SYS (iswprint, int, (wint_t wc));
 347 _GL_CXXALIAS_SYS (iswpunct, int, (wint_t wc));
 348 _GL_CXXALIAS_SYS (iswspace, int, (wint_t wc));
 349 _GL_CXXALIAS_SYS (iswupper, int, (wint_t wc));
 350 _GL_CXXALIAS_SYS (iswxdigit, int, (wint_t wc));
 351 #endif
 352 _GL_CXXALIASWARN (iswalnum);
 353 _GL_CXXALIASWARN (iswalpha);
 354 _GL_CXXALIASWARN (iswblank);
 355 _GL_CXXALIASWARN (iswcntrl);
 356 _GL_CXXALIASWARN (iswdigit);
 357 _GL_CXXALIASWARN (iswgraph);
 358 _GL_CXXALIASWARN (iswlower);
 359 _GL_CXXALIASWARN (iswprint);
 360 _GL_CXXALIASWARN (iswpunct);
 361 _GL_CXXALIASWARN (iswspace);
 362 _GL_CXXALIASWARN (iswupper);
 363 _GL_CXXALIASWARN (iswxdigit);
 364
 365 #if @REPLACE_ISWCNTRL@ || defined __MINGW32__
 366 _GL_CXXALIAS_RPL (towlower, wint_t, (wint_t wc));
 367 _GL_CXXALIAS_RPL (towupper, wint_t, (wint_t wc));
 368 #else
 369 _GL_CXXALIAS_SYS (towlower, wint_t, (wint_t wc));
 370 _GL_CXXALIAS_SYS (towupper, wint_t, (wint_t wc));
 371 #endif
 372 _GL_CXXALIASWARN (towlower);
 373 _GL_CXXALIASWARN (towupper);
 374
 375
 376 #endif /* _GL_WCTYPE_H */
 377 #endif /* _GL_WCTYPE_H */