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