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


on setModified (f, when) {
		<<11/27/01; 9:06:02 AM by DW
			<<Supports callback, patterned after file.writewholefile's new callback.
	on kernelcall (f, when) {
		kernel (file.setmodified)};
	local (val = kernelcall (f, when));
	bundle { //call the callbacks, if present
		local (adrscript);
		if not defined (user.callbacks.fileSetModified) {
			new (tableType, @user.callbacks.fileSetModified)};
		for adrscript in @user.callbacks.fileSetModified {
			try {
				while typeOf (adrscript^) == addressType {
					adrscript = adrscript^};
				adrscript^ (f)}}};
	return (val)}
<<bundle //test code
	<<setModified ("C:\\Program Files\\Radio UserLand\\www\\index.txt", ())

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.