Open64: osprey/cygnus/libiberty/safe-ctype.c Source File

00001 /* <ctype.h> replacement macros.
00002 
00003    Copyright (C) 2000 Free Software Foundation, Inc.
00004    Contributed by Zack Weinberg <zackw@stanford.edu>.
00005 
00006 This file is part of the libiberty library.
00007 Libiberty is free software; you can redistribute it and/or
00008 modify it under the terms of the GNU Library General Public
00009 License as published by the Free Software Foundation; either
00010 version 2 of the License, or (at your option) any later version.
00011 
00012 Libiberty is distributed in the hope that it will be useful,
00013 but WITHOUT ANY WARRANTY; without even the implied warranty of
00014 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00015 Library General Public License for more details.
00016 
00017 You should have received a copy of the GNU Library General Public
00018 License along with libiberty; see the file COPYING.LIB.  If
00019 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
00020 Boston, MA 02111-1307, USA.  */
00021 
00022 /*
00023 
00024 @defvr Extension HOST_CHARSET
00025 This macro indicates the basic character set and encoding used by the
00026 host: more precisely, the encoding used for character constants in
00027 preprocessor @samp{#if} statements (the C "execution character set").
00028 It is defined by @file{safe-ctype.h}, and will be an integer constant
00029 with one of the following values:
00030 
00031 @ftable @code
00032 @item HOST_CHARSET_UNKNOWN
00033 The host character set is unknown - that is, not one of the next two
00034 possibilities.
00035 
00036 @item HOST_CHARSET_ASCII
00037 The host character set is ASCII.
00038 
00039 @item HOST_CHARSET_EBCDIC
00040 The host character set is some variant of EBCDIC.  (Only one of the
00041 nineteen EBCDIC varying characters is tested; exercise caution.)
00042 @end ftable
00043 @end defvr
00044 
00045 @deffn  Extension ISALPHA  (@var{c})
00046 @deffnx Extension ISALNUM  (@var{c})
00047 @deffnx Extension ISBLANK  (@var{c})
00048 @deffnx Extension ISCNTRL  (@var{c})
00049 @deffnx Extension ISDIGIT  (@var{c})
00050 @deffnx Extension ISGRAPH  (@var{c})
00051 @deffnx Extension ISLOWER  (@var{c})
00052 @deffnx Extension ISPRINT  (@var{c})
00053 @deffnx Extension ISPUNCT  (@var{c})
00054 @deffnx Extension ISSPACE  (@var{c})
00055 @deffnx Extension ISUPPER  (@var{c})
00056 @deffnx Extension ISXDIGIT (@var{c})
00057 
00058 These twelve macros are defined by @file{safe-ctype.h}.  Each has the
00059 same meaning as the corresponding macro (with name in lowercase)
00060 defined by the standard header @file{ctype.h}.  For example,
00061 @code{ISALPHA} returns true for alphabetic characters and false for
00062 others.  However, there are two differences between these macros and
00063 those provided by @file{ctype.h}:
00064 
00065 @itemize @bullet
00066 @item These macros are guaranteed to have well-defined behavior for all 
00067 values representable by @code{signed char} and @code{unsigned char}, and
00068 for @code{EOF}.
00069 
00070 @item These macros ignore the current locale; they are true for these
00071 fixed sets of characters:
00072 @multitable {@code{XDIGIT}} {yada yada yada yada yada yada yada yada}
00073 @item @code{ALPHA}  @tab @kbd{A-Za-z}
00074 @item @code{ALNUM}  @tab @kbd{A-Za-z0-9}
00075 @item @code{BLANK}  @tab @kbd{space tab}
00076 @item @code{CNTRL}  @tab @code{!PRINT}
00077 @item @code{DIGIT}  @tab @kbd{0-9}
00078 @item @code{GRAPH}  @tab @code{ALNUM || PUNCT}
00079 @item @code{LOWER}  @tab @kbd{a-z}
00080 @item @code{PRINT}  @tab @code{GRAPH ||} @kbd{space}
00081 @item @code{PUNCT}  @tab @kbd{`~!@@#$%^&*()_-=+[@{]@}\|;:'",<.>/?}
00082 @item @code{SPACE}  @tab @kbd{space tab \n \r \f \v}
00083 @item @code{UPPER}  @tab @kbd{A-Z}
00084 @item @code{XDIGIT} @tab @kbd{0-9A-Fa-f}
00085 @end multitable
00086 
00087 Note that, if the host character set is ASCII or a superset thereof,
00088 all these macros will return false for all values of @code{char} outside
00089 the range of 7-bit ASCII.  In particular, both ISPRINT and ISCNTRL return
00090 false for characters with numeric values from 128 to 255.
00091 @end itemize
00092 @end deffn
00093 
00094 @deffn  Extension ISIDNUM         (@var{c})
00095 @deffnx Extension ISIDST          (@var{c})
00096 @deffnx Extension IS_VSPACE       (@var{c})
00097 @deffnx Extension IS_NVSPACE      (@var{c})
00098 @deffnx Extension IS_SPACE_OR_NUL (@var{c})
00099 @deffnx Extension IS_ISOBASIC     (@var{c})
00100 These six macros are defined by @file{safe-ctype.h} and provide
00101 additional character classes which are useful when doing lexical
00102 analysis of C or similar languages.  They are true for the following
00103 sets of characters:
00104 
00105 @multitable {@code{SPACE_OR_NUL}} {yada yada yada yada yada yada yada yada}
00106 @item @code{IDNUM}        @tab @kbd{A-Za-z0-9_}
00107 @item @code{IDST}         @tab @kbd{A-Za-z_}
00108 @item @code{VSPACE}       @tab @kbd{\r \n}
00109 @item @code{NVSPACE}      @tab @kbd{space tab \f \v \0}
00110 @item @code{SPACE_OR_NUL} @tab @code{VSPACE || NVSPACE}
00111 @item @code{ISOBASIC}     @tab @code{VSPACE || NVSPACE || PRINT}
00112 @end multitable
00113 @end deffn
00114 
00115 */
00116 
00117 #include "ansidecl.h"
00118 #include <safe-ctype.h>
00119 #include <stdio.h>  /* for EOF */
00120 
00121 #if EOF != -1
00122  #error "<safe-ctype.h> requires EOF == -1"
00123 #endif
00124 
00125 /* Shorthand */
00126 #define bl _sch_isblank
00127 #define cn _sch_iscntrl
00128 #define di _sch_isdigit
00129 #define is _sch_isidst
00130 #define lo _sch_islower
00131 #define nv _sch_isnvsp
00132 #define pn _sch_ispunct
00133 #define pr _sch_isprint
00134 #define sp _sch_isspace
00135 #define up _sch_isupper
00136 #define vs _sch_isvsp
00137 #define xd _sch_isxdigit
00138 
00139 /* Masks.  */
00140 #define L  (const unsigned short) (lo|is   |pr) /* lower case letter */
00141 #define XL (const unsigned short) (lo|is|xd|pr) /* lowercase hex digit */
00142 #define U  (const unsigned short) (up|is   |pr) /* upper case letter */
00143 #define XU (const unsigned short) (up|is|xd|pr) /* uppercase hex digit */
00144 #define D  (const unsigned short) (di   |xd|pr) /* decimal digit */
00145 #define P  (const unsigned short) (pn      |pr) /* punctuation */
00146 #define _  (const unsigned short) (pn|is   |pr) /* underscore */
00147 
00148 #define C  (const unsigned short) (         cn) /* control character */
00149 #define Z  (const unsigned short) (nv      |cn) /* NUL */
00150 #define M  (const unsigned short) (nv|sp   |cn) /* cursor movement: \f \v */
00151 #define V  (const unsigned short) (vs|sp   |cn) /* vertical space: \r \n */
00152 #define T  (const unsigned short) (nv|sp|bl|cn) /* tab */
00153 #define S  (const unsigned short) (nv|sp|bl|pr) /* space */
00154 
00155 /* Are we ASCII? */
00156 #if HOST_CHARSET == HOST_CHARSET_ASCII
00157 
00158 const unsigned short _sch_istable[256] =
00159 {
00160   Z,  C,  C,  C,   C,  C,  C,  C,   /* NUL SOH STX ETX  EOT ENQ ACK BEL */
00161   C,  T,  V,  M,   M,  V,  C,  C,   /* BS  HT  LF  VT   FF  CR  SO  SI  */
00162   C,  C,  C,  C,   C,  C,  C,  C,   /* DLE DC1 DC2 DC3  DC4 NAK SYN ETB */
00163   C,  C,  C,  C,   C,  C,  C,  C,   /* CAN EM  SUB ESC  FS  GS  RS  US  */
00164   S,  P,  P,  P,   P,  P,  P,  P,   /* SP  !   "   #    $   %   &   '   */
00165   P,  P,  P,  P,   P,  P,  P,  P,   /* (   )   *   +    ,   -   .   /   */
00166   D,  D,  D,  D,   D,  D,  D,  D,   /* 0   1   2   3    4   5   6   7   */
00167   D,  D,  P,  P,   P,  P,  P,  P,   /* 8   9   :   ;    <   =   >   ?   */
00168   P, XU, XU, XU,  XU, XU, XU,  U,   /* @   A   B   C    D   E   F   G   */
00169   U,  U,  U,  U,   U,  U,  U,  U,   /* H   I   J   K    L   M   N   O   */
00170   U,  U,  U,  U,   U,  U,  U,  U,   /* P   Q   R   S    T   U   V   W   */
00171   U,  U,  U,  P,   P,  P,  P,  _,   /* X   Y   Z   [    \   ]   ^   _   */
00172   P, XL, XL, XL,  XL, XL, XL,  L,   /* `   a   b   c    d   e   f   g   */
00173   L,  L,  L,  L,   L,  L,  L,  L,   /* h   i   j   k    l   m   n   o   */
00174   L,  L,  L,  L,   L,  L,  L,  L,   /* p   q   r   s    t   u   v   w   */
00175   L,  L,  L,  P,   P,  P,  P,  C,   /* x   y   z   {    |   }   ~   DEL */
00176 
00177   /* high half of unsigned char is locale-specific, so all tests are
00178      false in "C" locale */
00179   0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,
00180   0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,
00181   0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,
00182   0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,
00183 
00184   0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,
00185   0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,
00186   0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,
00187   0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,  0, 0, 0, 0,
00188 };
00189 
00190 const unsigned char _sch_tolower[256] =
00191 {
00192    0,  1,  2,  3,   4,  5,  6,  7,   8,  9, 10, 11,  12, 13, 14, 15,
00193   16, 17, 18, 19,  20, 21, 22, 23,  24, 25, 26, 27,  28, 29, 30, 31,
00194   32, 33, 34, 35,  36, 37, 38, 39,  40, 41, 42, 43,  44, 45, 46, 47,
00195   48, 49, 50, 51,  52, 53, 54, 55,  56, 57, 58, 59,  60, 61, 62, 63,
00196   64,
00197 
00198   'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
00199   'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',
00200 
00201   91, 92, 93, 94, 95, 96,
00202 
00203   'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
00204   'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',
00205 
00206  123,124,125,126,127,
00207 
00208  128,129,130,131, 132,133,134,135, 136,137,138,139, 140,141,142,143,
00209  144,145,146,147, 148,149,150,151, 152,153,154,155, 156,157,158,159,
00210  160,161,162,163, 164,165,166,167, 168,169,170,171, 172,173,174,175,
00211  176,177,178,179, 180,181,182,183, 184,185,186,187, 188,189,190,191,
00212 
00213  192,193,194,195, 196,197,198,199, 200,201,202,203, 204,205,206,207,
00214  208,209,210,211, 212,213,214,215, 216,217,218,219, 220,221,222,223,
00215  224,225,226,227, 228,229,230,231, 232,233,234,235, 236,237,238,239,
00216  240,241,242,243, 244,245,246,247, 248,249,250,251, 252,253,254,255,
00217 };
00218 
00219 const unsigned char _sch_toupper[256] =
00220 {
00221    0,  1,  2,  3,   4,  5,  6,  7,   8,  9, 10, 11,  12, 13, 14, 15,
00222   16, 17, 18, 19,  20, 21, 22, 23,  24, 25, 26, 27,  28, 29, 30, 31,
00223   32, 33, 34, 35,  36, 37, 38, 39,  40, 41, 42, 43,  44, 45, 46, 47,
00224   48, 49, 50, 51,  52, 53, 54, 55,  56, 57, 58, 59,  60, 61, 62, 63,
00225   64,
00226 
00227   'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
00228   'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
00229 
00230   91, 92, 93, 94, 95, 96,
00231 
00232   'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
00233   'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
00234 
00235  123,124,125,126,127,
00236 
00237  128,129,130,131, 132,133,134,135, 136,137,138,139, 140,141,142,143,
00238  144,145,146,147, 148,149,150,151, 152,153,154,155, 156,157,158,159,
00239  160,161,162,163, 164,165,166,167, 168,169,170,171, 172,173,174,175,
00240  176,177,178,179, 180,181,182,183, 184,185,186,187, 188,189,190,191,
00241 
00242  192,193,194,195, 196,197,198,199, 200,201,202,203, 204,205,206,207,
00243  208,209,210,211, 212,213,214,215, 216,217,218,219, 220,221,222,223,
00244  224,225,226,227, 228,229,230,231, 232,233,234,235, 236,237,238,239,
00245  240,241,242,243, 244,245,246,247, 248,249,250,251, 252,253,254,255,
00246 };
00247 
00248 #else
00249 # if HOST_CHARSET == HOST_CHARSET_EBCDIC
00250   #error "FIXME: write tables for EBCDIC"
00251 # else
00252   #error "Unrecognized host character set"
00253 # endif
00254 #endif