(libc): Export isctype and __isctype for GLIBC_2.3.
[kopensolaris-gnu/glibc.git] / ctype / ctype-extn.c
1 /* Copyright (C) 1991, 1997, 1999, 2000, 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 #define __ctype_tolower \
23   ((uint32_t *) _NL_CURRENT (LC_CTYPE, _NL_CTYPE_TOLOWER) + 128)
24 #define __ctype_toupper \
25   ((uint32_t *) _NL_CURRENT (LC_CTYPE, _NL_CTYPE_TOUPPER) + 128)
26
27 /* Real function versions of the non-ANSI ctype functions.  isblank is
28    now in ISO C99 but we leave it here.  */
29
30 int
31 isblank (int c)
32 {
33   return __isctype (c, _ISblank);
34 }
35
36 int
37 _tolower (int c)
38 {
39   return __ctype_tolower[c];
40 }
41 int
42 _toupper (int c)
43 {
44   return __ctype_toupper[c];
45 }
46
47 int
48 toascii (int c)
49 {
50   return __toascii (c);
51 }
52 weak_alias (toascii, __toascii_l)
53
54 int
55 isascii (int c)
56 {
57   return __isascii (c);
58 }
59 weak_alias (isascii, __isascii_l)
60
61
62 int
63 __isblank_l (int c, __locale_t l)
64 {
65   return __isctype_l (c, _ISblank, l);
66 }
67 weak_alias (__isblank_l, isblank_l)