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
|
#ifndef PCB_ORDER_CONSTRAINT
#define PCB_ORDER_CONSTRAINT
#include <stdio.h>
typedef enum {
PCB_ORDC_BLOCK,
PCB_ORDC_IF,
PCB_ORDC_ERROR,
/* consts and variables */
PCB_ORDC_CINT,
PCB_ORDC_CFLOAT,
PCB_ORDC_QSTR,
PCB_ORDC_ID,
PCB_ORDC_VAR,
/* casts */
PCB_ORDC_INT,
PCB_ORDC_FLOAT,
PCB_ORDC_STRING,
PCB_ORDC_NEG,
PCB_ORDC_EQ,
PCB_ORDC_NEQ,
PCB_ORDC_GE,
PCB_ORDC_LE,
PCB_ORDC_GT,
PCB_ORDC_LT,
PCB_ORDC_AND,
PCB_ORDC_OR,
PCB_ORDC_NOT,
PCB_ORDC_ADD,
PCB_ORDC_SUB,
PCB_ORDC_MULT,
PCB_ORDC_DIV,
PCB_ORDC_MOD
} pcb_ordc_node_type_t;
typedef struct pcb_ordc_node_s pcb_ordc_node_t;
struct pcb_ordc_node_s {
pcb_ordc_node_type_t type;
union {
long l;
double d;
char *s;
} val;
void *ucache;
pcb_ordc_node_t *ch_first, *next;
};
/* expression value, during execution */
typedef struct pcb_ordc_val_s {
enum { PCB_ORDC_VLNG, PCB_ORDC_VDBL, PCB_ORDC_VCSTR, PCB_ORDC_VDSTR, PCB_ORDC_VERR } type;
union {
long l; /* when type == PCB_ORDC_VLNG */
double d; /* when type == PCB_ORDC_VDBL */
char *s; /* when type == PCB_ORDC_VCSTR or PCB_ORDC_VDSTR; DSTR is free()'d after use */
} val;
} pcb_ordc_val_t;
typedef struct pcb_ordc_ctx_s pcb_ordc_ctx_t;
struct pcb_ordc_ctx_s {
void *user_data;
pcb_ordc_node_t *root;
/*** application provided callbacks ***/
/* note: ucache is a (void *) stored in the node triggering the call; the
caller may cache varname resolution there */
/* called on error() from the script */
void (*error_cb)(pcb_ordc_ctx_t *ctx, const char *varname, const char *msg, void **ucache);
/* called on $var from the script, should load dst->type and dst->val */
void (*var_cb)(pcb_ordc_ctx_t *ctx, pcb_ordc_val_t *dst, const char *varname, void **ucache);
};
int pcb_ordc_parse_str(pcb_ordc_ctx_t *ctx, const char *script);
void pcb_ordc_uninit(pcb_ordc_ctx_t *ctx);
void pcb_ordc_free_tree(pcb_ordc_ctx_t *ctx, pcb_ordc_node_t *node);
int pcb_ordc_exec(pcb_ordc_ctx_t *ctx);
/*** For debug ***/
void pcb_ordc_print_tree(FILE *f, pcb_ordc_ctx_t *ctx, pcb_ordc_node_t *node, int indlev);
#endif
|
