From 062d3944ee86c273ad3919993185d5901768ef2d Mon Sep 17 00:00:00 2001
From: Scott Lawrence <scott+git@ineffectivetheory.com>
Date: Tue, 25 Jun 2024 21:11:01 -0700
Subject: Attempting to use sedlex (and maybe Menhir)

---
 bin/main.ml | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'bin/main.ml')

diff --git a/bin/main.ml b/bin/main.ml
index 7bf6048..de7cd87 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -1 +1,11 @@
-let () = print_endline "Hello, World!"
+let rec token buf =
+  match%sedlex buf with
+    | white_space -> token buf
+    | "a" -> token buf
+    | "b" -> 2
+    | eof -> 0
+    | _ -> failwith "Unknown token"
+
+let () = 
+  let lexbuf = Sedlexing.Utf8.from_string "ab" in
+  print_newline (print_int (token lexbuf))
-- 
cgit v1.2.3-54-g00ecf