Monday, November 08, 2010 at 12:07 AM.

---

system.verbs.builtins.xml.testing.init

<<You must run this script when you change one of the existing examples, or add a new one
	<<3/27/98; 6:03:16 AM by DW

window.about ();
local (adrdata = @parentof (this^)^.data);
local (adrexamples = @xml.examples);
local (adritem, nameitem, adrstructure, adrtext, i, ct=1);
for i = 1 to sizeof (adrexamples^) {
	adritem = @adrexamples^ [i];
	nameitem = nameof (adritem^);
	if defined (adritem^.taggedtext) {
		adrstructure = @adrdata^.[nameitem + "Structure"];
		adrtext = @adrdata^.[nameitem + "Text"];
		msg (ct++ + ": " + adrstructure);
		xml.compile (string (adritem^.taggedtext), adrstructure);
		msg (ct + ": " + adrtext);
		wp.newtextobject (xml.decompile (adrstructure), adrtext);
		delete (adrstructure)}} //it's not needed for the stress test

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.