home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / i77lib / lio.h < prev    next >
C/C++ Source or Header  |  2000-06-22  |  1KB  |  71 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. #define TYERROR 14
  26.  
  27. #define NTYPES (TYERROR+1)
  28.  
  29. #define    LINTW    12
  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.     real    flreal;
  49.     doublereal    fldouble;
  50. } flex;
  51. extern int f__scale;
  52. #ifdef KR_headers
  53. extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
  54. extern int l_read(), l_write();
  55. #else
  56. #ifdef __cplusplus
  57. extern "C" {
  58. #endif
  59. extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
  60. extern int l_write(ftnint*, char*, ftnlen, ftnint);
  61. extern void x_wsne(cilist*);
  62. extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*);
  63. extern int l_read(ftnint*,char*,ftnlen,ftnint);
  64. extern integer e_rsle(void);
  65. extern int z_rnew(void);
  66. #ifdef __cplusplus
  67.     }
  68. #endif
  69. #endif
  70. extern int L_len;
  71.