src/bin/main.c


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

#include <stdio.h>
#include "aplwc_repl.h"

int
main(void)
{
	struct aplwc *aplwc;
	struct aplwc_line *line;
	uint8_t *data;
	int ret;
	size_t memsize;

	memsize = getenv_ulong("APLWC_MEM", APLWC_MIN_MEM);

	data = malloc(memsize);
	if(data == NULL){
		fprintf(stderr, "Couldn't allocate memory\n");
		return 1;
	}

	ret = aplwc_new(&aplwc, data, memsize);
	if(ret){
		fprintf(stderr, "Couldn't create new aplwc instance: %s\n", aplwc_errstr_rc(ret));
		free(data);
		return 1;
	}

	line = aplwc_read(aplwc, "a←10+20");
	if(line == NULL)
		fprintf(stderr, "Could not parse line: %s\n", aplwc_errstr(aplwc));
	else
		aplwc_eval(line);
	aplwc_free_line(line);

	aplwc_destroy(aplwc);

	free(data);

	return 0;
}