From 286d597683ee3fe6fbeed44ffcf362bccb701b03 Mon Sep 17 00:00:00 2001
From: Federico Angelilli <code@fedang.net>
Date: Wed, 5 Jun 2024 01:48:56 +0200
Subject: Add initial any_sexp

---
 test/sexp.c | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 test/sexp.c

(limited to 'test/sexp.c')

diff --git a/test/sexp.c b/test/sexp.c
new file mode 100644
index 0000000..85f80f9
--- /dev/null
+++ b/test/sexp.c
@@ -0,0 +1,27 @@
+#include <stdio.h>
+#include <string.h>
+
+#define ANY_SEXP_IMPLEMENT
+#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;
+	while ((sexp = any_sexp_parser_next(&parser)) != ANY_SEXP_ERROR) {
+		any_sexp_print(sexp);
+		putchar('\n');
+		any_sexp_free(sexp);
+	}
+
+	return 0;
+}
-- 
cgit v1.2.3