(timings-table) ( quot: ( file -- time ) -- xml )

Vocabulary

mason.report

Inputs

quot	a quotation with stack effect ( file -- time )

Outputs

xml

an object

Definition

USING: kernel sequences xml.data xml.syntax.private ;

IN: mason.report

: (timings-table) ( quot: ( file -- time ) -- xml )
    {
        "boot-time"
        "load-time"
        "test-time"
        "help-lint-time"
        "benchmark-time"
        "html-help-time"
    } swap '[
        dup @ 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 ; inline