projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| dc5f2268 KB |
1 | /*- |
| 2 | * Copyright (c) 1980 The Regents of the University of California. | |
| 3 | * All rights reserved. | |
| 4 | * | |
| 5 | * %sccs.include.proprietary.c% | |
| 77c0b369 | 6 | * |
| dc5f2268 | 7 | * @(#)format.h 5.2 (Berkeley) %G% |
| 77c0b369 KM |
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; |