xml>item ( tag -- object )

Vocabulary

xml-rpc

Inputs

tag

an object

Outputs

object

an object

Definition

USING: accessors base64 combinators kernel make sequences
xml.syntax.private xml.traversal ;

IN: xml-rpc

: xml>item ( tag -- object )
    dup main>> {
        { "base64" [ children>string base64> <base64> ] }
        { "double" [ children>number ] }
        { "int" [ children>number ] }
        {
            "struct"
            [
                [ children-tags [ unstruct-member ] each ] H{ }
                make
            ]
        }
        { "i4" [ children>number ] }
        {
            "array"
            [
                first-child-tag children-tags
                [ first-child-tag xml>item ] map
            ]
        }
        { "string" [ children>string ] }
        {
            "boolean"
            [
                children>string {
                    { "1" ~quotation~ }
                    { "0" ~quotation~ }
                    [ "Bad boolean" server-error ]
                } case
            ]
        }
        [ \ xml>item no-tag ]
    } case ;