struct-member ( name value -- tag )

Vocabulary

xml-rpc

Inputs

name	an object
value	an object

Outputs

tag

an object

Definition

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

IN: xml-rpc

: struct-member ( name value -- tag )
    over string?
    [ "Struct member name must be string" throw ] unless
    item>xml 2 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;