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.