immutable class WEEKDAYS < $ENUMS{WEEKDAYS} |
---|
$ENUMS{_} | $HASH | $IS_EQ | $TEXT | $STR | $BINARY | $ANCHORED_FMT | $FMT | $NIL | $IS_NIL |
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 ; |
---|