Introduce (common/linear-time)

rberger · Jun 17, 2012 · 896d0b5 · 896d0b5
1 parent 12d6b56
commit 896d0b5
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/riemann/common.clj b/src/riemann/common.clj
@@ -41,6 +41,13 @@
   []
   (/ (System/currentTimeMillis) 1000))
 
+(defn linear-time
+  "A current time on a linear scale with no fixed epoch; counts in seconds.
+  Unlike unix-time, which can pause, skip, or flow backwards, advances
+  consistently at (close) to wall clock time."
+  []
+  (/ (System/nanoTime) 1000000000))
+
 (defn time-at 
   "Returns the Date of a unix epoch time."
   [unix-time]