home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l200 / 6.ddi / TRAN / ACOM.H next >
Encoding:
C/C++ Source or Header  |  1986-08-21  |  1.4 KB  |  55 lines
  1. /*    acom.h -- information used in common between the configuration
  2.               modules and both the library and the translator.
  3.  
  4.     Copyright (c) 1983 by James F. Gimpel
  5.     Copyright (c) 1984 by JMI Software Consultants, Inc.
  6.  
  7. */
  8.  
  9. /*    Types used by BASTOC  */
  10.  
  11. typedef char BTEXT, *STRING, TBOOL, TEXT, TINY;
  12. typedef short BITS, COUNT, FLAG, TOKEN;
  13. typedef int ARGINT, BOOL, INT, VOID, XCHAR;
  14. #ifndef STDIO_OK
  15. typedef int FILE;
  16. #endif
  17. typedef unsigned BYTES;
  18. typedef long LONG;
  19. typedef float FLOAT;
  20. typedef double DOUBLE;
  21.  
  22. /*  Storage classes used by BASTOC  */
  23.  
  24. #define FAST    register
  25. #define GLOBAL    
  26. #define IMPORT    extern
  27. #define EXFUNC  extern
  28. #define INTERN    static
  29. #define LOCAL    static
  30.  
  31. /*    Manifest Constants used by BASTOC  */
  32.  
  33. #define NULLCH '\0'
  34. #define NULLSTR ""        /* Null string */
  35. #define ARGORD 1         /* order of arguments on the stack */
  36. #define NUM_CHARS 128     /* No. of characters in char. set */
  37.  
  38. /*  System parameters used by BASTOC  */
  39.  
  40. #define YES        1
  41. #define NO        0
  42. #define NULL    0
  43. #define FOREVER    for (;;)
  44. #define EOF        -1
  45.  
  46. /*    macros  */
  47.  
  48. #define isdigit(c)    ('0' <= (c) && (c) <= '9')
  49. #define max(x, y)    (((x) < (y)) ? (y) : (x))
  50. #define min(x, y)    (((x) > (y)) ? (y) : (x))
  51. #define islower(c)    ('a' <= (c) && (c) <= 'z')
  52. #define isupper(c)    ('A' <= (c) && (c) <= 'Z')
  53. #define tolower(c)    (isupper(c) ? (c) - 'A' + 'a' : (c))
  54. #define toupper(c)    (islower(c) ? (c) - 'a' + 'A' : (c))
  55.