common-report ( -- xml )

Vocabulary

mason.report

Inputs

None

Outputs

xml

an object

Definition

USING: mason.common mason.config mason.disk namespaces xml.data
xml.syntax.private ;

IN: mason.report

: common-report ( -- xml )
    target-os get target-cpu get short-host-name disk-usage
    build-dir current-git-id get git-link 6 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                "\n    "
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;