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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
/* l2xisymt.h Symbol table common for LTX2X interpreter */
/* the principal typedefs are in file licomsym.h */
#ifndef symtab_h
#define symtab_h
#include "l2xicmon.h"
#ifndef licomsym_h
#include "licomsym.h" /* contains the typedefs */
#endif
typedef char *STRING; /* a pointer to a char */
typedef STRING *PTRADR; /* pointer to a pointer to a char */
/* use names rather than integers for TRUE (1) /FALSE (0) values */
#define FALSE_REP -999
#define UNKNOWN_REP -99
#define TRUE_REP -9
/* the simple pre-defined types */
extern TYPE_STRUCT dummy_type;
extern TYPE_STRUCT_PTR integer_typep, real_typep;
extern TYPE_STRUCT_PTR string_typep, binary_typep;
extern TYPE_STRUCT_PTR boolean_typep, logical_typep;
extern TYPE_STRUCT_PTR generic_typep, any_typep;
/* FUNCTIONS */
SYMTAB_NODE_PTR search_symtab();
SYMTAB_NODE_PTR search_symtab_display();
SYMTAB_NODE_PTR enter_symtab();
SYMTAB_NODE_PTR exit_scope();
TYPE_STRUCT_PTR make_string_typep();
/* MACROS */
#define is_array(tp) (tp->form == ARRAY_FORM)
#define is_dynagg(tp) (tp->form == BAG_FORM || \
tp->form == LIST_FORM || \
tp->form == SET_FORM)
/* table searching macros */
/**************************************************************************/
/* search_local_symtab() search the local symtab for the current id name. */
/* set a pointer to the entry, else NULL */
#define search_local_symtab(idp) \
idp = search_symtab(word_string, symtab_display[level])
/**************************************************************************/
/**************************************************************************/
/* search_this_symtab() search the given symtab for the current id name. */
/* set a pointer to the entry, else NULL */
#define search_this_symtab(idp, this_symtab) \
idp = search_symtab(word_string, this_symtab)
/**************************************************************************/
/**************************************************************************/
/* search_all_symtab() search the symtab display for the current id name. */
/* set a pointer to the entry, else NULL */
#define search_all_symtab(idp) \
idp = search_symtab_display(word_string)
/**************************************************************************/
/**************************************************************************/
/* search_and_find_all_symtab() search the symtab display for the current */
/* id name. If not found, ID UNDEFINED error, and */
/* enter into the local symtab. */
/* set a pointer to the entry. */
#define search_and_find_all_symtab(idp) \
if ((idp = search_symtab_display(word_string)) == NULL) { \
error(UNDEFINED_IDENTIFIER); \
idp = enter_symtab(word_string, &symtab_display[level]); \
idp->defn.key = UNDEFINED; \
idp->typep = &dummy_type; \
}
/**************************************************************************/
/**************************************************************************/
/* enter_local_symtab() enter the current id name into the local symtab */
/* and set pointer to the entry */
#define enter_local_symtab(idp) \
idp = enter_symtab(word_string, &symtab_display[level])
/**************************************************************************/
/**************************************************************************/
/* enter_name_local_symtab() enter the given name into the local symtab */
/* and set pointer to the entry */
#define enter_name_local_symtab(idp, name) \
idp = enter_symtab(name, &symtab_display[level])
/**************************************************************************/
/**************************************************************************/
/* search_and_enter_local_symtab() search the symtab display for the */
/* current id name. If not found enter it, else */
/* ID REDEFINED error. */
/* set a pointer to the entry. */
#define search_and_enter_local_symtab(idp) \
if ((idp = search_symtab(word_string, symtab_display[level])) == NULL) { \
idp = enter_symtab(word_string, &symtab_display[level]); \
} \
else error(REDEFINED_IDENTIFIER)
/**************************************************************************/
/**************************************************************************/
/* search_and_enter_this_symtab() search the given symtab for the */
/* current id name. If not found enter it, else */
/* ID REDEFINED error. */
/* set a pointer to the entry. */
#define search_and_enter_this_symtab(idp, this_symtab) \
if ((idp = search_symtab(word_string, this_symtab)) == NULL) { \
idp = enter_symtab(word_string, &this_symtab); \
} \
else error(REDEFINED_IDENTIFIER)
/**************************************************************************/
#endif
|
