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


<<This script lets us know if anything material changed in the compile/decompile process
	<<3/27/98; 6:09:38 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 nameitem beginswith "!" {
	if defined (adritem^.taggedtext) {
		adrstructure = @scratchpad.structure;
		adrtext = @adrdata^.[nameitem + "Text"];
		msg (ct++ + ": " + adrtext);
		xml.compile (string (adritem^.taggedtext), adrstructure);
		s = xml.decompile (adrstructure);
		if s != string (adrtext^) {
			scriptError ("There might be a problem in " + adritem + ".")}}}

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.