ctype/test_ctype.c

   1 /* Copyright (C) 1991, 1994 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 Library General Public License as
   6 published by the Free Software Foundation; either version 2 of the
   7 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 Library General Public License for more details.
  13
  14 You should have received a copy of the GNU Library General Public
  15 License along with the GNU C Library; see the file COPYING.LIB.  If
  16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  17 Cambridge, MA 02139, USA.  */
  18
  19 #include <ansidecl.h>
  20 #include <limits.h>
  21 #include <ctype.h>
  22 #include <stdio.h>
  23 #include <stdlib.h>
  24
  25 #define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
  26 #define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
  27 #define XOR(e,f) (((e) && !(f)) || (!(e) && (f)))
  28
  29 #ifdef  __GNUC__
  30 __inline
  31 #endif
  32 static void
  33 DEFUN(print_char, (c), unsigned char c)
  34 {
  35   printf("%d/", (int) c);
  36   if (isgraph(c))
  37     printf("'%c'", c);
  38   else
  39     printf("'\\%.3o'", c);
  40 }
  41
  42 int
  43 DEFUN(main, (argc, argv), int argc AND char **argv)
  44 {
  45   register unsigned short int c;
  46   int lose = 0;
  47
  48   for (c = 0; c <= UCHAR_MAX; ++c)
  49     {
  50       print_char (c);
  51
  52       if (XOR (islower (c), ISLOWER (c)) || toupper (c) != TOUPPER (c))
  53         {
  54           fputs (" BOGUS", stdout);
  55           ++lose;
  56         }
  57
  58       if (isascii(c))
  59         fputs(" isascii", stdout);
  60       if (isalnum(c))
  61         fputs(" isalnum", stdout);
  62       if (isalpha(c))
  63         fputs(" isalpha", stdout);
  64       if (iscntrl(c))
  65         fputs(" iscntrl", stdout);
  66       if (isdigit(c))
  67         fputs(" isdigit", stdout);
  68       if (isgraph(c))
  69         fputs(" isgraph", stdout);
  70       if (islower(c))
  71         fputs(" islower", stdout);
  72       if (isprint(c))
  73         fputs(" isprint", stdout);
  74       if (ispunct(c))
  75         fputs(" ispunct", stdout);
  76       if (isspace(c))
  77         fputs(" isspace", stdout);
  78       if (isupper(c))
  79         fputs(" isupper", stdout);
  80       if (isxdigit(c))
  81         fputs(" isxdigit", stdout);
  82       if (isblank(c))
  83         fputs(" isblank", stdout);
  84       fputs("; lower = ", stdout);
  85       print_char(tolower(c));
  86       fputs("; upper = ", stdout);
  87       print_char(toupper(c));
  88       putchar('\n');
  89     }
  90
  91   exit (lose ? EXIT_FAILURE : EXIT_SUCCESS);
  92 }