Return to fmt.h CVS log

Up to [Research Unix] / researchv10dc / libI77

Annotation of researchv10dc/libI77/fmt.h, revision 1.1.1.1

1.1       root        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:        integer il;
                     50: #ifdef Allow_TYQUAD
                     51:        longint ili;
                     52: #endif
                     53: } Uint;
                     54: #ifdef KR_headers
                     55: extern int (*f__doed)(),(*f__doned)();
                     56: extern int (*f__dorevert)();
                     57: extern int rd_ed(),rd_ned();
                     58: extern int w_ed(),w_ned();
                     59: #else
                     60: #ifdef __cplusplus
                     61: extern "C" {
                     62: #endif
                     63: extern int (*f__doed)(struct f__syl*, char*, ftnlen),(*f__doned)(struct f__syl*);
                     64: extern int (*f__dorevert)(void);
                     65: extern void fmt_bg(void);
                     66: extern int pars_f(char*);
                     67: extern int rd_ed(struct f__syl*, char*, ftnlen),rd_ned(struct f__syl*);
                     68: extern int w_ed(struct f__syl*, char*, ftnlen),w_ned(struct f__syl*);
                     69: extern int wrt_E(ufloat*, int, int, int, ftnlen);
                     70: extern int wrt_F(ufloat*, int, int, ftnlen);
                     71: extern int wrt_L(Uint*, int, ftnlen);
                     72: #ifdef __cplusplus
                     73:        }
                     74: #endif
                     75: #endif
                     76: extern flag f__cblank,f__cplus,f__workdone, f__nonl;
                     77: extern char *f__fmtbuf;
                     78: extern int f__scale;
                     79: #define GET(x) if((x=(*f__getn)())<0) return(x)
                     80: #define VAL(x) (x!='\n'?x:' ')
                     81: #define PUT(x) (*f__putn)(x)
                     82: extern int f__cursor;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.