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

---

system.verbs.builtins.xml.examples.tableBuilder.script

on dofolder (folder, adrtable) {
	local (f, name);
	xml.addValue (adrtable, "name", file.fileFromPath (folder) - "\\");
	fileloop (f in folder) {
		if file.isfolder (f) {
			dofolder (f, xml.addTable (adrtable, "folder"))}
		else {
			local (fname = file.fileFromPath (f));
			msg (fname);
			xml.addValue (adrtable, "file", fname)}}};
local (folder = file.getSpecialFolderPath ("", "programs", false));
local (adrtable = @parentof (this^)^.xtable);
new (tabletype, adrtable);
dofolder (folder, xml.addTable (adrtable, "folder"))

---

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.