Home | History | Annotate | Line # | Download | only in gen
isctype.c revision 1.18 
      1 /* $NetBSD: isctype.c,v 1.18 2009/01/11 02:46:27 christos Exp $ */
      2 
      3 /*-
      4  * Copyright (c)2008 Citrus Project,
      5  * All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  *
     16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
     17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
     20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     26  * SUCH DAMAGE.
     27  */
     28 
     29 #include <sys/cdefs.h>
     30 #if defined(LIBC_SCCS) && !defined(lint)
     31 __RCSID("$NetBSD: isctype.c,v 1.18 2009/01/11 02:46:27 christos Exp $");
     32 #endif /* LIBC_SCCS and not lint */
     33 
     34 #include "namespace.h"
     35 #include <sys/types.h>
     36 #include <ctype.h>
     37 #include <langinfo.h>
     38 #define __SETLOCALE_SOURCE__
     39 #include <locale.h>
     40 #include <stdio.h>
     41 #if EOF != -1
     42 #error "EOF != -1"
     43 #endif
     44 
     45 #include "setlocale_local.h"
     46 
     47 #define _CTYPE_TAB(table, i) \
     48     (((*_current_locale())->cache.table + 1)[i])
     49 
     50 #undef isalnum
     51 #undef isalpha
     52 #undef iscntrl
     53 #undef isdigit
     54 #undef isgraph
     55 #undef islower
     56 #undef isprint
     57 #undef ispunct
     58 #undef isspace
     59 #undef isupper
     60 #undef isxdigit
     61 
     62 #define _ISCTYPE_FUNC(name, bit) \
     63 int \
     64 is##name(int c) \
     65 { \
     66 	return (int)(_CTYPE_TAB(ctype_tab, c) & (bit)); \
     67 }
     68 
     69 _ISCTYPE_FUNC(alnum,  _U|_L|_N      )
     70 _ISCTYPE_FUNC(alpha,  _U|_L         )
     71 _ISCTYPE_FUNC(cntrl,  _C            )
     72 _ISCTYPE_FUNC(digit,  _N            )
     73 _ISCTYPE_FUNC(graph,  _P|_U|_L|_N   )
     74 _ISCTYPE_FUNC(lower,  _L            )
     75 _ISCTYPE_FUNC(print,  _P|_U|_L|_N|_B)
     76 _ISCTYPE_FUNC(punct,  _P            )
     77 _ISCTYPE_FUNC(space,  _S            )
     78 _ISCTYPE_FUNC(upper,  _U            )
     79 _ISCTYPE_FUNC(xdigit, _N|_X         )
     80 
     81 #undef isblank
     82 int
     83 isblank(int c)
     84 {
     85 	/* XXX: FIXME */
     86         return c == ' ' || c == '\t';
     87 }
     88 
     89 #undef toupper
     90 int
     91 toupper(int c)
     92 {
     93 	return (int)_CTYPE_TAB(toupper_tab, c);
     94 }
     95 
     96 #undef tolower
     97 int
     98 tolower(int c)
     99 {
    100 	return (int)_CTYPE_TAB(tolower_tab, c);
    101 }
    102 
    103 #undef _toupper
    104 int
    105 _toupper(int c)
    106 {
    107 	return (c - 'a' + 'A');
    108 }
    109 
    110 #undef _tolower
    111 int
    112 _tolower(int c)
    113 {
    114 	return (c - 'A' + 'a');
    115 }
    116