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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
/********************************************
symtype.h
copyright 2009-2023,2024, Thomas E. Dickey
copyright 1991, Michael D. Brennan
This is a source file for mawk, an implementation of
the AWK programming language.
Mawk is distributed without warranty under the terms of
the GNU General Public License, version 2, 1991.
********************************************/
/*
* $MawkId: symtype.h,v 1.30 2024/09/05 11:40:11 tom Exp $
*/
/* types related to symbols are defined here */
#ifndef SYMTYPE_H
#define SYMTYPE_H
#include <types.h>
#define MAX_ARGS 255
typedef unsigned char NUM_ARGS;
typedef unsigned char SYM_TYPE;
/* struct to hold info about builtins */
typedef struct _bi_rec
#ifdef Visible_BI_REC
{
const char name[12];
PF_CP fp; /* ptr to function that does the builtin */
NUM_ARGS min_args, max_args;
/* info for parser to check correct number of arguments */
}
#endif
BI_REC;
/*---------------------------
structures and types for arrays
*--------------------------*/
#include <array.h>
extern ARRAY Argv;
/* for parsing (i,j) in A */
typedef struct arg2_rec
#ifdef Visible_ARG2_REC
{
int start; /* offset to code_base */
int cnt;
}
#endif
ARG2_REC;
/*------------------------
user defined functions
------------------------*/
typedef struct _fblock
#ifdef Visible_FBLOCK
{
const char *name;
INST *code;
size_t size;
NUM_ARGS nargs;
SYM_TYPE *typev; /* array of size nargs holding types */
}
#endif
FBLOCK; /* function block */
extern void add_to_fdump_list(FBLOCK *);
extern void dump_funcs(void);
extern void dump_regex(void);
/*-------------------------
elements of the symbol table
-----------------------*/
typedef enum {
ST_NONE = 0
,ST_KEYWORD
,ST_BUILTIN /* a pointer to a builtin record */
,ST_FIELD /* a cell ptr to a field */
,ST_FUNCT
,ST_NR /* NR is special */
,ST_ENV /* and so is ENVIRON */
,ST_VAR = 8 /* a scalar variable (bits from here) */
,ST_ARRAY = 16 /* a void * ptr to a hash table */
,ST_LOCAL_NONE = 32
,ST_LOCAL_VAR = (ST_LOCAL_NONE | ST_VAR)
,ST_LOCAL_ARRAY = (ST_LOCAL_NONE | ST_ARRAY)
} SYMTAB_TYPES;
#define is_array(stp) (((stp)->type & ST_ARRAY) != 0)
#define is_local(stp) (((stp)->type & ST_LOCAL_NONE) != 0)
typedef struct _symtab
#ifdef Visible_SYMTAB
{
const char *name;
SYM_TYPE type;
unsigned char offset; /* offset in stack frame for local vars */
#ifdef NO_LEAKS
char free_name;
#endif
union {
CELL *cp;
int kw;
PF_CP fp;
const BI_REC *bip;
ARRAY array;
FBLOCK *fbp;
} stval;
}
#endif
SYMTAB;
/*****************************
structures for type checking function calls
******************************/
typedef struct _ca_rec
#ifdef Visible_CA_REC
{
struct _ca_rec *link;
SYM_TYPE type;
NUM_ARGS arg_num; /* position in callee's stack */
/*--------- this data only set if we'll need to patch -------*/
/* happens if argument is an ID or type ST_NONE or ST_LOCAL_NONE */
int call_offset;
unsigned call_lineno;
/* where the type is stored */
SYMTAB *sym_p; /* if type is ST_NONE */
SYM_TYPE *type_p; /* if type is ST_LOCAL_NONE */
}
#endif
CA_REC; /* call argument record */
/* type field of CA_REC matches with ST_ types */
#define CA_EXPR ST_LOCAL_VAR
#define CA_ARRAY ST_LOCAL_ARRAY
typedef struct _fcall
#ifdef Visible_FCALL_REC
{
struct _fcall *link;
FBLOCK *callee;
short call_scope;
short move_level;
FBLOCK *call; /* only used if call_scope == SCOPE_FUNCT */
INST *call_start; /* computed later as code may be moved */
CA_REC *arg_list;
NUM_ARGS arg_cnt_checked;
}
#endif
FCALL_REC;
/* defer analysis from length() parameter for forward-references */
typedef struct _defer_len
#ifdef Visible_DEFER_LEN
{
short offset;
FBLOCK *fbp;
}
#endif
DEFER_LEN;
extern FCALL_REC *resolve_list;
extern void resolve_fcalls(void);
extern void check_fcall(FBLOCK * callee, int call_scope, int move_level,
FBLOCK * call, CA_REC * arg_list);
extern void relocate_resolve_list(int, int, const FBLOCK *, int, unsigned, int);
/* hash.c */
extern unsigned hash(const char *);
extern unsigned hash2(const char *, size_t);
extern SYMTAB *insert(const char *);
extern SYMTAB *find(const char *);
extern const char *reverse_find(int, PTR);
extern SYMTAB *save_id(const char *);
extern void restore_ids(void);
/* error.c */
extern const char *type_to_str(int);
extern void type_error(SYMTAB *);
#ifdef NO_LEAKS
extern void no_leaks_array(ARRAY);
#else
#define no_leaks_array(a) /* nothing */
#endif
#endif /* SYMTYPE_H */
|
