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

on singleSiteFilter (adrsearch) {
		<<8/11/02; 2:21:44 AM by JES
			<<Created. A search result filter which removes all hits that aren't in the site specified by the siteurl searchArg.
	local (siteurl = "http"); //default to all http pages
	bundle { //set siteUrl if siteurl search arg is present
		local (t); new (tableType, @t);
		webserver.parseArgs (pta^.searchArgs, @t);
		if defined (t.siteurl) {
			siteurl = string.lower (t.siteurl)}};
	local (i, ct = sizeOf (adrsearch^.rawResults));
	for i = ct downto 1 {
		if not (string.lower (nameOf (adrsearch^.rawResults[i])) beginsWith siteurl) {
			delete (@adrsearch^.rawResults[i])}};
	adrsearch^.totalHits = sizeOf (adrsearch^.rawResults);
	return (true)}

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.