From 42c3c122c4f53dd68bcdd89411835887c3ae0af9 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Mon, 11 Jan 2021 11:33:32 +0100
Subject: Outline module

---
 script.it/outline.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 script.it/outline.ml

(limited to 'script.it/outline.ml')

diff --git a/script.it/outline.ml b/script.it/outline.ml
new file mode 100755
index 0000000..4962d8e
--- /dev/null
+++ b/script.it/outline.ml
@@ -0,0 +1,12 @@
+let internal_path_id = ref 0
+
+type t =
+  { id : int
+  ; path: Path.Fixed.t
+  ; back: Path.Fixed.t
+  }
+
+let get_id =
+  let id = !internal_path_id in
+  incr internal_path_id;
+  id
-- 
cgit v1.2.3