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

on verifyStories (adrErrorCallback=nil) {
		<<11/30/02; 3:53:34 PM by JES
			<<Created. Verify backed up story files.
	local (pc = file.getpathchar (), foldername =;
	local (storiesfolder = + foldername + pc);
	local (backupfolder = + "stories" + pc);
	local (errormessage, flerror = false);
	on error (s) { //call the error callback
		flerror = true;
		if adrErrorCallback != nil {
			return (adrErrorCallback^ ("Verification of backup failed because " + s))}};
	on verifyOneStory (f) {
		local (fname = file.fileFromPath (f));
		local (partialpath = string.delete (f, 1, sizeOf (storiesfolder)) );
		local (fbackup = backupfolder + partialpath);
		if not file.exists (fbackup) {
			errormessage = "the story file, \"" + fname + "\" does not exist.";
			return (false)};
		if not file.readWholeFile (f) == file.readWholeFile (fbackup) {
			errormessage = "the backup of story file, \"" + fname + "\" is different from the original.";
			return (false)};
		return (true)};
	fileloop (f in storiesfolder, infinity) {
		if not file.isVisible (f) {
		if file.fileFromPath (f) beginsWith "." {
		if not verifyOneStory (f) {
			if not error (errormessage) {return (false)}}};
	return (not flerror)};
bundle { //test code
	on errorCallback (s) {
		dialog.alert (s);
		return (true)};
	verifyStories (@errorCallback)}

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.