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

---

system.verbs.builtins.userland.oldstuff.deleteArethaStats

<<deletes all {aretha stats} tables in the root file
	<<these are produced by the scripting.com software

on traverse (adr) {
	local (i);
	for i = sizeof (adr^) downto 1 {
		local (adrsubitem = @adr^ [i]);
		if typeOf (adrsubitem^) == tableType {
			local (name = nameOf (adrsubitem^));
			msg (adrsubitem);
			if name == "{aretha stats}" {
				delete (adrsubitem^)}
			else {
				traverse (adrsubitem)}}}};
traverse (@root)

---

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.