immutable class WEEKDAYS < $ENUMS{WEEKDAYS} |
---|
$ENUMS{_} | $BINARY | $NIL | $IS_NIL | $ANCHORED_FMT | $FMT | $STR | $TEXT | $HASH | $IS_EQ |
Friday : SAME |
---|
Monday : SAME |
---|
Saturday : SAME |
---|
Sunday : SAME |
---|
Thursday : SAME |
---|
Tuesday : SAME |
---|
Wednesday : SAME |
---|
next : SAME |
---|
const Max_Val : CARD := Short_Offset ; |
---|
const Short_Offset : CARD := val_count / 2 ; |
---|
const val_count : CARD := 14 ; |
---|