1 // Formatted output functions à la Common Lisp.
6 #include "cln/number.h"
12 // gibt arg als römische Zahl auf stream aus, z.B. 4 als IIII.
13 extern void format_old_roman (std::ostream& stream, const cl_I& arg);
15 // gibt arg als römische Zahl auf stream aus, z.B. 4 als IV.
16 extern void format_new_roman (std::ostream& stream, const cl_I& arg);
18 extern const char * const cl_format_tens [10];
20 // gibt die ganze Zahl arg im Klartext auf englisch auf den Stream aus.
21 extern void format_cardinal (std::ostream& stream, const cl_I& arg);
23 // gibt eine ganze Zahl arg als Abzählnummer im Klartext auf englisch
24 // auf den stream aus.
25 extern void format_ordinal (std::ostream& stream, const cl_I& arg);
27 // gibt count (>=0) Zeichen ch auf stream aus.
28 inline void format_padding (std::ostream& stream, sintL count, char ch)
30 for (; count >= 0; count--)
31 fprintchar(stream,ch);
34 // gibt auf den Stream stream aus:
35 // den String str, eventuell aufgefüllt mit Padding characters padchar.
36 // Und zwar so, daß die Breite mindestens mincol ist. Um das zu erreichen,
37 // werden mindestens minpad Zeichen eingefügt, eventuelle weitere dann in
38 // Blöcken à colinc Zeichen. Falls padleftflag, werden sie links eingefügt,
39 // sonst rechts vom String.
40 extern void format_padded_string (std::ostream& stream, sintL mincol, sintL colinc, sintL minpad, char padchar, bool padleftflag, const char * str);
42 // gibt den Integer arg auf den Stream aus:
43 // in Zahlenbasis base, mit Vorzeichen (+ nur falls >0 und positive-sign-flag),
44 // bei commaflag alle drei Stellen unterbrochen durch ein Zeichen commachar.
45 // Das Ganze links aufgefüllt mit padchar's, so daß die Gesamtbreite mindestens
47 extern void format_integer (std::ostream& stream, const cl_I& arg, unsigned int base, sintL mincol, char padchar, char commachar, uintL commainterval, bool commaflag, bool positive_sign_flag);
49 // format_scale_exponent(arg) liefert zur Floating-Point-Zahl arg
50 // drei Werte: mantissa und n, mit
51 // ganzem n und mantissa floating-point, 0.1 <= mantissa < 1,
52 // arg = mantissa * 10^n * sign (also 10^(n-1) <= abs(arg) < 10^n ).
53 // (Bei arg=0.0: 0.0 und n=0.)
54 extern const decoded_float format_scale_exponent (const cl_F& arg);
56 // format_float_to_string(arg,width,d,k,dmin)
57 // ergibt einen String zum Floating-point arg:
58 // er hat den Wert von abs(arg)*expt(10,k), dabei mind. d Nachkommastellen
59 // und höchstens die Länge width (width<=0 -> keine Einschränkung).
60 // Trotzdem wird nicht auf weniger als dmin Stellen gerundet.
61 struct digits_with_dot {
62 char * string; // Mit malloc_hook() alloziert, mit free_hook() freizugeben.
63 uintL length; // strlen(string)
64 bool dot_comes_first; // string[0] == '.' ?
65 bool dot_comes_last; // string[strlen(string)-1] == '.' ?
66 uintL dot_position; // string[dot_position] is '.'
68 digits_with_dot (char* s, uintL l, bool df, bool dl, uintL dp)
69 : string(s), length(l), dot_comes_first(df), dot_comes_last(dl), dot_position(dp) {}
71 extern const digits_with_dot format_float_to_string (const cl_F& arg, const sintL width, const sintL d, const sintL k, const sintL dmin);
75 #endif /* _CL_FORMAT_H */