evalx.c

Go to the documentation of this file.

#include "evaltype.h"
#include "eval.h"
#include "lex.h"

extern int yyparse(eval_scalar *result);
        
int eval(eval_scalar *r, const char *str, eval_func_handler func_handler, eval_symbol_handler symbol_handler, void *context)
{
        void *oldbuffer = lex_current_buffer();
        void *strbuffer;
        eval_scalar result;
/*     if (get_helpmode()) {
                eval_scalar *hs = get_helpstring();
                scalar_create_str_c(hs, "");
                strbuffer = lex_scan_string_buffer("NaF()");
        } else {*/
                strbuffer = lex_scan_string_buffer(str);
/*     }*/

        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 (get_helpmode()) {
                eval_scalar *hs = get_helpstring();
                *r = *hs;
                hs->type = SCALAR_NULL;
                clear_eval_error();
        } else {*/
                if (result.type == SCALAR_NULL) return 0;
                *r = result;
                if (get_eval_error(0, 0)) return 0;
/*      }*/
        
        DEBUG_DUMP_INDENT_OUT;
        DEBUG_DUMP_SCALAR(r, "eval result:");

        return 1;
}

---