tools.profiler.sampling: faster printing in the UI

diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor
index c4509dd08fbd366fdd774741826f9de110acb648..dfb62a90e79d12197ddf9d1c799fd9f2616431c8 100644 (file)
--- a/basis/tools/profiler/sampling/sampling.factor
+++ b/basis/tools/profiler/sampling/sampling.factor
@@ -1,9 +1,9 @@
 ! Copyright (C) 2011 Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs combinators combinators.short-circuit
-continuations formatting fry generalizations hashtables.identity
-io kernel kernel.private layouts locals math math.parser
-math.vectors memory namespaces prettyprint sequences
+continuations formatting generalizations io io.streams.string
+kernel kernel.private layouts math math.parser math.vectors
+memory namespaces prettyprint sequences
 sequences.generalizations sets sorting ;
 IN: tools.profiler.sampling
 
@@ -198,7 +198,7 @@ PRIVATE>
 <PRIVATE
 
 : depth. ( depth -- )
-    [ "  " write ] times ;
+    H{ } [ "  " <repetition> concat ] cache write ;
 
 : by-total-time ( nodes -- nodes' )
     >alist [ second total-time>> ] inv-sort-with ;
@@ -209,26 +209,28 @@ PRIVATE>
 : percentage. ( num denom -- )
     [ 100 * ] dip /f "%6.2f" printf ;
 
-DEFER: (profile.)
+DEFER: profile-depth.
 
 :: times. ( node -- )
-    node {
-        [ depth>> number>string 4 CHAR: \s pad-head write bl ]
-        [ total-time>> duration. bl ]
-        [ [ gc-time>> ] [ total-time>> ] bi percentage. bl ]
-        [ [ jit-time>> ] [ total-time>> ] bi percentage. bl ]
-        [ [ foreign-time>> ] [ total-time>> ] bi percentage. bl ]
-        [ [ foreign-thread-time>> ] [ total-time>> ] bi percentage. bl ]
-    } cleave ;
-
-:: (profile-node.) ( word node depth -- )
+    [
+        node {
+            [ depth>> number>string 4 CHAR: \s pad-head write bl ]
+            [ total-time>> duration. bl ]
+            [ [ gc-time>> ] [ total-time>> ] bi percentage. bl ]
+            [ [ jit-time>> ] [ total-time>> ] bi percentage. bl ]
+            [ [ foreign-time>> ] [ total-time>> ] bi percentage. bl ]
+            [ [ foreign-thread-time>> ] [ total-time>> ] bi percentage. bl ]
+        } cleave
+    ] with-string-writer write ;
+
+:: profile-node. ( word node depth -- )
     node times.
     depth depth.
     word pprint-short nl
-    node children>> depth 1 + (profile.) ;
+    node children>> depth 1 + profile-depth. ;
 
-: (profile.) ( nodes depth -- )
-    [ by-total-time ] dip '[ _ (profile-node.) ] assoc-each ;
+: profile-depth. ( nodes depth -- )
+    [ by-total-time ] dip '[ _ profile-node. ] assoc-each ;
 
 : profile-heading. ( -- )
     "depth   time ms  GC %  JIT %  FFI %   FT %" print ;
@@ -237,5 +239,4 @@ DEFER: (profile.)
 PRIVATE>
 
 : profile. ( tree -- )
-    profile-heading.
-    [ 0 (profile-node.) ] assoc-each ;
+    profile-heading. [ 0 profile-node. ] assoc-each ;