immutable class ERA_DATES < $DATES{ERA_DATES}


Ancestors
$DATES{_} $ANCHORED_FMT $FMT $STR
$TEXT $BINARY $HASH $IS_EQ
$ORDERED{_} $IS_LT{_} $VALUE{_} $NIL
$IS_NIL



Public


Features
binstr : BINSTR .. Included as binstr
build( .. Included as build
build( .. Included as build
count : CARD .. Included as count
create(str : BINSTR) : SAME .. Included as create
create( .. Included as create
create( .. Included as create
date( .. Included as date
date : CARD .. Included as date
day_in_year( .. Included as day_in_year
day_in_year : CARD .. Included as day_in_year
day_of_week( .. Included as day_of_week
day_of_week : CARD .. Included as day_of_week
era( .. Included as era
era : CARD .. Included as era
fmt( .. Included as fmt
fmt( .. Included as fmt
from_days( .. Included as from_days
hash : CARD .. Included as hash
is_date( .. Included as is_date
is_eq( .. Included as is_eq
is_eq(other : $OB) : BOOL .. Included as is_eq
**** This is the generic equality predicate. c.f. the class $IS_EQ
is_lt( .. Included as is_lt
is_nil : BOOL .. Included as is_nil
minus( .. Included as minus
minus( .. Included as minus
month_number( .. Included as month_number
month_number : CARD .. Included as month_number
nil : SAME
plus( .. Included as plus
read(index : BIN_CURSOR) : SAME .. Included as read
str( .. Included as str
str : STR .. Included as str
today : SAME .. Included as today
week_in_year( .. Included as week_in_year
week_in_year : CARD .. Included as week_in_year
weekday( .. Included as weekday
weekday : WEEKDAYS .. Included as weekday
write(fyle : BIN_FILE) .. Included as write
year( .. Included as year
year : CARD .. Included as year
year_this_era( .. Included as year_this_era
year_this_era : CARD .. Included as year_this_era


Private

const Base_Wday : WEEKDAYS := WEEKDAYS::Sunday ;
**** ??????????????????????
const Base_Year : CARD := 1900 ;
**** ?????????????????????
const Days_in_Week : CARD := 7 ;
****
const Days_in_Year : CARD := 365 ;
**** in an ordinary year anyway!
const February : CARD := 2 ;
**** ??????????????????????
const Leap_Cycle : CARD := 4 ;
const Month_Max : ARRAY{CARD} := | 0, 31, 28, 31, 30, 31, 30,
****
const Years_in_Era : CARD := 100 ;
**** ??????????????????????
days_in_years( .. Included as days_in_years
find_month( .. Included as find_month
****
is_leap_year( .. Included as is_leap_year
attr val : CARD ;
attr val : CARD ;
year_count( .. Included as year_count

The Sather Home Page