Monday, November 08, 2010 at 12:05 AM.
system.verbs.builtins.radio.file.writeFileCallback
on writeFileCallback (f) { <<Changes <<12/11/01; 12:46:27 PM by DW <<Wired off. Do nothing. <<12/10/01; 8:27:51 AM by DW <<Modern regime, an end to system.temp.radio.recentlyWrittenWwwFiles. We just check if it's in the upstream folder, and if so, wake up the main thread if it's not sleeping. <<12/6/01; 8:11:25 PM by DW <<We don't want to short-cut upstreaming of directory.opml. It can be large, and the goal of this is to get the content up to the cloud quickly. <<12/6/01; 7:09:03 PM by DW <<Undo Jake's 11/27 change. It makes it impossible to debug this stuff. <<11/27/01; 6:21:33 PM by JES <<Respect offline status, and user.radio.prefs.upstream.enabled. <<11/27/01; 8:08:06 AM by DW <<Created. Called from file.writeWholeFile after the file is written. If it's contained in the www folder, we add it to system.temp.radio.recentlyWrittenWwwFiles. return} //wired off, 12/11/01; 9:56:33 AM by DW <<if string.lower (f) beginswith string.lower (user.radio.prefs.upstream.folder) <<if not (file.filefrompath (f) beginswith "#") <<radio.thread.wake () <<try <<if string.lower (f) beginswith string.lower (user.radio.prefs.upstream.folder) <<local (name = file.filefrompath (f)) <<if not (name beginswith "#") <<if name != string.lower (radio.data.upstream.directoryFileName) <<local (adrtable = @system.temp.radio.recentlyWrittenWwwFiles) <<if not defined (adrtable^) <<new (tabletype, adrtable) <<adrtable^.[f] = clock.now () <<bundle //test code <<for i = 1 to 1000 <<writeFileCallback ("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.