@verb #8084:"xml_web_tell" this none this rxdo #8084
@program #8084:"xml_web_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(player, parsed[1])
data = style:render(@parsed)
data = $su:explode(data, "-*/")
for x in (data)
  data[x in data] = x + "<br>"
endfor
player:tell(data)
"Last modified by Lao-Tzu (#8084) on Tue Jan 30 09:23:16 2001 MST."
.