/*
 *	UDI MWC86 Version 2.3.3
 *	Copyright (c) 1982, 1983, 1984 by Mark Williams Company, Chicago.
 *	All rights reserved. May not be copied or disclosed without permission.
 */

/*
 * Character type classification routines.
 * (This is implemented by table lookup).
 */

#ifndef	_U

extern	char	_ctype[];

/* Bits classifications */
#define	_U	01		/* Upper case alphabetic */
#define	_L	02		/* Lower case alphabetic */
#define	_A	(_U|_L)		/* Alphabetic */
#define	_D	010		/* Digit */
#define	_S	020		/* White space character */
#define	_P	040		/* Punctuation character */
#define	_C	0100		/* Control character */
#define	_X	0200		/* Printable but nothing else */

#define	isalpha(c)	((_ctype+1)[(c)]&_A)
#define	isupper(c)	((_ctype+1)[(c)]&_U)
#define	islower(c)	((_ctype+1)[(c)]&_L)
#define	isdigit(c)	((_ctype+1)[(c)]&_D)
#define	isalnum(c)	((_ctype+1)[(c)]&(_A|_D))
#define	isspace(c)	((_ctype+1)[(c)]&_S)
#define	ispunct(c)	((_ctype+1)[(c)]&_P)
#define	isprint(c)	((_ctype+1)[(c)]&(_P|_X|_A|_D))
#define	iscntrl(c)	((_ctype+1)[(c)]&_C)
#define	isascii(c)	(((c)&~0177)==0)
#define	tolower(c)	((c)|('a'-'A'))
#define	toupper(c)	((c)&~('a'-'A'))
#endif