1 files changed, 31 insertions, 0 deletions
diff --git a/flocq/Flocq_version.v b/flocq/Flocq_version.v
new file mode 100644
index 0000000..662d83a
--- /dev/null
+++ b/flocq/Flocq_version.v
@@ -0,0 +1,31 @@
+(**
+This file is part of the Flocq formalization of floating-point
+arithmetic in Coq: http://flocq.gforge.inria.fr/
+
+Copyright (C) 2011 Sylvie Boldo
+#<br />#
+Copyright (C) 2011 Guillaume Melquiond
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 3 of the License, or (at your option) any later version.
+
+This library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+COPYING file for more details.
+*)
+
+(** Helper for detecting the version of Flocq *)
+Require Import BinNat.
+Require Import Ascii String.
+
+Definition Flocq_version := Eval vm_compute in
+  let fix parse s major minor :=
+    match s with
+    | String "."%char t => parse t (major * 100 + minor)%N N0
+    | String h t => parse t major (minor + N_of_ascii h - N_of_ascii "0"%char)%N
+    | Empty_string => (major * 100 + minor)%N
+    end in
+  parse "2.1.0"%string N0 N0.