immutable class WEEKDAYS < $ENUMS{WEEKDAYS}


Flattened version is here

Ancestors
$ENUMS{_} $BINARY $NIL $IS_NIL
$ANCHORED_FMT $FMT $STR $TEXT
$HASH $IS_EQ



Public


Features
Friday : SAME
Monday : SAME
Saturday : SAME
Sunday : SAME
Thursday : SAME
Tuesday : SAME
Wednesday : SAME
next : SAME


Private

const Max_Val : CARD := Short_Offset ;
const Short_Offset : CARD := val_count / 2 ;
const val_count : CARD := 14 ;

The Sather Home Page