@verb #4133:"xml_tell" this none this rxdo #4133
@program #4133:"xml_tell" this none this
"Copied from Lao-Tzu (#8084):xml_tell Aug 16 06:47:06 2000"
":xml_tell(text) => 0 or 1"
"xml_tell accepts a list of strings as an argument. This data is run through the XML parser, and then an appropriate style-object is found to render it for this user. 0 is returned if the document could not be parsed, or could not be rendered. 1 is returned if it was successful."
{text} = args
parsed = `$xml:parse(text) ! ANY'
if (!parsed)
  return 0
endif
style = $xml:find_styleobject(this, parsed[1])
data = style:render(@parsed)
this:Tell($su:explode(data, "-*/"))
.