1 /* A substitute for ISO C99 <wctype.h>, for platforms that lack it.
3 Copyright (C) 2006-2020 Free Software Foundation, Inc.
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 2, or (at your option)
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.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, see <https://www.gnu.org/licenses/>. */
18 /* Written by Bruno Haible and Paul Eggert. */
21 * ISO C 99 <wctype.h> for platforms that lack it.
22 * <https://pubs.opengroup.org/onlinepubs/9699919799/basedefs/wctype.h.html>
24 * iswctype, towctrans, towlower, towupper, wctrans, wctype,
25 * wctrans_t, and wctype_t are not yet implemented.
29 @PRAGMA_SYSTEM_HEADER@
33 #if (defined __MINGW32__ && defined __CTYPE_H_SOURCED__)
35 /* Special invocation convention:
36 - With MinGW 3.22, when <ctype.h> includes <wctype.h>, only some part of
37 <wctype.h> is being processed, which doesn't include the idempotency
40 #@INCLUDE_NEXT@ @NEXT_WCTYPE_H@
43 /* Normal invocation convention. */
45 #ifndef _@GUARD_PREFIX@_WCTYPE_H
48 /* Solaris 2.5 has a bug: <wchar.h> must be included before <wctype.h>.
49 Tru64 with Desktop Toolkit C has a bug: <stdio.h> must be included before
51 BSD/OS 4.0.1 has a bug: <stddef.h>, <stdio.h> and <time.h> must be
52 included before <wchar.h>. */
59 /* Native Windows (mingw, MSVC) have declarations of towupper, towlower, and
60 isw* functions in <ctype.h>, <wchar.h> as well as in <wctype.h>. Include
61 <ctype.h>, <wchar.h> in advance to avoid rpl_ prefix being added to the
63 #if defined _WIN32 && ! defined __CYGWIN__
68 /* Include the original <wctype.h> if it exists.
69 BeOS 5 has the functions but no <wctype.h>. */
70 /* The include_next requires a split double-inclusion guard. */
72 # @INCLUDE_NEXT@ @NEXT_WCTYPE_H@
75 #ifndef _@GUARD_PREFIX@_WCTYPE_H
76 #define _@GUARD_PREFIX@_WCTYPE_H
78 #ifndef _GL_INLINE_HEADER_BEGIN
79 #error "Please include config.h first."
81 _GL_INLINE_HEADER_BEGIN
82 #ifndef _GL_WCTYPE_INLINE
83 # define _GL_WCTYPE_INLINE _GL_INLINE
86 /* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */
88 /* The definition of _GL_WARN_ON_USE is copied here. */
90 /* Solaris 2.6 <wctype.h> includes <widec.h> which includes <euc.h> which
91 #defines a number of identifiers in the application namespace. Revert
103 /* Define wint_t and WEOF. (Also done in wchar.in.h.) */
104 #if !@HAVE_WINT_T@ && !defined wint_t
110 /* mingw and MSVC define wint_t as 'unsigned short' in <crtdefs.h> or
111 <stddef.h>. This is too small: ISO C 99 section 7.24.1.(2) says that
112 wint_t must be "unchanged by default argument promotions". Override it. */
113 # if @GNULIB_OVERRIDES_WINT_T@
114 # if !GNULIB_defined_wint_t
115 # if @HAVE_CRTDEFS_H@
116 # include <crtdefs.h>
120 typedef unsigned int rpl_wint_t
;
122 # define wint_t rpl_wint_t
123 # define GNULIB_defined_wint_t 1
127 # define WEOF ((wint_t) -1)
132 #if !GNULIB_defined_wctype_functions
134 /* FreeBSD 4.4 to 4.11 has <wctype.h> but lacks the functions.
135 Linux libc5 has <wctype.h> and the functions but they are broken.
136 mingw and MSVC have <wctype.h> and the functions but they take a wchar_t
137 as argument, not an rpl_wint_t.
138 Assume all 11 functions (all isw* except iswblank) are implemented the
139 same way, or not at all. */
140 # if ! @HAVE_ISWCNTRL@ || @REPLACE_ISWCNTRL@
142 # if @GNULIB_OVERRIDES_WINT_T@ /* implies @REPLACE_ISWCNTRL@ */
144 _GL_WCTYPE_INLINE
int
145 rpl_iswalnum (wint_t wc
)
147 return ((wchar_t) wc
== wc
? iswalnum ((wchar_t) wc
) : 0);
150 _GL_WCTYPE_INLINE
int
151 rpl_iswalpha (wint_t wc
)
153 return ((wchar_t) wc
== wc
? iswalpha ((wchar_t) wc
) : 0);
156 _GL_WCTYPE_INLINE
int
157 rpl_iswblank (wint_t wc
)
159 return ((wchar_t) wc
== wc
? iswblank ((wchar_t) wc
) : 0);
162 _GL_WCTYPE_INLINE
int
163 rpl_iswcntrl (wint_t wc
)
165 return ((wchar_t) wc
== wc
? iswcntrl ((wchar_t) wc
) : 0);
168 _GL_WCTYPE_INLINE
int
169 rpl_iswdigit (wint_t wc
)
171 return ((wchar_t) wc
== wc
? wc
>= '0' && wc
<= '9' : 0);
174 _GL_WCTYPE_INLINE
int
175 rpl_iswgraph (wint_t wc
)
177 return ((wchar_t) wc
== wc
? iswgraph ((wchar_t) wc
) : 0);
180 _GL_WCTYPE_INLINE
int
181 rpl_iswlower (wint_t wc
)
183 return ((wchar_t) wc
== wc
? iswlower ((wchar_t) wc
) : 0);
186 _GL_WCTYPE_INLINE
int
187 rpl_iswprint (wint_t wc
)
189 return ((wchar_t) wc
== wc
? iswprint ((wchar_t) wc
) : 0);
192 _GL_WCTYPE_INLINE
int
193 rpl_iswpunct (wint_t wc
)
195 return ((wchar_t) wc
== wc
? iswpunct ((wchar_t) wc
) : 0);
198 _GL_WCTYPE_INLINE
int
199 rpl_iswspace (wint_t wc
)
201 return ((wchar_t) wc
== wc
? iswspace ((wchar_t) wc
) : 0);
204 _GL_WCTYPE_INLINE
int
205 rpl_iswupper (wint_t wc
)
207 return ((wchar_t) wc
== wc
? iswupper ((wchar_t) wc
) : 0);
210 _GL_WCTYPE_INLINE
int
211 rpl_iswxdigit (wint_t wc
)
213 return ((wchar_t) wc
== wc
214 ? (wc
>= '0' && wc
<= '9')
215 || ((wc
& ~0x20) >= 'A' && (wc
& ~0x20) <= 'F')
219 _GL_WCTYPE_INLINE
wint_t
220 rpl_towlower (wint_t wc
)
222 return ((wchar_t) wc
== wc
? (wchar_t) towlower ((wchar_t) wc
) : wc
);
225 _GL_WCTYPE_INLINE
wint_t
226 rpl_towupper (wint_t wc
)
228 return ((wchar_t) wc
== wc
? (wchar_t) towupper ((wchar_t) wc
) : wc
);
231 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
246 # define iswalnum rpl_iswalnum
247 # define iswalpha rpl_iswalpha
248 # define iswblank rpl_iswblank
249 # define iswcntrl rpl_iswcntrl
250 # define iswdigit rpl_iswdigit
251 # define iswgraph rpl_iswgraph
252 # define iswlower rpl_iswlower
253 # define iswprint rpl_iswprint
254 # define iswpunct rpl_iswpunct
255 # define iswspace rpl_iswspace
256 # define iswupper rpl_iswupper
257 # define iswxdigit rpl_iswxdigit
258 # define towlower rpl_towlower
259 # define towupper rpl_towupper
264 /* IRIX 5.3 has macros but no functions, its isw* macros refer to an
265 undefined variable _ctmp_ and to <ctype.h> macros like _P, and they
266 refer to system functions like _iswctype that are not in the
267 standard C library. Rather than try to get ancient buggy
268 implementations like this to work, just disable them. */
284 /* Linux libc5 has <wctype.h> and the functions but they are broken. */
285 # if @REPLACE_ISWCNTRL@
286 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
287 # define iswalnum rpl_iswalnum
288 # define iswalpha rpl_iswalpha
289 # define iswblank rpl_iswblank
290 # define iswcntrl rpl_iswcntrl
291 # define iswdigit rpl_iswdigit
292 # define iswgraph rpl_iswgraph
293 # define iswlower rpl_iswlower
294 # define iswprint rpl_iswprint
295 # define iswpunct rpl_iswpunct
296 # define iswspace rpl_iswspace
297 # define iswupper rpl_iswupper
298 # define iswxdigit rpl_iswxdigit
301 # if @REPLACE_TOWLOWER@
302 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
303 # define towlower rpl_towlower
304 # define towupper rpl_towupper
308 _GL_WCTYPE_INLINE
int
309 # if @REPLACE_ISWCNTRL@
316 return ((wc
>= '0' && wc
<= '9')
317 || ((wc
& ~0x20) >= 'A' && (wc
& ~0x20) <= 'Z'));
320 _GL_WCTYPE_INLINE
int
321 # if @REPLACE_ISWCNTRL@
328 return (wc
& ~0x20) >= 'A' && (wc
& ~0x20) <= 'Z';
331 _GL_WCTYPE_INLINE
int
332 # if @REPLACE_ISWCNTRL@
339 return wc
== ' ' || wc
== '\t';
342 _GL_WCTYPE_INLINE
int
343 # if @REPLACE_ISWCNTRL@
350 return (wc
& ~0x1f) == 0 || wc
== 0x7f;
353 _GL_WCTYPE_INLINE
int
354 # if @REPLACE_ISWDIGIT@
361 return wc
>= '0' && wc
<= '9';
364 _GL_WCTYPE_INLINE
int
365 # if @REPLACE_ISWCNTRL@
372 return wc
>= '!' && wc
<= '~';
375 _GL_WCTYPE_INLINE
int
376 # if @REPLACE_ISWCNTRL@
383 return wc
>= 'a' && wc
<= 'z';
386 _GL_WCTYPE_INLINE
int
387 # if @REPLACE_ISWCNTRL@
394 return wc
>= ' ' && wc
<= '~';
397 _GL_WCTYPE_INLINE
int
398 # if @REPLACE_ISWCNTRL@
405 return (wc
>= '!' && wc
<= '~'
406 && !((wc
>= '0' && wc
<= '9')
407 || ((wc
& ~0x20) >= 'A' && (wc
& ~0x20) <= 'Z')));
410 _GL_WCTYPE_INLINE
int
411 # if @REPLACE_ISWCNTRL@
418 return (wc
== ' ' || wc
== '\t'
419 || wc
== '\n' || wc
== '\v' || wc
== '\f' || wc
== '\r');
422 _GL_WCTYPE_INLINE
int
423 # if @REPLACE_ISWCNTRL@
430 return wc
>= 'A' && wc
<= 'Z';
433 _GL_WCTYPE_INLINE
int
434 # if @REPLACE_ISWXDIGIT@
441 return ((wc
>= '0' && wc
<= '9')
442 || ((wc
& ~0x20) >= 'A' && (wc
& ~0x20) <= 'F'));
445 _GL_WCTYPE_INLINE
wint_t
446 # if @REPLACE_TOWLOWER@
453 return (wc
>= 'A' && wc
<= 'Z' ? wc
- 'A' + 'a' : wc
);
456 _GL_WCTYPE_INLINE
wint_t
457 # if @REPLACE_TOWLOWER@
464 return (wc
>= 'a' && wc
<= 'z' ? wc
- 'a' + 'A' : wc
);
470 /* Only some of the functions are missing or broken. */
472 # if @GNULIB_ISWBLANK@ && (! @HAVE_ISWBLANK@ || @REPLACE_ISWBLANK@)
473 /* Only the iswblank function is missing. */
474 # if @REPLACE_ISWBLANK@
475 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
476 # define iswblank rpl_iswblank
478 _GL_FUNCDECL_RPL (iswblank
, int, (wint_t wc
));
480 _GL_FUNCDECL_SYS (iswblank
, int, (wint_t wc
));
484 # if @GNULIB_ISWDIGIT@
485 # if @REPLACE_ISWDIGIT@
486 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
488 # define iswdigit rpl_iswdigit
490 _GL_FUNCDECL_RPL (iswdigit
, int, (wint_t wc
));
494 # if @GNULIB_ISWXDIGIT@
495 # if @REPLACE_ISWXDIGIT@
496 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
498 # define iswxdigit rpl_iswxdigit
500 _GL_FUNCDECL_RPL (iswxdigit
, int, (wint_t wc
));
506 # if defined __MINGW32__ && !@GNULIB_OVERRIDES_WINT_T@
508 /* On native Windows, wchar_t is uint16_t, and wint_t is uint32_t.
509 The functions towlower and towupper are implemented in the MSVCRT library
510 to take a wchar_t argument and return a wchar_t result. mingw declares
511 these functions to take a wint_t argument and return a wint_t result.
513 1. When the user passes an argument outside the range 0x0000..0xFFFF, the
514 function will look only at the lower 16 bits. This is allowed according
516 2. The return value is returned in the lower 16 bits of the result register.
517 The upper 16 bits are random: whatever happened to be in that part of the
518 result register. We need to fix this by adding a zero-extend from
519 wchar_t to wint_t after the call. */
521 _GL_WCTYPE_INLINE
wint_t
522 rpl_towlower (wint_t wc
)
524 return (wint_t) (wchar_t) towlower (wc
);
526 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
527 # define towlower rpl_towlower
530 _GL_WCTYPE_INLINE
wint_t
531 rpl_towupper (wint_t wc
)
533 return (wint_t) (wchar_t) towupper (wc
);
535 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
536 # define towupper rpl_towupper
539 # endif /* __MINGW32__ && !@GNULIB_OVERRIDES_WINT_T@ */
541 # define GNULIB_defined_wctype_functions 1
544 #if @REPLACE_ISWCNTRL@
545 _GL_CXXALIAS_RPL (iswalnum
, int, (wint_t wc
));
547 _GL_CXXALIAS_SYS (iswalnum
, int, (wint_t wc
));
549 #if @REPLACE_ISWCNTRL@
550 _GL_CXXALIAS_RPL (iswalpha
, int, (wint_t wc
));
552 _GL_CXXALIAS_SYS (iswalpha
, int, (wint_t wc
));
554 #if @REPLACE_ISWCNTRL@
555 _GL_CXXALIAS_RPL (iswcntrl
, int, (wint_t wc
));
557 _GL_CXXALIAS_SYS (iswcntrl
, int, (wint_t wc
));
559 #if @GNULIB_ISWDIGIT@
560 # if @REPLACE_ISWDIGIT@
561 _GL_CXXALIAS_RPL (iswdigit
, int, (wint_t wc
));
563 _GL_CXXALIAS_SYS (iswdigit
, int, (wint_t wc
));
566 #if @REPLACE_ISWCNTRL@
567 _GL_CXXALIAS_RPL (iswgraph
, int, (wint_t wc
));
569 _GL_CXXALIAS_SYS (iswgraph
, int, (wint_t wc
));
571 #if @REPLACE_ISWCNTRL@
572 _GL_CXXALIAS_RPL (iswlower
, int, (wint_t wc
));
574 _GL_CXXALIAS_SYS (iswlower
, int, (wint_t wc
));
576 #if @REPLACE_ISWCNTRL@
577 _GL_CXXALIAS_RPL (iswprint
, int, (wint_t wc
));
579 _GL_CXXALIAS_SYS (iswprint
, int, (wint_t wc
));
581 #if @REPLACE_ISWCNTRL@
582 _GL_CXXALIAS_RPL (iswpunct
, int, (wint_t wc
));
584 _GL_CXXALIAS_SYS (iswpunct
, int, (wint_t wc
));
586 #if @REPLACE_ISWCNTRL@
587 _GL_CXXALIAS_RPL (iswspace
, int, (wint_t wc
));
589 _GL_CXXALIAS_SYS (iswspace
, int, (wint_t wc
));
591 #if @REPLACE_ISWCNTRL@
592 _GL_CXXALIAS_RPL (iswupper
, int, (wint_t wc
));
594 _GL_CXXALIAS_SYS (iswupper
, int, (wint_t wc
));
596 #if @GNULIB_ISWXDIGIT@
597 # if @REPLACE_ISWXDIGIT@
598 _GL_CXXALIAS_RPL (iswxdigit
, int, (wint_t wc
));
600 _GL_CXXALIAS_SYS (iswxdigit
, int, (wint_t wc
));
604 _GL_CXXALIASWARN (iswalnum
);
605 _GL_CXXALIASWARN (iswalpha
);
606 _GL_CXXALIASWARN (iswcntrl
);
607 _GL_CXXALIASWARN (iswdigit
);
608 _GL_CXXALIASWARN (iswgraph
);
609 _GL_CXXALIASWARN (iswlower
);
610 _GL_CXXALIASWARN (iswprint
);
611 _GL_CXXALIASWARN (iswpunct
);
612 _GL_CXXALIASWARN (iswspace
);
613 _GL_CXXALIASWARN (iswupper
);
614 _GL_CXXALIASWARN (iswxdigit
);
617 #if @GNULIB_ISWBLANK@
618 # if @REPLACE_ISWCNTRL@ || @REPLACE_ISWBLANK@
619 _GL_CXXALIAS_RPL (iswblank
, int, (wint_t wc
));
621 _GL_CXXALIAS_SYS (iswblank
, int, (wint_t wc
));
624 _GL_CXXALIASWARN (iswblank
);
629 # if !GNULIB_defined_wctype_t
630 typedef void * wctype_t;
631 # define GNULIB_defined_wctype_t 1
635 /* Get a descriptor for a wide character property. */
637 # if !@HAVE_WCTYPE_T@
638 _GL_FUNCDECL_SYS (wctype
, wctype_t, (const char *name
));
640 _GL_CXXALIAS_SYS (wctype
, wctype_t, (const char *name
));
642 _GL_CXXALIASWARN (wctype
);
644 #elif defined GNULIB_POSIXCHECK
646 # if HAVE_RAW_DECL_WCTYPE
647 _GL_WARN_ON_USE (wctype
, "wctype is unportable - "
648 "use gnulib module wctype for portability");
652 /* Test whether a wide character has a given property.
653 The argument WC must be either a wchar_t value or WEOF.
654 The argument DESC must have been returned by the wctype() function. */
655 #if @GNULIB_ISWCTYPE@
656 # if @GNULIB_OVERRIDES_WINT_T@
657 # if !(defined __cplusplus && defined GNULIB_NAMESPACE)
659 # define iswctype rpl_iswctype
661 _GL_FUNCDECL_RPL (iswctype
, int, (wint_t wc
, wctype_t desc
));
662 _GL_CXXALIAS_RPL (iswctype
, int, (wint_t wc
, wctype_t desc
));
664 # if !@HAVE_WCTYPE_T@
665 _GL_FUNCDECL_SYS (iswctype
, int, (wint_t wc
, wctype_t desc
));
667 _GL_CXXALIAS_SYS (iswctype
, int, (wint_t wc
, wctype_t desc
));
670 _GL_CXXALIASWARN (iswctype
);
672 #elif defined GNULIB_POSIXCHECK
674 # if HAVE_RAW_DECL_ISWCTYPE
675 _GL_WARN_ON_USE (iswctype
, "iswctype is unportable - "
676 "use gnulib module iswctype for portability");
680 #if @REPLACE_TOWLOWER@ || defined __MINGW32__
681 _GL_CXXALIAS_RPL (towlower
, wint_t, (wint_t wc
));
682 _GL_CXXALIAS_RPL (towupper
, wint_t, (wint_t wc
));
684 _GL_CXXALIAS_SYS (towlower
, wint_t, (wint_t wc
));
685 _GL_CXXALIAS_SYS (towupper
, wint_t, (wint_t wc
));
688 _GL_CXXALIASWARN (towlower
);
689 _GL_CXXALIASWARN (towupper
);
692 #if !@HAVE_WCTRANS_T@
693 # if !GNULIB_defined_wctrans_t
694 typedef void * wctrans_t;
695 # define GNULIB_defined_wctrans_t 1
699 /* Get a descriptor for a wide character case conversion. */
701 # if !@HAVE_WCTRANS_T@
702 _GL_FUNCDECL_SYS (wctrans
, wctrans_t, (const char *name
));
704 _GL_CXXALIAS_SYS (wctrans
, wctrans_t, (const char *name
));
706 _GL_CXXALIASWARN (wctrans
);
708 #elif defined GNULIB_POSIXCHECK
710 # if HAVE_RAW_DECL_WCTRANS
711 _GL_WARN_ON_USE (wctrans
, "wctrans is unportable - "
712 "use gnulib module wctrans for portability");
716 /* Perform a given case conversion on a wide character.
717 The argument WC must be either a wchar_t value or WEOF.
718 The argument DESC must have been returned by the wctrans() function. */
719 #if @GNULIB_TOWCTRANS@
720 # if !@HAVE_WCTRANS_T@
721 _GL_FUNCDECL_SYS (towctrans
, wint_t, (wint_t wc
, wctrans_t desc
));
723 _GL_CXXALIAS_SYS (towctrans
, wint_t, (wint_t wc
, wctrans_t desc
));
725 _GL_CXXALIASWARN (towctrans
);
727 #elif defined GNULIB_POSIXCHECK
729 # if HAVE_RAW_DECL_TOWCTRANS
730 _GL_WARN_ON_USE (towctrans
, "towctrans is unportable - "
731 "use gnulib module towctrans for portability");
735 _GL_INLINE_HEADER_END
737 #endif /* _@GUARD_PREFIX@_WCTYPE_H */
738 #endif /* _@GUARD_PREFIX@_WCTYPE_H */