blob: 325b967fbe67fd7efbc40847b46c1ce54552b15e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# TRS.H -- Constants used by trs procedures
define TRS_MAGIC 5526099
define MAXDEPTH 32
define MAXSTACK 8
define SZ_BUFFER 600
define SZ_INSTR 6
define SZ_NODE 5
define SZ_TOKEN 32
define LEN_TRSBUF 4
define TRS_IDENT Memi[$1] # Structure identifier
define TRS_CODE Memi[$1+1] # Code buffer
define TRS_VALUE Memi[$1+2] # Value buffer
define TRS_ROWS Memi[$1+3] # Row set
define OCODE 0
define OCOLUMN 1
define OTJUMP 2
define OFJUMP 3
define OLOVAL 4
define OHIVAL 5
define CODE Memi[$1+OCODE]
define COLUMN Memi[$1+OCOLUMN]
define TJUMP Memi[$1+OTJUMP]
define FJUMP Memi[$1+OFJUMP]
define LOVAL Memi[$1+OLOVAL]
define HIVAL Memi[$1+OHIVAL]
define TREE_OPER Memi[$1] # operation to be performed
define TREE_INST Memi[$1+1] # index of op in code buffer
define TREE_LEFT Memi[$1+2] # first argument of op
define TREE_RIGHT Memi[$1+3] # second argument of op
define TREE_UP Memi[$1+4] # back link in tree
define YDONE 1
define YRANGE 2
define YAND 3
define YOR 4
define YNOT 5
define YEQN 6
define YEQS 7
define YLEN 8
define YLES 9
define YINN 10
define YINS 11
define YGEN 12
define YGES 13
define YMSK 14
define YLOGICAL ($1 <= YNOT)
|
