home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / f_2_c / libi77 / lio.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  804 b   |  42 lines
  1. /*    copy of ftypes from the compiler */
  2. /* variable types
  3.  * numeric assumptions:
  4.  *    int < reals < complexes
  5.  *    TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
  6.  */
  7.  
  8. #define TYUNKNOWN 0
  9. #define TYADDR 1
  10. #define TYSHORT 2
  11. #define TYLONG 3
  12. #define TYREAL 4
  13. #define TYDREAL 5
  14. #define TYCOMPLEX 6
  15. #define TYDCOMPLEX 7
  16. #define TYLOGICAL 8
  17. #define TYCHAR 9
  18. #define TYSUBR 10
  19. #define TYERROR 11
  20.  
  21. #define NTYPES (TYERROR+1)
  22.  
  23. #define    LINTW    12
  24. #define    LINE    80
  25. #define    LLOGW    2
  26. #define    LLOW    1.0
  27. #define    LHIGH    1.e9
  28. #define    LEFMT    " %# .8E"
  29. #define    LFFMT    " %# .9g"
  30. /* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
  31. #define    LEFBL    24
  32.  
  33. typedef union
  34. {    short    flshort;
  35.     ftnint    flint;
  36.     real    flreal;
  37.     doublereal    fldouble;
  38. } flex;
  39. extern int scale;
  40. extern int (*lioproc)();
  41. extern int L_len;
  42.