ctype/test_ctype.c

   1 /* Copyright (C) 1991, 1994, 1996 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 #define TRYEM do {                                                            \
  49       TRY (isascii);                                                          \
  50       TRY (isalnum);                                                          \
  51       TRY (isalpha);                                                          \
  52       TRY (iscntrl);                                                          \
  53       TRY (isdigit);                                                          \
  54       TRY (isgraph);                                                          \
  55       TRY (islower);                                                          \
  56       TRY (isprint);                                                          \
  57       TRY (ispunct);                                                          \
  58       TRY (isspace);                                                          \
  59       TRY (isupper);                                                          \
  60       TRY (isxdigit);                                                         \
  61       TRY (isblank);                                                          \
  62     } while (0)
  63
  64   for (c = 0; c <= UCHAR_MAX; ++c)
  65     {
  66       print_char (c);
  67
  68       if (XOR (islower (c), ISLOWER (c)) || toupper (c) != TOUPPER (c))
  69         {
  70           fputs (" BOGUS", stdout);
  71           ++lose;
  72         }
  73
  74 #define TRY(isfoo) if (isfoo (c)) fputs (" " #isfoo, stdout)
  75       TRYEM;
  76 #undef TRY
  77
  78       fputs("; lower = ", stdout);
  79       print_char(tolower(c));
  80       fputs("; upper = ", stdout);
  81       print_char(toupper(c));
  82       putchar('\n');
  83     }
  84
  85   fputs ("EOF", stdout);
  86   if (tolower (EOF) != EOF)
  87     {
  88       ++lose;
  89       printf (" tolower BOGUS %d;", tolower (EOF));
  90     }
  91   if (toupper (EOF) != EOF)
  92     {
  93       ++lose;
  94       printf (" toupper BOGUS %d;", toupper (EOF));
  95     }
  96
  97 #define TRY(isfoo) if (isfoo (EOF)) fputs (" " #isfoo, stdout), ++lose
  98   TRYEM;
  99 #undef TRY
 100
 101   exit (lose ? EXIT_FAILURE : EXIT_SUCCESS);
 102 }