src/lib/eval.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#include "aplwc_internal.h"

struct aplwc_value *
eval_line(struct aplwc_line *line)
{
	struct aplwc_value *value;
	struct aplwc *aplwc;

	aplwc = line->aplwc;
	assert(aplwc->last_error == APLWC_OK);

	value = memory_alloc_aplwc_value(aplwc);
	if(value != NULL){
		value->aplwc = aplwc;
		value->tag = VALUE_NULL;
	}
	return value;
}