1*22818Smckusick /* 2*22818Smckusick * Copyright (c) 1980 Regents of the University of California. 3*22818Smckusick * All rights reserved. The Berkeley software License Agreement 4*22818Smckusick * specifies the terms and conditions for redistribution. 5*22818Smckusick * 6*22818Smckusick * @(#)format.h 5.1 (Berkeley) 06/07/85 7*22818Smckusick */ 8*22818Smckusick 9*22818Smckusick /* 10*22818Smckusick * format parser definitions 11*22818Smckusick */ 12*22818Smckusick 13*22818Smckusick struct syl 14*22818Smckusick { 15*22818Smckusick short op,p1,p2,rpcnt; 16*22818Smckusick }; 17*22818Smckusick 18*22818Smckusick /* do NOT change this defines or add new ones without 19*22818Smckusick * changing the value of the following define for OP_TYPE_TAB. 20*22818Smckusick * change format.h both in the compiler and libI77 simultaneously. 21*22818Smckusick */ 22*22818Smckusick 23*22818Smckusick 24*22818Smckusick #define RET 1 25*22818Smckusick #define REVERT 2 26*22818Smckusick #define GOTO 3 27*22818Smckusick #define X 4 28*22818Smckusick #define SLASH 5 29*22818Smckusick #define STACK 6 30*22818Smckusick #define I 7 31*22818Smckusick #define ED 8 32*22818Smckusick #define NED 9 33*22818Smckusick #define IM 10 34*22818Smckusick #define APOS 11 35*22818Smckusick #define H 12 36*22818Smckusick #define TL 13 37*22818Smckusick #define TR 14 38*22818Smckusick #define T 15 39*22818Smckusick #define COLON 16 40*22818Smckusick #define S 17 41*22818Smckusick #define SP 18 42*22818Smckusick #define SS 19 43*22818Smckusick #define P 20 44*22818Smckusick #define BNZ 21 45*22818Smckusick #define B 22 46*22818Smckusick #define F 23 47*22818Smckusick #define E 24 48*22818Smckusick #define EE 25 49*22818Smckusick #define D 26 50*22818Smckusick #define DE 27 /*** NOT STANDARD FORTRAN ***/ 51*22818Smckusick #define G 28 52*22818Smckusick #define GE 29 53*22818Smckusick #define L 30 54*22818Smckusick #define A 31 55*22818Smckusick #define AW 32 56*22818Smckusick #define R 33 /*** NOT STANDARD FORTRAN ***/ 57*22818Smckusick #define DOLAR 34 /*** NOT STANDARD FORTRAN ***/ 58*22818Smckusick #define SU 35 /*** NOT STANDARD FORTRAN ***/ 59*22818Smckusick 60*22818Smckusick #define FMTUNKN -1 61*22818Smckusick #define FMTOK 1 62*22818Smckusick #define FMTERR 0 63*22818Smckusick 64*22818Smckusick #define FMT_COMP 0x101 /* indicates pre-compiled formats */ 65*22818Smckusick 66*22818Smckusick extern struct syl syl[]; 67*22818Smckusick extern int parenlvl,revloc; 68*22818Smckusick extern short pc; 69