timings-table ( -- xml )


Vocabulary
mason.report

Inputs
None

Outputs
xmlan object


Definition


: timings-table ( -- xml )
{
"boot-time"
"load-time"
"test-time"
"help-lint-time"
"benchmark-time"
"html-help-time"
} [
dup eval-file nanos>time 2 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml
] map 1 nenum T{ xml-chunk
{ seq
V{
""
T{ tag { name ~name~ } { children ~vector~ } }
" "
T{ tag { name ~name~ } { children ~vector~ } }
""
}
}
} interpolate-xml ;