From 6b377719c10d5ab3343fd5221f99a4a21008e25a Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Thu, 14 Mar 2024 08:26:58 +0100
Subject: Initial commit

---
 lib/helpers/console.ml | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 lib/helpers/console.ml

(limited to 'lib/helpers/console.ml')

diff --git a/lib/helpers/console.ml b/lib/helpers/console.ml
new file mode 100644
index 0000000..838b25a
--- /dev/null
+++ b/lib/helpers/console.ml
@@ -0,0 +1,16 @@
+let cursors = [| '|'; '/'; '-'; '\\' |]
+let pos = ref 0
+
+let update_cursor () =
+  if Unix.(isatty stdout) then (
+    Printf.printf "%c[?25l%c[1D%c[0K%c" (char_of_int 27) (char_of_int 27)
+      (char_of_int 27) (Array.get cursors !pos);
+    pos := (!pos + 1) mod Array.length cursors)
+
+let close_cursor () =
+  if Unix.(isatty stdout) then
+    Printf.printf "%c[?25h%c[1D%c[0K\n%!" (char_of_int 27) (char_of_int 27)
+      (char_of_int 27)
+
+let clear_line () =
+  if Unix.(isatty stdout) then Printf.printf "%c[2K\r%!" (char_of_int 27)
-- 
cgit v1.2.3