include/chartypes.h

   1 /* chartypes.h -- extend ctype.h */
   2
   3 /* Copyright (C) 2001 Free Software Foundation, Inc.
   4
   5    This file is part of GNU Bash, the Bourne Again SHell.
   6
   7    Bash is free software; you can redistribute it and/or modify it under
   8    the terms of the GNU General Public License as published by the Free
   9    Software Foundation; either version 2, or (at your option) any later
  10    version.
  11
  12    Bash is distributed in the hope that it will be useful, but WITHOUT ANY
  13    WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15    for more details.
  16
  17    You should have received a copy of the GNU General Public License along
  18    with Bash; see the file COPYING.  If not, write to the Free Software
  19    Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
  20
  21 #ifndef _SH_CHARTYPES_H
  22 #define _SH_CHARTYPES_H
  23
  24 #include <ctype.h>
  25
  26 /* Jim Meyering writes:
  27
  28    "... Some ctype macros are valid only for character codes that
  29    isascii says are ASCII (SGI's IRIX-4.0.5 is one such system --when
  30    using /bin/cc or gcc but without giving an ansi option).  So, all
  31    ctype uses should be through macros like ISPRINT...  If
  32    STDC_HEADERS is defined, then autoconf has verified that the ctype
  33    macros don't need to be guarded with references to isascii. ...
  34    Defining IN_CTYPE_DOMAIN to 1 should let any compiler worth its salt
  35    eliminate the && through constant folding."
  36    Solaris defines some of these symbols so we must undefine them first.  */
  37
  38 #if defined STDC_HEADERS || (!defined isascii && !defined HAVE_ISASCII)
  39 #  define IN_CTYPE_DOMAIN(c) 1
  40 #else
  41 #  define IN_CTYPE_DOMAIN(c) isascii(c)
  42 #endif
  43
  44 #if !defined (isspace) && !defined (HAVE_ISSPACE)
  45 #  define isspace(c) ((c) == ' ' || (c) == '\t' || (c) == '\n' || (c) == '\f')
  46 #endif
  47
  48 #if !defined (isprint) && !defined (HAVE_ISPRINT)
  49 #  define isprint(c) (isalpha(c) || isdigit(c) || ispunct(c))
  50 #endif
  51
  52 #if defined (isblank) || defined (HAVE_ISBLANK)
  53 #  define ISBLANK(c) (IN_CTYPE_DOMAIN (c) && isblank (c))
  54 #else
  55 #  define ISBLANK(c) ((c) == ' ' || (c) == '\t')
  56 #endif
  57
  58 #if defined (isgraph) || defined (HAVE_ISGRAPH)
  59 #  define ISGRAPH(c) (IN_CTYPE_DOMAIN (c) && isgraph (c))
  60 #else
  61 #  define ISGRAPH(c) (IN_CTYPE_DOMAIN (c) && isprint (c) && !isspace (c))
  62 #endif
  63
  64 #if !defined (isxdigit) && !defined (HAVE_ISXDIGIT)
  65 #  define isxdigit(c)   (((c) >= '0' && (c) <= '9') || ((c) >= 'a' && (c) <= 'f') || ((c) >= 'A' && (c) <= 'F'))
  66 #endif
  67
  68 #undef ISPRINT
  69
  70 #define ISPRINT(c) (IN_CTYPE_DOMAIN (c) && isprint (c))
  71 #define ISDIGIT(c) (IN_CTYPE_DOMAIN (c) && isdigit (c))
  72 #define ISALNUM(c) (IN_CTYPE_DOMAIN (c) && isalnum (c))
  73 #define ISALPHA(c) (IN_CTYPE_DOMAIN (c) && isalpha (c))
  74 #define ISCNTRL(c) (IN_CTYPE_DOMAIN (c) && iscntrl (c))
  75 #define ISLOWER(c) (IN_CTYPE_DOMAIN (c) && islower (c))
  76 #define ISPUNCT(c) (IN_CTYPE_DOMAIN (c) && ispunct (c))
  77 #define ISSPACE(c) (IN_CTYPE_DOMAIN (c) && isspace (c))
  78 #define ISUPPER(c) (IN_CTYPE_DOMAIN (c) && isupper (c))
  79 #define ISXDIGIT(c) (IN_CTYPE_DOMAIN (c) && isxdigit (c))
  80
  81 #define ISLETTER(c)     (ISALPHA(c))
  82
  83 #define DIGIT(c)        ((c) >= '0' && (c) <= '9')
  84
  85 #define ISWORD(c)       (ISLETTER(c) || DIGIT(c) || ((c) == '_'))
  86
  87 #define HEXVALUE(c) \
  88   (((c) >= 'a' && (c) <= 'f') \
  89         ? (c)-'a'+10 \
  90         : (c) >= 'A' && (c) <= 'F' ? (c)-'A'+10 : (c)-'0')
  91
  92 #ifndef ISOCTAL
  93 #  define ISOCTAL(c)    ((c) >= '0' && (c) <= '7')
  94 #endif
  95 #define OCTVALUE(c)     ((c) - '0')
  96
  97 #define TODIGIT(c)      ((c) - '0')
  98 #define TOCHAR(c)       ((c) + '0')
  99
 100 #define TOLOWER(c)      (ISUPPER(c) ? tolower(c) : (c))
 101 #define TOUPPER(c)      (ISLOWER(c) ? toupper(c) : (c))
 102
 103 #ifndef TOCTRL
 104    /* letter to control char -- ASCII.  The TOUPPER is in there so \ce and
 105       \cE will map to the same character in $'...' expansions. */
 106 #  define TOCTRL(x)     (TOUPPER(x) & 037)
 107 #endif
 108 #ifndef UNCTRL
 109    /* control char to letter -- ASCII */
 110 #  define UNCTRL(x)     (TOUPPER((x) | 0x40))
 111 #endif
 112
 113 #endif /* _SH_CHARTYPES_H */