class QUAD_STR < $STRING{CHAR,FSTR,QUAD_STR}, $IMMUTABLE


Flattened version is here

Ancestors
$IMMUTABLE $STR $BINARY $STRING{_,_,_}
$SEARCH{_,_} $STRINGS $HASH $IS_EQ
$NIL $IS_NIL $STRING{_} $LISTS{_}
$ARR{_} $RO_ARR{_} $CONTAINER{_} $COPY
$FILTERS{_} $ELT{_} $ELT



Public


Features
create(

Iters


Private

const Width : CARD := 4 ;
**** ie thirty two bit codes
attr width : CARD ;
attr width : CARD ;

The Sather Home Page