| 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) %G% |
| 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; |