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.