time stamps dans System

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@54 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 13 insertions, 0 deletions

diff --git a/lib/system.ml b/lib/system.ml
new file mode 100644
index 0000000000..fe0efa0737
--- /dev/null
+++ b/lib/system.ml
@@ -0,0 +1,13 @@
+
+(* $Id$ *)
+
+(* Time stamps. *)
+
+type time_stamp = float
+
+let get_time_stamp () = Unix.time()
+
+let compare_time_stamps t1 t2 =
+  let dt = t2 -. t1 in
+  if dt < 0.0 then -1 else if dt = 0.0 then 0 else 1
+