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