From: Robert D. <rob...@us...> - 2006-12-30 19:15:39
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv23523 Modified Files: init-cl.lisp macsys.lisp Log Message: Implement functions to return real and run time. absolute_real_time => returns GET-UNIVERSAL-TIME (CL function) elapsed_real_time => returns real time since CL-USER::RUN was called calculated from GET-INTERNAL-REAL-TIME (CL) elapsed_run_time => returns run time since CL-USER::RUN was called calculated from GET-INTERNAL-RUN-TIME (CL) - src/init-cl.lisp: Initialize elapsed time in CL-USER::RUN - src/macsys.lisp: Function definitions Index: init-cl.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/init-cl.lisp,v retrieving revision 1.80 retrieving revision 1.81 diff -u -d -r1.80 -r1.81 --- init-cl.lisp 25 Dec 2006 05:35:12 -0000 1.80 +++ init-cl.lisp 30 Dec 2006 19:15:35 -0000 1.81 @@ -563,6 +563,7 @@ (setf *read-default-float-format* 'lisp::double-float)) (catch 'to-lisp + (initialize-real-and-run-time) (set-locale) (set-pathnames) (setf (values input-stream batch-flag) Index: macsys.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/macsys.lisp,v retrieving revision 1.52 retrieving revision 1.53 diff -u -d -r1.52 -r1.53 --- macsys.lisp 11 Aug 2006 05:01:04 -0000 1.52 +++ macsys.lisp 30 Dec 2006 19:15:36 -0000 1.53 @@ -573,3 +573,20 @@ (format t "~&~%Automatically continuing.~%To reenable the Lisp debugger set *debugger-hook* to nil.~%") (throw 'return-from-debugger t)) +(let + ((t0-real 0) (t0-run 0) + (float-units (float internal-time-units-per-second 1d0))) + + (defun initialize-real-and-run-time () + (setq t0-real (get-internal-real-time)) + (setq t0-run (get-internal-run-time))) + + (defun $absolute_real_time () (get-universal-time)) + + (defun $elapsed_real_time () + (let ((elapsed-real-time (- (get-internal-real-time) t0-real))) + (/ elapsed-real-time float-units))) + + (defun $elapsed_run_time () + (let ((elapsed-run-time (- (get-internal-run-time) t0-run))) + (/ elapsed-run-time float-units)))) |