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 54