first commit

test/fuzz/gen.ml

@@ -0,0 +1,21 @@
+open Crowbar
+
+let ( let* ) = dynamic_bind
+
+let ( let+ ) = map
+
+let unicode_bytes =
+  let+ values = [ list1 uchar ] in
+  let buf = Buffer.create (List.length values) in
+  List.iter (fun u -> Buffer.add_utf_8_uchar buf u) values;
+  Buffer.contents buf
+
+let directive =
+  fix (fun directive ->
+    let* name = unicode_bytes in
+    let* params = list unicode_bytes in
+    let+ children = [ list directive ] in
+    let open Scfg.Types in
+    { name; params; children } )
+
+let config = list directive