Changeset 47 for branches/home

Timestamp:

01/20/07 21:18:31 (18 years ago)

Author:

psmith

Message:

Added high res timer

File:

• branches/home/psmith/restructure/src/compat/utils.lisp (modified) (1 diff)

branches/home/psmith/restructure/src/compat/utils.lisp ¶

@@ -37 +37 @@
 (defun get-readable-time ( &optional (time (get-universal-time)))
   (get-readable "~A/~2,'0d/~2,'0d ~2,'0d:~2,'0d:~2,'0d" time))
+
+
+;;High res timer
+
+(let ((internal-base (get-internal-real-time))
+      (universal-base (get-universal-time)))
+;
+; Gets the time including milliseconds by using a base time from universal time and 
+; tracking high res passing of time using the get-internal-real-time
+; Probably not that accurate in absolute terms i.e. may drift from the base, 
+; but good enough for performance timings
+;
+  (defun get-universal-high-res()
+    (let ((current-internal (get-internal-real-time)))
+      (+ universal-base (/ (- current-internal internal-base) internal-time-units-per-second) )))
+
+  (defun get-readable-high-res()
+    (let ((estimated-universal-float (get-universal-high-res)))
+      (multiple-value-bind (estimated-universal estimated-universal-rem) (floor estimated-universal-float)
+        (format nil "~A.~3,'0d"(get-readable-time estimated-universal) (* 1000 estimated-universal-rem)))))
+  
+  )