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
|
#ifndef EVAL_H
#define EVAL_H
/*#define EVAL_DEBUG*/
#define MAX_EVALFUNC_PARAMS 8
/*
* Types
*/
typedef enum {
TYPE_UNKNOWN,
TYPE_BYTE,
TYPE_WORD,
TYPE_DWORD
} inttype_t;
typedef struct {
int value;
inttype_t type;
} int_t;
typedef struct {
double value;
} float_t;
typedef struct {
char *value;
int len;
} str_t;
typedef enum {
SCALAR_NULL=0,
SCALAR_INT,
SCALAR_STR,
SCALAR_FLOAT,
SCALAR_VARARGS
} scalartype_t;
typedef union {
int_t integer;
str_t str;
float_t floatnum;
} scalarbody_t;
typedef struct {
scalartype_t type;
scalarbody_t scalar;
} scalar_t;
typedef struct {
int count;
scalar_t *scalars;
} scalarlist_t;
typedef struct {
char *name;
void *func;
scalartype_t ptype[MAX_EVALFUNC_PARAMS];
char *desc;
} evalfunc_t;
typedef enum {
PROTOMATCH_OK=0,
PROTOMATCH_NAME_FAIL,
PROTOMATCH_PARAM_FAIL
} protomatch_t;
/*
* Debugging
*/
#ifdef EVAL_DEBUG
extern int debug_dump_ident;
#define DEBUG_DUMP_INDENT {\
int i;\
for (i=0; i<debug_dump_ident; i++) printf("\t");\
}
#define DEBUG_DUMP(text...) {\
DEBUG_DUMP_INDENT;\
printf(text);\
printf("\n");\
}
#define DEBUG_DUMP_SCALAR(scalarptr, text...) {\
DEBUG_DUMP_INDENT;\
printf(text);\
scalar_dump(scalarptr);\
printf("\n");\
}
#define DEBUG_DUMP_SCALARLIST(scalarlistptr, text...) {\
DEBUG_DUMP_INDENT;\
printf(text);\
scalarlist_dump(scalarlistptr);\
printf("\n");\
}
#define DEBUG_DUMP_INDENT_IN debug_dump_ident++
#define DEBUG_DUMP_INDENT_OUT debug_dump_ident--
#else
#define DEBUG_DUMP(text...)
#define DEBUG_DUMP_SCALAR(scalarptr, text...)
#define DEBUG_DUMP_SCALARLIST(scalarlistptr, text...)
#define DEBUG_DUMP_INDENT_IN
#define DEBUG_DUMP_INDENT_OUT
#endif
/*
* functions
*/
typedef int (*eval_func_handler_t)(scalar_t *result, char *name, scalarlist_t *params);
typedef int (*eval_symbol_handler_t)(scalar_t *result, char *name);
void clear_eval_error();
int get_eval_error(char **str, int *pos);
void set_eval_error(char *format,...);
void *eval_get_context();
void eval_set_context(void *context);
void eval_set_func_handler(eval_func_handler_t func_handler);
void eval_set_symbol_handler(eval_symbol_handler_t symbol_handler);
protomatch_t match_evalfunc_proto(char *name, scalarlist_t *params, evalfunc_t *proto);
int exec_evalfunc(scalar_t *result, scalarlist_t *params, evalfunc_t *proto);
int std_eval_func_handler(scalar_t *r, char *fname, scalarlist_t *params, evalfunc_t *protos);
int func_eval(scalar_t *r, str_t *p);
void scalar_context_int(scalar_t *s, int_t *t);
void scalar_context_str(scalar_t *s, str_t *t);
void scalar_context_float(scalar_t *s, float_t *t);
void scalar_create_int(scalar_t *s, int_t *t);
void scalar_create_int_c(scalar_t *s, int i);
void scalar_create_str(scalar_t *s, str_t *t);
void scalar_create_str_c(scalar_t *s, char *cstr);
void scalar_create_float(scalar_t *s, float_t *t);
void scalar_create_float_c(scalar_t *s, double f);
void scalar_destroy(scalar_t *s);
void string_destroy(str_t *s);
#ifdef EVAL_DEBUG
extern void scalar_dump(scalar_t *s);
extern void scalarlist_dump(scalarlist_t *s);
#endif
#endif /* EVAL_H */
|
