Return to char.h CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / tran

Annotation of 43BSD/contrib/icon/tran/char.h, revision 1.1

1.1     ! root        1: /*
        !             2:  * Macros for determining character type.
        !             3:  *
        !             4:  * The table chrtype (in char.c) classifies each character
        !             5:  *  in one of the categories defined below.
        !             6:  */
        !             7: 
        !             8: #define _S      01             /* space */
        !             9: #define _U      02             /* upper case */
        !            10: #define _L      04             /* lower case */
        !            11: #define _A     010             /* other alphabetic (e.g. "_") */
        !            12: #define _N     020             /* digit */
        !            13: 
        !            14: #define _UL    (_U | _L)       /* letter */
        !            15: #define _ULA   (_UL | _A)      /* alphabetic */
        !            16: #define _ULAN  (_ULA | _N)     /* alphanumeric */
        !            17: 
        !            18: #define isspace(c)     (chrtype[c] & _S) 
        !            19: #define isupper(c)     (chrtype[c] & _U) 
        !            20: #define islower(c)     (chrtype[c] & _L) 
        !            21: #define isletter(c)    (chrtype[c] & _UL) 
        !            22: #define isalpha(c)     (chrtype[c] & _ULA) 
        !            23: #define isdigit(c)     (chrtype[c] & _N) 
        !            24: #define isalnum(c)     (chrtype[c] & _ULAN) 
        !            25: 
        !            26: #define toupper(c)     (islower(c)? (c - ('a'-'A')) : c) 
        !            27: #define tolower(c)     (isupper(c)? (c + ('a'-'A')) : c) 
        !            28: #define tonum(c)       (isdigit(c)? (c - '0') : ((c & 037) + 9)) 
        !            29: 
        !            30: extern char chrtype[];

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.