home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / f2csrc.zip / f2csrc / libI77 / lio.h < prev    next >
C/C++ Source or Header  |  1994-07-28  |  2KB  |  74 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. /* 0-10 retain their old (pre LOGICAL*1, etc.) */
  9. /* values to allow mixing old and new objects. */
  10.  
  11. #define TYUNKNOWN 0
  12. #define TYADDR 1
  13. #define TYSHORT 2
  14. #define TYLONG 3
  15. #define TYREAL 4
  16. #define TYDREAL 5
  17. #define TYCOMPLEX 6
  18. #define TYDCOMPLEX 7
  19. #define TYLOGICAL 8
  20. #define TYCHAR 9
  21. #define TYSUBR 10
  22. #define TYINT1 11
  23. #define TYLOGICAL1 12
  24. #define TYLOGICAL2 13
  25. #ifdef Allow_TYQUAD
  26. #define TYQUAD 14
  27. #endif
  28.  
  29. #define    LINTW    24
  30. #define    LINE    80
  31. #define    LLOGW    2
  32. #ifdef Old_list_output
  33. #define    LLOW    1.0
  34. #define    LHIGH    1.e9
  35. #define    LEFMT    " %# .8E"
  36. #define    LFFMT    " %# .9g"
  37. #else
  38. #define    LGFMT    "%.9G"
  39. #endif
  40. /* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
  41. #define    LEFBL    24
  42.  
  43. typedef union
  44. {
  45.     char    flchar;
  46.     short    flshort;
  47.     ftnint    flint;
  48. #ifdef Allow_TYQUAD
  49.     longint fllongint;
  50. #endif
  51.     real    flreal;
  52.     doublereal    fldouble;
  53. } flex;
  54. extern int f__scale;
  55. #ifdef KR_headers
  56. extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
  57. extern int l_read(), l_write();
  58. #else
  59. #ifdef __cplusplus
  60. extern "C" {
  61. #endif
  62. extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
  63. extern int l_write(ftnint*, char*, ftnlen, ftnint);
  64. extern void x_wsne(cilist*);
  65. extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*);
  66. extern int l_read(ftnint*,char*,ftnlen,ftnint);
  67. extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*);
  68. extern int z_rnew(void);
  69. #ifdef __cplusplus
  70.     }
  71. #endif
  72. #endif
  73. extern ftnint L_len;
  74.