Handbook
Glossary
benchmarks-table ( assoc -- xml )
Vocabulary
mason
.
report
Inputs
assoc
an
object
Outputs
xml
an
object
Definition
USING:
assocs
formatting
math
xml.data
xml.syntax.private
;
IN:
mason.report
:
benchmarks-table
( assoc -- xml )
[
1000000000
/f
"%.3f"
sprintf
2
nenum
T{
xml-chunk
{
seq
V{
""
T{
tag
{
name ~name~
}
{
children ~vector~
}
}
""
}
}
}
interpolate-xml
]
{
}
assoc>map
1
nenum
T{
xml-chunk
{
seq
V{
""
T{
tag
{
name ~name~
}
{
children ~vector~
}
}
"\n "
T{
tag
{
name ~name~
}
{
children ~vector~
}
}
""
}
}
}
interpolate-xml
;