X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=datetime.lisp;h=771d75ad794f3e7cc06331bdc7beecb7449ab5c4;hp=9d204494d7835a77163a69e3ed24aef1ef7321c9;hb=d11d6cc43fd9227a8aeed28dc2cfecdbc587ec4a;hpb=aa610805927518a648eb0da6a8713cd0a83337df

diff --git a/datetime.lisp b/datetime.lisp
index 9d20449..771d75a 100644
--- a/datetime.lisp
+++ b/datetime.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: datetime.lisp,v 1.1 2003/04/28 21:12:27 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -47,3 +47,24 @@
 		(1- mon)
 		year
 		hr min sec))))
+
+(defun print-seconds (secs)
+  (print-float-units secs "sec"))
+
+(defun print-float-units (val unit)
+  (cond
+    ((< val 1d-6)
+     (format t "~,2,9F nano~A" val unit))
+    ((< val 1d-3)
+     (format t "~,2,6F micro~A" val unit))
+    ((< val 1)
+     (format t "~,2,3F milli~A" val unit))
+    ((> val 1d9)
+     (format t "~,2,-9F giga~A" val unit))
+    ((> val 1d6)
+     (format t "~,2,-6F mega~A" val unit))
+    ((> val 1d3)
+     (format t "~,2,-3F kilo~A" val unit))
+    (t
+     (format t "~,2F ~A" val unit))))
+