Fri Jul 26 00:36:50 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
[kopensolaris-gnu/glibc.git] / 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 }