@verb #962:":initialize" this none this rxdo #55
@program #962:":initialize" this none this
if (caller != this && caller != this->class)
  raise(E_PERM)
endif
pass(@args)
{?data = {"", {}, {}}} = args
if (typeof(data) == $LIST && length(data) == 3 && typeof(data[2]) == $LIST)
  "Looks like an $xml output list"
else
  data = $xml:parse(data)
endif
{name, attributes, children} = data
this->name = name
this->attributes = attributes
for x in (children)
  if (typeof(x) == $STR)
    this->children = {@this->children, x}
  else
    this->children = {@this->children, child = this->class:new(x)}
    "    child->parent = this;"
  endif
endfor
"Last modified by Dax (#789) on Tue May  3 13:55:54 2005 MDT."
.