Handbook
Glossary
builder-list ( seq -- xml )
Vocabulary
webapps.mason.downloads
Inputs
seq
an
object
Outputs
xml
an
object
Definition
USING:
kernel
sequences
sorting
webapps.mason.backend
webapps.mason.utils
xml.data
xml.syntax.private
;
IN:
webapps.mason.downloads
:
builder-list
( seq -- xml )
[
os/cpu
]
sort-by
[
[
report-url
]
[
os/cpu
]
[
builder-status
]
tri
3
nenum
T{
xml-chunk
{
seq
V{
""
T{
tag
{
name ~name~
}
{
children ~vector~
}
}
""
}
}
}
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
;