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

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

Vocabulary
xml-rpc

Inputs

Outputs

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 ;