home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / i77lib / fmt.h < prev    next >
C/C++ Source or Header  |  2000-06-22  |  2KB  |  80 lines
  1. struct f__syl
  2. {    int op,p1,p2,p3;
  3. };
  4. #define RET1 1
  5. #define REVERT 2
  6. #define GOTO 3
  7. #define X 4
  8. #define SLASH 5
  9. #define STACK 6
  10. #define I 7
  11. #define ED 8
  12. #define NED 9
  13. #define IM 10
  14. #define APOS 11
  15. #define H 12
  16. #define TL 13
  17. #define TR 14
  18. #define T 15
  19. #define COLON 16
  20. #define S 17
  21. #define SP 18
  22. #define SS 19
  23. #define P 20
  24. #define BN 21
  25. #define BZ 22
  26. #define F 23
  27. #define E 24
  28. #define EE 25
  29. #define D 26
  30. #define G 27
  31. #define GE 28
  32. #define L 29
  33. #define A 30
  34. #define AW 31
  35. #define O 32
  36. #define NONL 33
  37. #define OM 34
  38. #define Z 35
  39. #define ZM 36
  40. extern struct f__syl f__syl[];
  41. extern int f__pc,f__parenlvl,f__revloc;
  42. typedef union
  43. {    real pf;
  44.     doublereal pd;
  45. } ufloat;
  46. typedef union
  47. {    short is;
  48.     char ic;
  49.     long il;
  50. } Uint;
  51. #ifdef KR_headers
  52. extern int (*f__doed)(),(*f__doned)();
  53. extern int (*f__dorevert)(), (*f__doend)();
  54. extern int rd_ed(),rd_ned();
  55. extern int w_ed(),w_ned();
  56. #else
  57. #ifdef __cplusplus
  58. extern "C" {
  59. #endif
  60. extern int (*f__doed)(struct f__syl*, char*, ftnlen),(*f__doned)(struct f__syl*);
  61. extern int (*f__dorevert)(void), (*f__doend)(void);
  62. extern void fmt_bg(void);
  63. extern int pars_f(char*);
  64. extern int rd_ed(struct f__syl*, char*, ftnlen),rd_ned(struct f__syl*);
  65. extern int w_ed(struct f__syl*, char*, ftnlen),w_ned(struct f__syl*);
  66. extern int wrt_E(ufloat*, int, int, int, ftnlen);
  67. extern int wrt_F(ufloat*, int, int, ftnlen);
  68. extern int wrt_L(Uint*, int, ftnlen);
  69. #ifdef __cplusplus
  70.     }
  71. #endif
  72. #endif
  73. extern flag f__cblank,f__cplus,f__workdone, f__nonl;
  74. extern char *f__fmtbuf;
  75. extern int f__scale;
  76. #define GET(x) if((x=(*f__getn)())<0) return(x)
  77. #define VAL(x) (x!='\n'?x:' ')
  78. #define PUT(x) (*f__putn)(x)
  79. extern int f__cursor;
  80.