blob: f6f0b5e0b172679cd0bf1812070bc53c1ab544d5 (
plain)
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
|
#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 \"escape \\\"inside the string\"\n"
"\"string very long sus\" (\"a\" \"b\")\n";
any_sexp_string_stream_t stream;
any_sexp_parser_t parser;
any_sexp_parser_init_string(&parser, &stream, 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;
}
|
