|
|
1.1 root 1: /*
2: char id_format[] = "@(#)format.h 1.1";
3: *
4: * format parser definitions
5: */
6:
7: struct syl
8: {
9: int op,p1,p2,p3;
10: };
11:
12: #define RET 1
13: #define REVERT 2
14: #define GOTO 3
15: #define X 4
16: #define SLASH 5
17: #define STACK 6
18: #define I 7
19: #define ED 8
20: #define NED 9
21: #define IM 10
22: #define APOS 11
23: #define H 12
24: #define TL 13
25: #define TR 14
26: #define T 15
27: #define COLON 16
28: #define S 17
29: #define SP 18
30: #define SS 19
31: #define P 20
32: #define BN 21
33: #define BZ 22
34: #define F 23
35: #define E 24
36: #define EE 25
37: #define D 26
38: #define DE 27 /*** NOT STANDARD FORTRAN ***/
39: #define G 28
40: #define GE 29
41: #define L 30
42: #define A 31
43: #define AW 32
44: #define R 33 /*** NOT STANDARD FORTRAN ***/
45: #define DOLAR 34 /*** NOT STANDARD FORTRAN ***/
46: #define SU 35 /*** NOT STANDARD FORTRAN ***/
47:
48: #define FMTOK 1
49: #define FMTERR 0
50:
51: extern struct syl syl[];
52: extern int pc,parenlvl,revloc;
53:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.