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