return-params ( seq -- xml ) (original) (raw)

return-params ( seq -- xml )

Vocabulary
xml-rpc

Inputs

Outputs

Definition

USING: xml.data xml.syntax.private ;

IN: xml-rpc

: return-params ( seq -- xml )
params 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{ "" ~interpolated~ "" } }
}
}
{ after V{ "" } }
} interpolate-xml ;