src/integer/output/cl_I_print_string.cc

   1 // print_integer_to_string().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cln/integer_io.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cl_I.h"
  13 #include "cl_DS.h"
  14 #include "cl_sstring.h"
  15
  16 namespace cln {
  17
  18 char * print_integer_to_string (unsigned int base, const cl_I& z)
  19 {
  20         var cl_boolean minus_p = cl_false;
  21         var cl_I abs_z;
  22         if (minusp(z)) {
  23                 // z<0 -> später Vorzeichen ausgeben:
  24                 minus_p = cl_true;
  25                 abs_z = -z;
  26         } else
  27                 abs_z = z;
  28         CL_ALLOCA_STACK;
  29         var uintL need = 1+cl_digits_need(abs_z,base);
  30         var uintB* ziffern = cl_alloc_array(uintB,need); // Platz für die Ziffern
  31         var cl_digits erg; erg.LSBptr = &ziffern[need];
  32         I_to_digits(abs_z,(uintD)base,&erg); // Umwandlung in Ziffern
  33         // Vorzeichen ankleben:
  34         var char* ergptr = (char*)erg.MSBptr;
  35         var uintL erglen = erg.len;
  36         if (minus_p) {
  37                 *--ergptr = '-';
  38                 erglen++;
  39         }
  40         var char* result = cl_sstring(ergptr,erglen); // Ziffern in String schreiben
  41         return result;
  42 }
  43
  44 }  // namespace cln