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