/* 

 * 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);

}