immutable class ERA_DATES < $DATES{ERA_DATES} |
---|
$DATES{_} | $ANCHORED_FMT | $FMT | $STR | $TEXT | $BINARY | $HASH | $IS_EQ | $ORDERED{_} | $IS_LT{_} | $VALUE{_} | $NIL | $IS_NIL |
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 |
---|
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 |
---|