immutable class MONTHS < $ENUMS{MONTHS}


Flattened version is here

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



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