class.h 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344
  1. /* $Id$ */
  2. /*
  3. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. * See the copyright notice in the ACK home directory, in the file "Copyright".
  5. */
  6. /* U S E O F C H A R A C T E R C L A S S E S */
  7. /* As a starter, chars are divided into classes, according to which
  8. token they can be the start of.
  9. At present such a class number is supposed to fit in 4 bits.
  10. */
  11. #define class(ch) (tkclass[(unsigned char) ch])
  12. /* Being the start of a token is, fortunately, a mutual exclusive
  13. property, so, as there are less than 16 classes they can be
  14. packed in 4 bits.
  15. */
  16. #define STSKIP 0 /* spaces and so on: skipped characters */
  17. #define STNL 1 /* newline character(s): update linenumber etc. */
  18. #define STGARB 2 /* garbage ascii character: not allowed */
  19. #define STSIMP 3 /* this character can occur as token */
  20. #define STCOMP 4 /* this one can start a compound token */
  21. #define STIDF 5 /* being the initial character of an identifier */
  22. #define STCHAR 6 /* the starter of a character constant */
  23. #define STSTR 7 /* the starter of a string */
  24. #define STNUM 8 /* the starter of a numeric constant */
  25. #define STEOI 9 /* End-Of-Information mark */
  26. /* But occurring inside a token is not, so we need 1 bit for each
  27. class.
  28. */
  29. #define _I_ 01
  30. #define _O_ 02
  31. #define _D_ 04
  32. #define _H_ 010
  33. #define in_idf(ch) (tk2class[(unsigned char)ch] & _I_)
  34. #define is_oct(ch) (tk2class[(unsigned char)ch] & _O_)
  35. #define is_dig(ch) (tk2class[(unsigned char)ch] & _D_)
  36. #define is_hex(ch) (tk2class[(unsigned char)ch] & _H_)
  37. extern char tkclass[], tk2class[];