src/integer/output/cl_I_print.cc

   1 // print_integer().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_integer_io.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cl_io.h"
  13 #include "cl_I.h"
  14 #include "cl_DS.h"
  15
  16 void print_integer (cl_ostream stream, unsigned int base, const cl_I& z)
  17 {
  18         var cl_I abs_z;
  19         if (minusp(z)) {
  20                 // z<0 -> Vorzeichen ausgeben:
  21                 fprintchar(stream,'-');
  22                 abs_z = -z;
  23         } else
  24                 abs_z = z;
  25         CL_ALLOCA_STACK;
  26         var uintL need = cl_digits_need(abs_z,base);
  27         var uintB* ziffern = cl_alloc_array(uintB,need); // Platz für die Ziffern
  28         var cl_digits erg; erg.LSBptr = &ziffern[need];
  29         I_to_digits(abs_z,(uintD)base,&erg); // Umwandlung in Ziffern
  30         // Ziffern ausgeben:
  31         {
  32                 var uintB* ptr = erg.MSBptr;
  33                 var uintL count = erg.len;
  34                 do { fprintchar(stream,*ptr++); } until (--count==0);
  35         }
  36 }