--- parser3/tests/109.html	2003/03/08 10:24:09	1.1
+++ parser3/tests/109.html	2003/07/24 11:25:58	1.2
@@ -0,0 +1,44 @@
+@main[]
+^domdata[]
+
+^show_xnode1[$xdoc.documentElement;0;1]<hr>
+^show_xdoc2[$xdoc]<hr>
+
+
+@domdata[]
+$xdoc[^xdoc::create[doc]]
+$doc[$xdoc.documentElement]
+$name[^doc.appendChild[^xdoc.createElement[name]]]
+$text[^name.appendChild[^xdoc.createTextNode[петросян&coz]]]
+
+@show_xnode1[x;level;single][l]
+^if(def $x){
+    ^for[l](0;$level-1){&nbsp^;&nbsp^;&nbsp^;&nbsp^;}
+    ^if($x.nodeType == $xnode:ELEMENT_NODE){
+    	&lt^;$x.nodeName
+	    $pairs[$x.attributes]
+	    ^if(def $pairs){
+	    	$names[^pairs._keys[]]
+	    	^names.menu{ $names.key="$pairs.[$names.key].nodeValue"}
+	    }
+	    &gt^;
+    }{
+    	[$x.nodeType]
+    }
+    
+    ^if(def $x.nodeValue){$x.nodeValue}<br>
+    ^show_xnode1[$x.firstChild]($level+1)
+    ^if(!$single){
+	    ^show_xnode1[$x.nextSibling]($level)
+    }
+
+    ^if($x.nodeType == $xnode:ELEMENT_NODE){
+    ^for[l](0;$level-1){&nbsp^;&nbsp^;&nbsp^;&nbsp^;}&lt^;/$x.nodeName&gt^;<br>
+    }
+}
+
+@show_xdoc2[xdoc]
+<pre>^taint[html][^xdoc.string[
+	$.method[html]
+]]
+</pre>