@verb #8084:"buildDOM" this none this rxdo #60
@program #8084:"buildDOM" this none this
{xmlNode, ?doc = $dom:createDocument("", "")} = args
domNode = doc->createElement(xmlNode->name)
for attr in (xmlNode->attributes)
  domNode->setAttribute(attr[1], attr[2])
endfor
for y in (xmlNode->children)
  if (typeof(y) == WAIF)
    domNode->appendChild(this:buildDOM(y, doc))
  else
    domNode->appendChild(doc->createTextNode({@y}))
  endif
endfor
return domNode
"Last modified by Lao-Tzu (#8084) on Thu Nov 14 18:51:45 2002 MST."
.