7 #include "cln/integer_io.h"
12 #include "cln/output.h"
16 void print_integer (cl_ostream stream, const cl_print_rational_flags& flags, const cl_I& z)
18 var unsigned int base = flags.rational_base;
19 if (flags.rational_readably)
20 // Radix-Specifier ausgeben:
23 fprintchar(stream,'#');
24 fprintchar(stream,'b');
27 fprintchar(stream,'#');
28 fprintchar(stream,'o');
31 fprintchar(stream,'#');
32 fprintchar(stream,'x');
35 // Basis 10 bei Integers durch
36 // nachgestellten Punkt kennzeichnen:
37 print_integer(stream,base,z);
38 fprintchar(stream,'.');
41 // Basis in #nR-Schreibweise ausgeben:
42 fprintchar(stream,'#');
43 print_integer(stream,10,base);
44 fprintchar(stream,'r');
47 // Integer in Basis base ausgeben:
48 print_integer(stream,base,z);