42 lines
1.3 KiB
C
42 lines
1.3 KiB
C
/*
|
|
* Copyright (C) 2006 Alan W. Irwin
|
|
*
|
|
* This file is part of PLplot.
|
|
*
|
|
* PLplot is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU Library General Public License as published
|
|
* by the Free Software Foundation; version 2 of the License.
|
|
*
|
|
* PLplot is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU Library General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Library General Public License
|
|
* along with the file PLplot; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
*/
|
|
|
|
#include <ctype.h>
|
|
#if ((' ' & 0x0FF) == 0x020)
|
|
# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
|
|
# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
|
|
#else
|
|
# define ISLOWER(c) \
|
|
(('a' <= (c) && (c) <= 'i') \
|
|
|| ('j' <= (c) && (c) <= 'r') \
|
|
|| ('s' <= (c) && (c) <= 'z'))
|
|
# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
|
|
#endif
|
|
|
|
#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
|
|
int
|
|
main ()
|
|
{
|
|
int i;
|
|
for (i = 0; i < 256; i++)
|
|
if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i))
|
|
exit(1);
|
|
exit (0);
|
|
}
|