2002-09-01 Roland McGrath <roland@redhat.com>
[kopensolaris-gnu/glibc.git] / ctype / ctype.c
1 /* Copyright (C) 1991,92,97,99,2002 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3
4    The GNU C Library is free software; you can redistribute it and/or
5    modify it under the terms of the GNU Lesser General Public
6    License as published by the Free Software Foundation; either
7    version 2.1 of the License, or (at your option) any later version.
8
9    The GNU C Library is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    Lesser General Public License for more details.
13
14    You should have received a copy of the GNU Lesser General Public
15    License along with the GNU C Library; if not, write to the Free
16    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17    02111-1307 USA.  */
18
19 #define __NO_CTYPE
20 #include <ctype.h>
21
22 /* Provide real-function versions of all the ctype macros.  */
23
24 #define func(name, type) \
25   int name (int c) { return __isctype (c, type); }
26
27 func (isalnum, _ISalnum)
28 func (isalpha, _ISalpha)
29 func (iscntrl, _IScntrl)
30 func (isdigit, _ISdigit)
31 func (islower, _ISlower)
32 func (isgraph, _ISgraph)
33 func (isprint, _ISprint)
34 func (ispunct, _ISpunct)
35 func (isspace, _ISspace)
36 func (isupper, _ISupper)
37 func (isxdigit, _ISxdigit)
38
39 #define __ctype_tolower \
40   ((uint32_t *) _NL_CURRENT (LC_CTYPE, _NL_CTYPE_TOLOWER) + 128)
41 #define __ctype_toupper \
42   ((uint32_t *) _NL_CURRENT (LC_CTYPE, _NL_CTYPE_TOUPPER) + 128)
43
44 int
45 tolower (int c)
46 {
47   return c >= -128 && c < 256 ? __ctype_tolower[c] : c;
48 }
49
50 int
51 toupper (int c)
52 {
53   return c >= -128 && c < 256 ? __ctype_toupper[c] : c;
54 }