class ALT_DIGITS < $BINARY
****

________This_class_embodies_the_abstraction_of_other_characters_than_Arabic
___digits_being_used_for_the_string_representation_of_numbers.___See_ISO/IEC
___14652_for_details.


Flattened version is here

Ancestors
$BINARY AREF{_}



Public


Features
binstr : BINSTR
build(cursor : BIN_CURSOR) : SAME
build(cursor : BIN_CURSOR,lib : LIBCHARS) : SAME
card(val : CODE_STR ) : CARD
create : SAME
**** This routine creates an empty list for filling up!
is_alt_digit(ch : CHAR_CODE) : BOOL
**** This predicate returns true if and only if the given character is
___found_in_the_array.__Where_a_value_is_greater_than_a_single_character_it
___is_presumed_to_be_made_up_from_a_sequence_of_characters_previously_found
___in_earlier_elements_of_the_array_-_which_makes_testing_different_from
___conversion_to_numeric_form.
is_empty : BOOL
**** This predicate returns true if and only if the size is zero.
push(codes : CODE_STR) : SAME
read(index : BIN_CURSOR,lib : LIBCHARS) : SAME
size : CARD
str(val : CARD) : STR

Iters
ind! : CARD


Private

const Min_Size : CARD := 10 ;
**** Many scripts have only ten!
aset(index : CARD,val : CODE_STR)
attr kind : CODE_KINDS ;
attr kind : CODE_KINDS ;
attr loc : CARD ;
attr loc : CARD ;

The Sather Home Page