immutable class MONTHS < $ENUMS{MONTHS}


Flattened version is here

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



Public


Features
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


Private

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

The Sather Home Page