7 #include "cl_integer_io.h"
16 void print_integer (cl_ostream stream, unsigned int base, const cl_I& z)
20 // z<0 -> Vorzeichen ausgeben:
21 fprintchar(stream,'-');
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
32 var uintB* ptr = erg.MSBptr;
33 var uintL count = erg.len;
34 do { fprintchar(stream,*ptr++); } until (--count==0);