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.


Ancestors
$BINARY AREF{_}



Public


Features
aget(index : CARD) : ELT .. Included as aget
aget(index : INT) : ELT .. Included as aget
aset(index : CARD, val : ELT) .. Included as aref_aset
aset(index : INT, val:ELT) .. Included as aref_aset
binstr : BINSTR
build(cursor : BIN_CURSOR) : SAME
build(cursor : BIN_CURSOR,lib : LIBCHARS) : SAME
card(val : CODE_STR ) : CARD
create(str : BINSTR) : SAME .. Included as create
create : SAME
**** This routine creates an empty list for filling up!
elt_eq(first,second : ETP) : BOOL .. Included as elt_eq
**** This is the standard 'less than' predicate used in sorting routines.
___The_using_class_must_specify_an_equality_predicate_routine.
elt_hash(elem : $OB) : CARD .. Included as elt_hash
****
________This_routine_returns_a_hash_value_associated_with_an_element._This
___must_have_the_property_that_if_"elt_eq(first,second)"_then
___"elt_hash(first)=elt_hash(second)"._It_could_be_defined_always_to_return_0,
___but_many_routines_will_then_become_quadratic._This_uses_the_object_"id"_by
___default.___It_may_be_redefined_in_descendants.
elt_lt(first,second : ETP) : BOOL .. Included as elt_lt
****
________This_routine_is_the_standard_predicate_'less_than'_for_use_in
___sorting.___By_default_the_object_identity_components_are_compared.
___It_may_be_redefined_in_descendants.
elt_nil : ETP .. Included as elt_nil
****
________This_routine_returns_the_NIL_value.___If_the_element_class_is_a
___subclass_of_$NIL_then_it_returns_nil,_otherwise_void.
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_elt_nil( elem : ETP) : BOOL .. Included as is_elt_nil
**** This predicate returns true if and only if elem is NIL.
is_empty : BOOL
**** This predicate returns true if and only if the size is zero.
push(codes : CODE_STR) : SAME
read(index : BIN_CURSOR) : SAME .. Included as read
read(index : BIN_CURSOR,lib : LIBCHARS) : SAME
size : CARD
str(val : CARD) : STR
write(fyle : BIN_FILE) .. Included as write

Iters
ind! : CARD


Private

const Min_Size : CARD := 10 ;
**** Many scripts have only ten!
aclear .. Included as aclear
acopy(src : SAME) .. Included as acopy
acopy(beg : CARD, src : SAME) .. Included as acopy
acopy(beg, num : CARD, src : SAME) .. Included as acopy
acopy(beg, num, srcbeg : CARD, src : SAME) .. Included as acopy
aelt!(once beg : CARD) : ELT .. Included as aelt!
aelt!(once beg, once num : CARD) : ELT .. Included as aelt!
aelt!(once beg,once num : CARD,once step : INT) : ELT .. Included as aelt!
aelt! : ELT .. Included as aelt!
aind! : CARD .. Included as aind!
array_ptr : REFERENCE .. Included as array_ptr
aset!(val : ELT) .. Included as aset!
aset!(once beg : CARD,val : ELT) .. Included as aset!
aset!(once beg, once num : CARD, val : ELT) .. Included as aset!
aset!(once beg, once num : CARD, once step : INT,val : ELT) .. Included as aset!
aset(index : CARD,val : CODE_STR)
asize : CARD .. Included as asize
create(cnt : CARD) : SAME .. Included as create
**** This routine returns a new array with cnt elements.
for_all(first, second : SAME) : BOOL .. Included as for_all
****
__This_private_predicate_returns_true_if_and_only_if_all_elements_of
___first_and_second_are_the_same!
is_legal_aelts_arg(beg, num : CARD, step : INT) : BOOL .. Included as is_legal_aelts_arg
**** This predicate returns true if and only if the arguments are legal
___values_for_aelt_and_aset_iters_below.
attr kind : CODE_KINDS ;
attr kind : CODE_KINDS ;
attr loc : CARD ;
attr loc : CARD ;

The Sather Home Page