Go to the documentation of this file.00001 struct syl
00002 { int op;
00003 int p1;
00004 union { int i[2]; char *s;} p2;
00005 };
00006 #define RET1 1
00007 #define REVERT 2
00008 #define GOTO 3
00009 #define X 4
00010 #define SLASH 5
00011 #define STACK 6
00012 #define I 7
00013 #define ED 8
00014 #define NED 9
00015 #define IM 10
00016 #define APOS 11
00017 #define H 12
00018 #define TL 13
00019 #define TR 14
00020 #define T 15
00021 #define COLON 16
00022 #define S 17
00023 #define SP 18
00024 #define SS 19
00025 #define P 20
00026 #define BN 21
00027 #define BZ 22
00028 #define F 23
00029 #define E 24
00030 #define EE 25
00031 #define D 26
00032 #define G 27
00033 #define GE 28
00034 #define L 29
00035 #define A 30
00036 #define AW 31
00037 #define O 32
00038 #define NONL 33
00039 #define OM 34
00040 #define Z 35
00041 #define ZM 36
00042 typedef union
00043 { real pf;
00044 doublereal pd;
00045 } ufloat;
00046 typedef union
00047 { short is;
00048 #ifndef KR_headers
00049 signed
00050 #endif
00051 char ic;
00052 integer il;
00053 #ifdef Allow_TYQUAD
00054 longint ili;
00055 #endif
00056 } Uint;
00057 #ifdef KR_headers
00058 extern int (*f__doed)(),(*f__doned)();
00059 extern int (*f__dorevert)();
00060 extern int rd_ed(),rd_ned();
00061 extern int w_ed(),w_ned();
00062 extern int signbit_f2c();
00063 extern char *f__fmtbuf;
00064 #else
00065 #ifdef __cplusplus
00066 extern "C" {
00067 #define Cextern extern "C"
00068 #else
00069 #define Cextern extern
00070 #endif
00071 extern const char *f__fmtbuf;
00072 extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
00073 extern int (*f__dorevert)(void);
00074 extern void fmt_bg(void);
00075 extern int pars_f(const char*);
00076 extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*);
00077 extern int signbit_f2c(double*);
00078 extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*);
00079 extern int wrt_E(ufloat*, int, int, int, ftnlen);
00080 extern int wrt_F(ufloat*, int, int, ftnlen);
00081 extern int wrt_L(Uint*, int, ftnlen);
00082 #endif
00083 extern int f__pc,f__parenlvl,f__revloc;
00084 extern flag f__cblank,f__cplus,f__workdone, f__nonl;
00085 extern int f__scale;
00086 #ifdef __cplusplus
00087 }
00088 #endif
00089 #define GET(x) if((x=(*f__getn)())<0) return(x)
00090 #define VAL(x) (x!='\n'?x:' ')
00091 #define PUT(x) (*f__putn)(x)
00092
00093 #undef TYQUAD
00094 #ifndef Allow_TYQUAD
00095 #undef longint
00096 #define longint long
00097 #else
00098 #define TYQUAD 14
00099 #endif
00100
00101 #ifdef KR_headers
00102 extern char *f__icvt();
00103 #else
00104 Cextern char *f__icvt(longint, int*, int*, int);
00105 #endif