machine-list ( builders -- xml )

Vocabulary

webapps.mason.downloads

Inputs

builders

an object

Outputs

xml

an object

Definition

USING: accessors grouping.extras kernel mason.report math.order
sequences sorting.specification webapps.mason.backend xml.data
xml.syntax.private ;

IN: webapps.mason.downloads

: machine-list ( builders -- xml )
    { { host-name>> <=> } { os>> <=> } { cpu>> <=> } }
    sort-with-spec [ host-name>> ] group-by [
        first2 [
            [ os/cpu ] [ current-git-id>> git-short-link ]
            [ status>> ] tri 3 nenum
            T{ xml-chunk { seq V{ "" ~tag~ "" } } }
            interpolate-xml
        ] map 2 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                    T{ interpolated { var 1 } }
                    ""
                }
            }
        } interpolate-xml
    ] map [
        T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        }
    ] [
        1 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] if-empty ;