return-fault ( fault-code fault-string -- xml )

Vocabulary

xml-rpc

Inputs

fault-code	an object
fault-string	an object

Outputs

xml

an object

Definition

USING: make xml.data xml.syntax.private ;

IN: xml-rpc

: return-fault ( fault-code fault-string -- xml )
    [ "faultString" ,, "faultCode" ,, ] H{ } make
    item>xml 1 nenum T{ xml
        { prolog
            T{ prolog { version "1.0" } { encoding "UTF-8" } }
        }
        { before V{ } }
        { body
            T{ tag
                { name
                    T{ name
                        { space "" }
                        { main "methodResponse" }
                        { url "" }
                    }
                }
                { children
                    V{ "\n            " ~tag~ "\n        " }
                }
            }
        }
        { after V{ "" } }
    } interpolate-xml ;