test/sexp.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

#include <stdio.h>
#include <string.h>

#define ANY_SEXP_IMPLEMENT
#define ANY_SEXP_NO_BOXING
#include "any_sexp.h"

int main()
{
	const char *s = "(a b c (sub list) ())\n"
		 			"(another lispy thingy)\n"
					"() id ciao 20 a1020|x|3a\n"
					";comm\n3433 ;s\n"
					"'symbol 'another 'a\n"
					"'(a b c) '('a) ''x\n";

	any_sexp_parser_t parser;
	any_sexp_parser_init(&parser, s, strlen(s));

	any_sexp_t sexp = any_sexp_parser_next(&parser);
	while (!ANY_SEXP_IS_ERROR(sexp)) {
		any_sexp_print(sexp);
		putchar('\n');
		any_sexp_free(sexp);
		sexp = any_sexp_parser_next(&parser);
	}

	printf("%zu\n", sizeof(any_sexp_t));

	return 0;
}