1 /* RCS $Id: ctype.h,v 1.1.1.1 2000-09-22 15:33:34 hr Exp $
7 -- ctype.h 4.2 85/09/04
10 -- Dennis Vadura, dvadura@dmake.wticorp.com
13 -- http://dmake.wticorp.com/
16 -- Copyright (c) 1996,1997 by WTI Corp. All rights reserved.
18 -- This program is NOT free software; you can redistribute it and/or
19 -- modify it under the terms of the Software License Agreement Provided
20 -- in the file <distribution-root>/readme/license.txt.
23 -- Use cvs log to obtain detailed change logs.
35 extern char _ctype_
[];
37 #define isalpha(c) ((_ctype_+1)[c]&(_U|_L))
38 #define isupper(c) ((_ctype_+1)[c]&_U)
39 #define islower(c) ((_ctype_+1)[c]&_L)
40 #define isdigit(c) ((_ctype_+1)[c]&_N)
41 #define isxdigit(c) ((_ctype_+1)[c]&(_N|_X))
42 #define isspace(c) ((_ctype_+1)[c]&_S)
43 #define ispunct(c) ((_ctype_+1)[c]&_P)
44 #define isalnum(c) ((_ctype_+1)[c]&(_U|_L|_N))
45 #define isprint(c) ((_ctype_+1)[c]&(_P|_U|_L|_N|_B))
46 #define isgraph(c) ((_ctype_+1)[c]&(_P|_U|_L|_N))
47 #define iscntrl(c) ((_ctype_+1)[c]&_C)
48 #define isascii(c) ((unsigned)(c)<=0177)
49 #define toupper(c) ((c)-'a'+'A')
50 #define tolower(c) ((c)-'A'+'a')
51 #define toascii(c) ((c)&0177)