Monday, November 08, 2010 at 12:02 AM.
system.verbs.builtins.date.monthToString
on monthToString (monthnum) { <<Thursday, November 11, 1999 at 2:30:12 AM by AR <<Implemented as a kernel verb in Frontier 6.1. <<Old code <<on monthToString (monthnum) //9/12/98; 7:49:17 AM by DW <<if (monthnum < 1) or (monthnum > 12) <<scriptError ("Can't convert " + monthnum + " to a string because it is not between 1 and 12.") <<local (adrdatatable = @user.prefs.dates) <<if not defined (adrdatatable^) <<new (tableType, adrdatatable) <<local (adrlist = @adrdatatable^.monthNames) <<if not defined (adrlist^) <<adrlist^ = {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"} <<return (adrlist^ [monthnum]) kernel (date.monthToString)} <<bundle //test code <<dialog.notify (monthToString (12))
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.