Section Header

    + name := UINTEGER_BIG;
Aucun Auto-Cast pour l'instant...(peut etre
INTEGER_BIG ...)

    - comment := "Integer without bits limit! (Just for fun!)";
- default := 0;

Section Inherit

    - parent_unsigned:UNSIGNED :=

Section UINTEGER_BIG

    + storage:FAST_ARRAY[UINTEGER];

    - last_modulo:UINTEGER;

    - make init:UINTEGER :SELF <-

    - count:INTEGER <-

    - lower:INTEGER <-

    - upper:INTEGER <-

    - item idx:INTEGER :UINTEGER <-

    - copy other:UINTEGER_BIG <-

    - force elt:UINTEGER to idx:INTEGER <-

    - put elt:UINTEGER to idx:INTEGER <-

    - add_last elt:UINTEGER <-

    - resize new_size:INTEGER <-

Section INTEGER

    - create init:UINTEGER :UINTEGER_BIG <-

Section Public

    - object_size:INTEGER <-

Range.


    - maximum:UINTEGER_64 <-

Conversion format with test.


    - to_uinteger_64:UINTEGER_64 <-

    - to_uinteger:UINTEGER <-

    - to_uinteger_16:UINTEGER_16 <-

    - to_uinteger_8:UINTEGER_8 <-

    - to_integer_64:INTEGER_64 <-

    - to_integer:INTEGER <-

    - to_integer_16:INTEGER_16 <-

    - to_integer_8:INTEGER_8 <-
- to_ureal_26_6:UREAL_26_6 <- self;

    - to_ulargeint:UINTEGER_BIG <-

    - clean <-

binary operator :


    - '-' Left 80 other:SELF :SELF <-

    - '-#' Left 80 other:INTEGER :SELF <-

    - '+' Left 80 other:SELF :SELF <-

    - '+#' Left 80 other:INTEGER :SELF <-

    - '*' Left 100 other:SELF :SELF <-

    - '*#' Left 100 other:INTEGER :SELF <-

    - '/' Left 100 other:SELF :SELF <-

    - '/#' Left 100 other:INTEGER :SELF <-

    - '&' Left 100 other:SELF :SELF <-

Test binary operator :


    - '>' Right 60 other:SELF :BOOLEAN <-

    - '>#' Right 60 other:INTEGER :BOOLEAN <-

    - '==' Right 60 other:SELF :BOOLEAN <-

prefix : Unary operator


    - '~' :SELF <-

    - '-' :SELF <-

    - factorial:SELF <-

conversion


    - append_in buffer:STRING <-
        Append in the `buffer' the equivalent of `to_string'. No new STRING
        creation during the process.