1File: CTYPE.H                                                             Page       1
     1   /*
     2   	Copyright 1982
     3   	Alcyon Corporation
     4   	8716 Production Ave.
     5   	San Diego, Ca.  92121
     6   */
     7    
     8   /*char *version "@(#)ctype - Aug 13, 1982";
     9    
    10    Standard routines... */
    11    
    12   #define isspace(c)	((c)==32 || (c)==9 || (c)==13 || (c)==10 ||(c)==12)
    13    
    14   #define isupper(c)	((c)<='Z' && (c)>='A')
    15    
    16   #define islower(c)	((c)<='z' && (c)>='a')
    17    
    18   #define isalpha(c)	(isupper((c)) || islower((c)))
    19    
    20   #define isdigit(c)	((c)<='9' && (c)>='0')
    21    
    22   #define isascii(c)	((c) < 0200 && (c) >= 0)
    23    
    24   #define isalnum(c)	(isalpha((c)) || isdigit((c)))
    25    
    26   #define iscntrl(c)	(((c) < 040 || (c) == 0177) && isascii((c)))
    27    
    28   #define isprint(c)	((c) >= 040 && (c) < 0177)
    29    
    30   #define ispunct(c)	(!isalnum((c)) && isprint(c))
    31    
    32   #define toupper(c)	(islower((c)) ? (c) & ~32 : (c))
    33    
    34   #define tolower(c)	(isupper((c)) ? (c) | 32 : (c))
    35    
    36   #define toascii(c)	((c) & 0177)
