From 384b03f93d8036d4eee6764f5db236727af81b76 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 8 Sep 1999 09:27:56 +0000
Subject: time stamps dans System

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@54 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/system.ml | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 lib/system.ml

(limited to 'lib/system.ml')

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
+
-- 
cgit v1.2.3