steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.profiler.sampling: very basic frontend words

db4
Joe Groff 2011-10-31 18:59:48 -07:00
parent 89ea69b61b
commit eb749bb535
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
basis/tools/profiler/sampling/sampling.factor Normal file
View File

@ -0,0 +1,48 @@
USING: assocs calendar continuations kernel math.statistics
namespaces sequences tools.profiler.sampling.private ;
IN: tools.profiler.sampling
: TIME-PER-SAMPLE ( -- n ) 1 milliseconds ; inline
SYMBOL: raw-profile-data
: get-raw-profile-data ( -- data )
raw-profile-data get-global [ "No profile data" throw ] unless* ;
: profile ( quot -- )
t profiling [ f profiling ] [ ] cleanup
(get-samples) raw-profile-data set-global ; inline
: total-sample-count ( sample -- count ) first ;
: gc-sample-count ( sample -- count ) second ;
: foreign-sample-count ( sample -- count ) third ;
: foreign-thread-sample-count ( sample -- count ) fourth ;
: sample-context ( sample -- alien ) 4 swap nth ;
: sample-callstack ( sample -- array ) 5 swap nth ;
: samples>time ( samples -- time )
TIME-PER-SAMPLE time* ;
: (total-time) ( samples -- n )
[ total-sample-count ] map-sum samples>time ;
: (gc-time) ( samples -- n )
[ gc-sample-count ] map-sum samples>time ;
: (foreign-time) ( samples -- n )
[ foreign-sample-count ] map-sum samples>time ;
: (foreign-thread-time) ( samples -- n )
[ foreign-thread-sample-count ] map-sum samples>time ;
: total-time ( -- n )
get-raw-profile-data (total-time) ;
: gc-time ( -- n )
get-raw-profile-data (gc-time) ;
: foreign-time ( -- n )
get-raw-profile-data (foreign-time) ;
: foreign-thread-time ( -- n )
get-raw-profile-data (foreign-thread-time) ;
: time-per-context ( -- n )
get-raw-profile-data [ sample-context ] collect-by [ (total-time) ] assoc-map ;