From efe230205f254fc5369b53d3de2841723beb6ff8 Mon Sep 17 00:00:00 2001 From: peter Date: Fri, 21 Aug 2026 20:38:39 +0000 Subject: Start work on testing the evaluator FossilOrigin-Name: 530cc9567bc825fd8a7eb21f2ca12dbf7ecbecae3ed02638537dc4a8dca9ae1a --- src/lib/main.c | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'src/lib/main.c') diff --git a/src/lib/main.c b/src/lib/main.c index 9335bf0..7456958 100644 --- a/src/lib/main.c +++ b/src/lib/main.c @@ -99,10 +99,17 @@ aplwc_free_line(struct aplwc_line *line) memory_free_aplwc_line(&line->aplwc->memory, line); } -enum aplwc_rc +struct aplwc_value * aplwc_eval(struct aplwc_line *line) { line->aplwc->last_error = APLWC_OK; - eval_line(line); - return line->aplwc->last_error; + return eval_line(line); +} + +void +aplwc_free_value(struct aplwc_value *value) +{ + if(value == NULL) + return; + memory_free_aplwc_value(&value->aplwc->memory, value); } -- cgit v1.2.3