@verb #8084:"xml_tell" this none this rxdo #8084
@program #8084:"xml_tell" this none this
":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, "-*/"))
"Last modified by Lao-Tzu (#8084) on Tue Aug 15 22:00:51 2000 MDT."
.