From c63887a1f0fb8828ee7017507643436bbcd68544 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 9 Dec 2019 11:55:45 -0600
Subject: [PATCH] feat: add --version flag

---
 src/main/dune    | 11 +++++++++++
 src/main/main.ml |  1 +
 2 files changed, 12 insertions(+)

diff --git a/src/main/dune b/src/main/dune
index 3517dfae..689f2e91 100644
--- a/src/main/dune
+++ b/src/main/dune
@@ -8,4 +8,15 @@
    sidekick.msat-solver sidekick-bin.smtlib)
  (flags :standard -safe-string -color always -open Sidekick_util))
 
+(rule
+  (targets sidekick_version.ml)
+  (deps (universe))
+  (mode promote)
+  (action
+    (with-stdout-to %{targets}
+      (progn 
+        (echo "let version = {git|")
+        (run git rev-parse HEAD)
+        (echo "|git}")))))
+
 (ocamllex (modules Dimacs_lexer))
diff --git a/src/main/main.ml b/src/main/main.ml
index 121fac92..f22e3185 100644
--- a/src/main/main.ml
+++ b/src/main/main.ml
@@ -78,6 +78,7 @@ let argspec = Arg.align [
     "--no-p", Arg.Clear p_progress, " no progress bar";
     "--size", Arg.String (int_arg size_limit), " <s>[kMGT] sets the size limit for the sat solver";
     "--time", Arg.String (int_arg time_limit), " <t>[smhd] sets the time limit for the sat solver";
+    "--version", Arg.Unit (fun () -> Printf.printf "version: %s\n%!" Sidekick_version.version; exit 0), " show version and exit";
     "-d", Arg.Int Msat.Log.set_debug, "<lvl> sets the debug verbose level";
     "--debug", Arg.Int Msat.Log.set_debug, "<lvl> sets the debug verbose level";
   ] |> List.sort compare