Return to fmt.h CVS log

Up to [Research Unix] / researchv10no / libI77

Annotation of researchv10no/libI77/fmt.h, revision 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.