|
|
1.1 ! root 1: /* ! 2: char id_format[] = "@(#)format.h 1.1"; ! 3: * ! 4: * format parser definitions ! 5: */ ! 6: ! 7: struct syl ! 8: { ! 9: int op,p1,p2,p3; ! 10: }; ! 11: ! 12: #define RET 1 ! 13: #define REVERT 2 ! 14: #define GOTO 3 ! 15: #define X 4 ! 16: #define SLASH 5 ! 17: #define STACK 6 ! 18: #define I 7 ! 19: #define ED 8 ! 20: #define NED 9 ! 21: #define IM 10 ! 22: #define APOS 11 ! 23: #define H 12 ! 24: #define TL 13 ! 25: #define TR 14 ! 26: #define T 15 ! 27: #define COLON 16 ! 28: #define S 17 ! 29: #define SP 18 ! 30: #define SS 19 ! 31: #define P 20 ! 32: #define BN 21 ! 33: #define BZ 22 ! 34: #define F 23 ! 35: #define E 24 ! 36: #define EE 25 ! 37: #define D 26 ! 38: #define DE 27 /*** NOT STANDARD FORTRAN ***/ ! 39: #define G 28 ! 40: #define GE 29 ! 41: #define L 30 ! 42: #define A 31 ! 43: #define AW 32 ! 44: #define R 33 /*** NOT STANDARD FORTRAN ***/ ! 45: #define DOLAR 34 /*** NOT STANDARD FORTRAN ***/ ! 46: #define SU 35 /*** NOT STANDARD FORTRAN ***/ ! 47: ! 48: #define FMTOK 1 ! 49: #define FMTERR 0 ! 50: ! 51: extern struct syl syl[]; ! 52: extern int pc,parenlvl,revloc; ! 53:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.