immutable class MONTHS < $ENUMS{MONTHS} |
---|
$ENUMS{_} | $BINARY | $NIL | $IS_NIL | $ANCHORED_FMT | $FMT | $STR | $TEXT | $HASH | $IS_EQ |
April : SAME |
---|
August : SAME |
---|
December : SAME |
---|
February : SAME |
---|
January : SAME |
---|
July : SAME |
---|
June : SAME |
---|
March : SAME |
---|
May : SAME |
---|
November : SAME |
---|
October : SAME |
---|
September : SAME |
---|
next : SAME |
---|
const Max_Val : CARD := Short_Offset ; |
---|
const Short_Offset : CARD := val_count / 2 ; |
---|
const val_count : CARD := 24 ; |
---|