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
|
#include "evaltype.h"
#include "eval.h"
#include "lex.h"
extern int yyparse(scalar_t *result);
int eval(scalar_t *r, const char *str, eval_func_handler_t func_handler, eval_symbol_handler_t symbol_handler, void *context)
{
void *oldbuffer = lex_current_buffer();
void *strbuffer = lex_scan_string_buffer(str);
scalar_t result;
DEBUG_DUMP("evaluating \"%s\":", str);
DEBUG_DUMP_INDENT_IN;
clear_eval_error();
eval_set_context(context);
eval_set_func_handler(func_handler);
eval_set_symbol_handler(symbol_handler);
result.type=SCALAR_NULL;
yyparse(&result);
lex_delete_buffer(strbuffer);
if (oldbuffer) lex_switch_buffer(oldbuffer);
if (result.type==SCALAR_NULL) return 0;
if (get_eval_error(0, 0)) return 0;
*r=result;
DEBUG_DUMP_INDENT_OUT;
DEBUG_DUMP_SCALAR(r, "eval result:");
return 1;
}
|
