1: /* Copyright (C) 1991,1997,1999,2000,2002,2005 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:   ((int32_t *) _NL_CURRENT (LC_CTYPE, _NL_CTYPE_TOLOWER) + 128)
   24: #define __ctype_toupper \
   25:   ((int32_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)