class: Date
comment/format in: #printOn:format:
changed: #addPrintBindingsTo:language:
roman print bindings (yes, there seeme to be countries whre those are used)
--- a/Date.st Mon Dec 08 17:27:10 2014 +0100
+++ b/Date.st Mon Dec 08 17:35:35 2014 +0100
@@ -3128,7 +3128,10 @@
%(nth) - counting day-in-month (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')
%(weekDayNth) - counting day-in-week (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')
- %(weekNth) - counting week-in-year (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')"
+ %(weekNth) - counting week-in-year (1->'st'; 2->'nd'; 3->'rd'; 4...->'th')
+
+ %(yearRoman) - year, in roman letters
+ %(monthRoman) - month, in roman letters"
|day ds dsPadded0 dsPaddedB month ms msPadded0 msPaddedB
year weekInYear monthName shortMonthName
@@ -3216,6 +3219,8 @@
"/ 0 1 2 3 4 5 6
aDictionary at:#weekNth put:(#('th' 'st' 'nd' 'rd' 'th' 'th' 'th' 'th' 'th' 'th') at:weekInYear \\ 10 + 1).
"/ 0 1 2 3 4 5 6 7 8 9
+ aDictionary at:#yearRoman put:[ year romanPrintString ].
+ aDictionary at:#monthRoman put:[ month romanPrintString ].
!
printOn:aStream
@@ -3249,6 +3254,8 @@
Date today printOn:Transcript format:'%(ShortDayName), %D-%(ShortMonthName)-%y'
Date today printOn:Transcript format:'%d%m%Y' (millenium bug format - danger)
Date today printOn:Transcript format:'Today is the %(weekDay) day of the week'
+ Date today printOn:Transcript format:'Today is %(day)-%(monthRoman)-%(year)'
+ Date today printOn:Transcript format:'Anno domini %(yearRoman)'
"
"short form (as in blogs like www.stackoverflow, www.superuser etc.)
Date today printOn:Transcript format:'%(MonthName) %D ''%Y'
@@ -3451,11 +3458,11 @@
!Date class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.161 2014-11-26 09:48:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.162 2014-12-08 16:35:35 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.161 2014-11-26 09:48:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.162 2014-12-08 16:35:35 cg Exp $'
! !