25 lines
909 B
Factor
25 lines
909 B
Factor
! Copyright (C) 2003, 2010 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: system kernel math namespaces io prettyprint tools.memory
|
|
tools.dispatch ;
|
|
IN: tools.time
|
|
|
|
: benchmark ( quot -- runtime )
|
|
nano-count [ call nano-count ] dip - ; inline
|
|
|
|
: time. ( time -- )
|
|
"Running time: " write 1000000000 /f pprint " seconds" print ;
|
|
|
|
: time-banner. ( -- )
|
|
"Additional information was collected." print
|
|
"dispatch-stats. - Print method dispatch statistics" print
|
|
"gc-events. - Print all garbage collection events" print
|
|
"gc-stats. - Print breakdown of different garbage collection events" print
|
|
"gc-summary. - Print aggregate garbage collection statistics" print flush ;
|
|
|
|
: time ( quot -- )
|
|
[
|
|
[ benchmark ] collect-dispatch-stats last-dispatch-stats set
|
|
] collect-gc-events gc-events set
|
|
time. nl time-banner. ; inline
|