immutable class WEEKDAYS < $ENUMS{WEEKDAYS}


Flattened version is here

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



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