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;
Defined struct's
syl
defined in line
5; used 2 times
Defined macros
A
defined in line
38;
never used
APOS
defined in line
18;
never used
AW
defined in line
39;
never used
BN
defined in line
28;
never used
BZ
defined in line
29;
never used
COLON
defined in line
23;
never used
D
defined in line
33;
never used
DE
defined in line
34;
never used
DOLAR
defined in line
41;
never used
E
defined in line
31;
never used
ED
defined in line
15;
never used
EE
defined in line
32;
never used
F
defined in line
30;
never used
FMTOK
defined in line
44;
never used
G
defined in line
35;
never used
GE
defined in line
36;
never used
GOTO
defined in line
10;
never used
H
defined in line
19;
never used
I
defined in line
14;
never used
IM
defined in line
17;
never used
L
defined in line
37;
never used
NED
defined in line
16;
never used
P
defined in line
27;
never used
R
defined in line
40;
never used
RET
defined in line
8;
never used
REVERT
defined in line
9;
never used
S
defined in line
24;
never used
SLASH
defined in line
12;
never used
SP
defined in line
25;
never used
SS
defined in line
26;
never used
STACK
defined in line
13;
never used
SU
defined in line
42;
never used
T
defined in line
22;
never used
TL
defined in line
20;
never used
TR
defined in line
21;
never used
X
defined in line
11;
never used
