home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / wkermit.tar.gz / wkermit.tar / ctype.h < prev    next >
C/C++ Source or Header  |  1985-11-11  |  2KB  |  54 lines

  1. /**
  2. *
  3. * This header file defines various ASCII character manipulation macros,
  4. * as follows:
  5. *
  6. *       isalpha(c)    non-zero if c is alpha
  7. *       isupper(c)    non-zero if c is upper case
  8. *       islower(c)    non-zero if c is lower case
  9. *       isdigit(c)    non-zero if c is a digit (0 to 9)
  10. *       isxdigit(c)   non-zero if c is a hexadecimal digit (0 to 9, A to F,
  11. *                   a to f)
  12. *       isspace(c)    non-zero if c is white space
  13. *       ispunct(c)    non-zero if c is punctuation
  14. *       isalnum(c)    non-zero if c is alpha or digit
  15. *       isprint(c)    non-zero if c is printable (including blank)
  16. *       isgraph(c)    non-zero if c is graphic (excluding blank)
  17. *       iscntrl(c)    non-zero if c is control character
  18. *       isascii(c)    non-zero if c is ASCII
  19. *       iscsym(c)     non-zero if valid character for C symbols
  20. *       iscsymf(c)    non-zero if valid first character for C symbols
  21. *
  22. **/
  23.  
  24. #define _U 1          /* upper case flag */
  25. #define _L 2          /* lower case flag */
  26. #define _N 4          /* number flag */
  27. #define _S 8          /* space flag */
  28. #define _P 16         /* punctuation flag */
  29. #define _C 32         /* control character flag */
  30. #define _B 64         /* blank flag */
  31. #define _X 128        /* hexadecimal flag */
  32.  
  33. extern char _ctype[];   /* character type table */
  34.  
  35. #define isalpha(c)      (_ctype[(c)+1]&(_U|_L))
  36. #define isupper(c)      (_ctype[(c)+1]&_U)
  37. #define islower(c)      (_ctype[(c)+1]&_L)
  38. #define isdigit(c)      (_ctype[(c)+1]&_N)
  39. #define isxdigit(c)     (_ctype[(c)+1]&_X)
  40. #define isspace(c)      (_ctype[(c)+1]&_S)
  41. #define ispunct(c)      (_ctype[(c)+1]&_P)
  42. #define isalnum(c)      (_ctype[(c)+1]&(_U|_L|_N))
  43. #define isprint(c)      (_ctype[(c)+1]&(_P|_U|_L|_N|_B))
  44. #define isgraph(c)      (_ctype[(c)+1]&(_P|_U|_L|_N))
  45. #define iscntrl(c)      (_ctype[(c)+1]&_C)
  46. #define isascii(c)      ((unsigned)(c)<=127)
  47. #define iscsym(c)       (isalnum(c)||(((c)&127)==0x5f))
  48. #define iscsymf(c)      (isalpha(c)||(((c)&127)==0x5f))
  49.  
  50. #define toupper(c)     (islower(c)?((c)-('a'-'A')):(c))
  51. #define tolower(c)     (isupper(c)?((c)+('a'-'A')):(c))
  52. #define toascii(c)      ((c)&127)
  53.  
  54.