12510Sdlw /* 2*17875Sdlw char id_format[] = "@(#)format.h 1.3"; 32510Sdlw * 42510Sdlw * format parser definitions 52510Sdlw */ 62510Sdlw 72510Sdlw struct syl 82510Sdlw { 92510Sdlw int op,p1,p2,p3; 102510Sdlw }; 112510Sdlw 122510Sdlw #define RET 1 132510Sdlw #define REVERT 2 142510Sdlw #define GOTO 3 152510Sdlw #define X 4 162510Sdlw #define SLASH 5 172510Sdlw #define STACK 6 182510Sdlw #define I 7 192510Sdlw #define ED 8 202510Sdlw #define NED 9 212510Sdlw #define IM 10 222510Sdlw #define APOS 11 232510Sdlw #define H 12 242510Sdlw #define TL 13 252510Sdlw #define TR 14 262510Sdlw #define T 15 272510Sdlw #define COLON 16 282510Sdlw #define S 17 292510Sdlw #define SP 18 302510Sdlw #define SS 19 312510Sdlw #define P 20 32*17875Sdlw #define BNZ 21 33*17875Sdlw #define B 22 342510Sdlw #define F 23 352510Sdlw #define E 24 362510Sdlw #define EE 25 372510Sdlw #define D 26 382510Sdlw #define DE 27 /*** NOT STANDARD FORTRAN ***/ 392510Sdlw #define G 28 402510Sdlw #define GE 29 412510Sdlw #define L 30 422510Sdlw #define A 31 432510Sdlw #define AW 32 442510Sdlw #define R 33 /*** NOT STANDARD FORTRAN ***/ 452510Sdlw #define DOLAR 34 /*** NOT STANDARD FORTRAN ***/ 462510Sdlw #define SU 35 /*** NOT STANDARD FORTRAN ***/ 472510Sdlw 4816597Sralph #define FMTUNKN -1 492510Sdlw #define FMTOK 1 502510Sdlw #define FMTERR 0 512510Sdlw 522510Sdlw extern struct syl syl[]; 532510Sdlw extern int pc,parenlvl,revloc; 54