Handbook
Glossary
timings-table ( -- xml )
Vocabulary
mason
.
report
Inputs
None
Outputs
xml
an
object
Definition
USING:
kernel
mason.common
sequences
xml.data
xml.syntax.private
;
IN:
mason.report
:
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
;