aboutsummaryrefslogtreecommitdiff
path: root/script.it/outline.ml
diff options
context:
space:
mode:
Diffstat (limited to 'script.it/outline.ml')
-rwxr-xr-xscript.it/outline.ml12
1 files changed, 12 insertions, 0 deletions
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