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


on visitDatabases (callback) { //call the routine for every open database
		<<12/8/99; 9:57:51 AM by PBS
			<<Don't visit index.root and news.root if they don't exist.
	on visitfile (f) {
		if window.isopen (f) {
			callback^ (f)}};
	local (i);
	for i = 1 to sizeof (user.databases) {
		visitfile (user.databases [i].f)};
	if defined (system.temp.mainResponder.indexRootFile) { //PBS 12/8/99: visit only if index.root exists
		visitfile (system.temp.mainResponder.indexRootFile)};
	visitfile (system.temp.mainResponder.discussRootfile);
	visitfile (system.temp.mainResponder.membersRootFile);
	if defined (system.temp.mainResponder.newsRootFile) { //PBS 12/8/99: visit only if news.root exists
		visitfile (system.temp.mainResponder.newsRootFile)}}
<<bundle //test code
	<<visitDatabases (@msg)

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.