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

on cleanToolName (s) {
	<<Clean a tool name -- drop .root suffix, inner-case, drop non alphas.
		<<09/30/00; 11:56:43 PM by PBS
	if string.lower (s) endsWith ".root" { //remove .root suffix
		s = string.popSuffix (s)};
	if s contains " " {
		s = string.innerCaseName (s)};
	s = string.dropNonAlphas (s);
	return (s)}

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.