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.