Added set_tag_name() accessor.

Rev: lib/modules/Parser.pmod/XML.pmod/Tree.pmod:1.52

lib/modules/Parser.pmod/XML.pmod/Tree.pmod

 #pike __REAL_VERSION__
 
 /*
- * $Id: Tree.pmod,v 1.51 2004/05/14 18:37:31 grubba Exp $
+ * $Id: Tree.pmod,v 1.52 2004/06/23 15:13:40 jonasw Exp $
  *
  */
 
@@ -734,6 +734,14 @@ static class VirtualNode {
     return (mTagName);
   }
 
+  //! Change the tag name destructively. Can only be used on element and
+  //! processing-instruction nodes.
+  void set_tag_name(string name)
+  {
+    if (mNodeType & (XML_ELEMENT | XML_PI))
+      mTagName = name;
+  }
+
   //! Return fully qualified name of the element node.
   string get_full_name()
   {