UI and a Lisp experiment

src/parser.experiments.ts

@@ -0,0 +1,52 @@
+import { sourceText } from 'source-region';
+import { parseDocument } from './parser';
+import { Expr } from './syntax';
+
+// === Experiments ===
+
+function experiment00_emptyDocument(): void {
+  logParse("empty document", "");
+}
+
+function experiment01_topLevelExpressions(): void {
+  logParse("top-level expressions", "foo 123 (bar baz_1 qux-2)");
+}
+
+function experiment02_nestedLists(): void {
+  logParse("nested lists", "(define square (_ x) (* x x))");
+}
+
+function experiment03_unclosedList(): void {
+  logParse("unclosed list", "(foo 123\n  (bar 456)");
+}
+
+function experiment04_recoverAtDocumentLevel(): void {
+  logParse("document recovery", "foo ) @@@ (bar 1) 99");
+}
+
+function experiment05_recoverInsideList(): void {
+  logParse("list recovery", "(foo @@@ 1 (bar # 2) baz)");
+}
+
+function experiment06_unicodeSpans(): void {
+  logParse("unicode spans", "alpha 💥 (beta 2)");
+}
+
+function logParse(name: string, input: string): void {
+  const region = sourceText(input).fullRegion();
+  const result = parseDocument(region);
+  console.log(`==== parser:${name} ====`);
+  console.log(input);
+  console.log(result.values.map(Expr.show));
+  console.dir(result.errors, { depth: null });
+}
+
+[
+  experiment00_emptyDocument,
+  experiment01_topLevelExpressions,
+  experiment02_nestedLists,
+  experiment03_unclosedList,
+  experiment04_recoverAtDocumentLevel,
+  experiment05_recoverInsideList,
+  experiment06_unicodeSpans,
+].forEach((experiment) => experiment());