|
0
|
1 #ifndef DMEVAL_H
|
|
|
2 #define DMEVAL_H
|
|
|
3
|
|
|
4 #include "dmlib.h"
|
|
|
5
|
|
|
6
|
|
|
7 typedef double DMValue;
|
|
670
|
8 #define DMCONVTYPE (int)
|
|
|
9 #define DM_MAX_ARGS 8
|
|
0
|
10
|
|
|
11 enum
|
|
|
12 {
|
|
|
13 OP_NONE,
|
|
|
14
|
|
|
15 OP_ADD,
|
|
|
16 OP_SUB,
|
|
|
17 OP_MUL,
|
|
|
18 OP_DIV,
|
|
|
19 OP_MOD,
|
|
|
20
|
|
|
21 OP_LSHIFT,
|
|
|
22 OP_RSHIFT,
|
|
|
23
|
|
|
24 OP_AND,
|
|
|
25 OP_OR,
|
|
|
26 OP_XOR,
|
|
|
27
|
|
|
28 OP_FUNC,
|
|
|
29 OP_VAR,
|
|
|
30 OP_SUBEXPR,
|
|
|
31 OP_CONST,
|
|
|
32
|
|
|
33 OP_NOPERS
|
|
|
34 } DMOperType;
|
|
|
35
|
|
|
36 enum
|
|
|
37 {
|
|
|
38 ID_FUNC,
|
|
670
|
39 ID_VAR,
|
|
|
40 ID_CVAR,
|
|
0
|
41 } DMEvalIdType;
|
|
|
42
|
|
|
43
|
|
|
44 typedef struct
|
|
|
45 {
|
|
|
46 char *name;
|
|
|
47 int type;
|
|
670
|
48 int nargs;
|
|
|
49 DMValue (*func)(DMValue arg[DM_MAX_ARGS]);
|
|
|
50 DMValue *var, cvalue;
|
|
0
|
51 } DMEvalId;
|
|
|
52
|
|
|
53
|
|
|
54 typedef struct DMEvalNode
|
|
|
55 {
|
|
|
56 int op;
|
|
|
57 DMValue val;
|
|
|
58 DMEvalId *id;
|
|
|
59
|
|
670
|
60 struct DMEvalNode *args[DM_MAX_ARGS];
|
|
0
|
61 struct DMEvalNode *subexpr, *next, *prev;
|
|
|
62 } DMEvalNode;
|
|
|
63
|
|
|
64
|
|
|
65 typedef struct
|
|
|
66 {
|
|
|
67 BOOL err;
|
|
|
68 char *errStr;
|
|
|
69
|
|
|
70 int nids;
|
|
|
71 DMEvalId *ids;
|
|
|
72
|
|
|
73 int mode, prev, expect;
|
|
|
74 } DMEvalContext;
|
|
|
75
|
|
|
76
|
|
|
77 DMEvalId *dm_eval_find_id(DMEvalContext *ev, const char *name);
|
|
|
78 DMEvalId *dm_eval_add_var(DMEvalContext *ev, const char *name, DMValue *var);
|
|
670
|
79 DMEvalId *dm_eval_add_const(DMEvalContext *ev, const char *name, DMValue value);
|
|
|
80 DMEvalId *dm_eval_add_func(DMEvalContext *ev, const char *name, DMValue (*func)(DMValue *), int nargs);
|
|
0
|
81
|
|
|
82 DMEvalContext *dm_eval_new(void);
|
|
|
83 void dm_eval_close(DMEvalContext *ev);
|
|
|
84 void dm_eval_free(DMEvalNode *node);
|
|
|
85 void dm_eval_clear_err(DMEvalContext *ev);
|
|
|
86
|
|
|
87 int dm_eval_parse_expr(DMEvalContext *ev, char *expr, DMEvalNode **result);
|
|
|
88 int dm_eval_reorder(DMEvalContext *ev, DMEvalNode *node, DMEvalNode **result);
|
|
|
89 int dm_eval_exec(DMEvalContext *ev, DMEvalNode *tree, DMValue *presult);
|
|
|
90
|
|
|
91 void dm_print_optree(DMEvalContext *ev, DMEvalNode *node);
|
|
|
92
|
|
|
93
|
|
|
94 #endif // DMEVAL_H
|
