Add examples/fs showing how to walk a directory tree

ocaml-multicore · May 21, 2024 · 7d71840 · 7d71840
1 parent d834d73
commit 7d71840
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/examples/fs/dune b/examples/fs/dune
@@ -0,0 +1,3 @@
+(executable
+  (name main)
+  (libraries eio_main))
diff --git a/examples/fs/main.ml b/examples/fs/main.ml
@@ -0,0 +1,21 @@
+(* Walks the directory tree rooted at the current directory,
+   displaying all directory names (skipping hidden directories and `_build`). *)
+
+open Eio.Std
+
+let ( / ) = Eio.Path.( / )
+
+let rec scan t =
+  match Eio.Path.kind ~follow:false t with
+  | `Directory ->
+    traceln "Visiting %a" Eio.Path.pp t;
+    Eio.Path.read_dir t |> List.iter (function
+      | "_build" -> ()
+      | item when String.starts_with ~prefix:"." item -> ()
+      | item -> scan (t / item)
+    )
+  | _ -> ()
+
+let () =
+  Eio_main.run @@ fun env ->
+  scan (Eio.Stdenv.cwd env)