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

on getFirstComment (adrinxstruct) {
		<<11/26/2000; 10:28:32 AM by DW
			<<Created. Given an address in a compiled OPML structure, check the first subitem to see if it's a comment, if so, return the text, otherwise return the empty string. 
	try {
		local (adrsub = @adrinxstruct^ [1]);
		if adrsub^.["/atts"].isComment {
			local (s = xml.entityDecode (adrsub^.["/atts"].text, flAlphaEntities:true));
			if not (s beginswith "<") { //it's not a rule
				return (s)}}};
	return ("")}
<<bundle //test code
	<<dialog.alert (getFirstComment (table.getcursor ()))

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.