1 /* __gmp_doprnt_integer -- integer style formatted output.
2
3 THE FUNCTIONS IN THIS FILE ARE FOR INTERNAL USE ONLY. THEY'RE ALMOST
4 CERTAIN TO BE SUBJECT TO INCOMPATIBLE CHANGES OR DISAPPEAR COMPLETELY IN
5 FUTURE GNU MP RELEASES.
6
7 Copyright 2001 Free Software Foundation, Inc.
8
9 This file is part of the GNU MP Library.
10
11 The GNU MP Library is free software; you can redistribute it and/or modify
12 it under the terms of either:
13
14 * the GNU Lesser General Public License as published by the Free
15 Software Foundation; either version 3 of the License, or (at your
16 option) any later version.
17
18 or
19
20 * the GNU General Public License as published by the Free Software
21 Foundation; either version 2 of the License, or (at your option) any
22 later version.
23
24 or both in parallel, as here.
25
26 The GNU MP Library is distributed in the hope that it will be useful, but
27 WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
28 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
29 for more details.
30
31 You should have received copies of the GNU General Public License and the
32 GNU Lesser General Public License along with the GNU MP Library. If not,
33 see https://www.gnu.org/licenses/. */
34
35 #include <stdarg.h> /* for va_list and hence doprnt_funs_t */
36 #include <string.h>
37 #include <stdio.h>
38 #include <stdlib.h>
39
40 #include "gmp-impl.h"
41
42
43 int
__gmp_doprnt_integer(const struct doprnt_funs_t * funs,void * data,const struct doprnt_params_t * p,const char * s)44 __gmp_doprnt_integer (const struct doprnt_funs_t *funs,
45 void *data,
46 const struct doprnt_params_t *p,
47 const char *s)
48 {
49 int retval = 0;
50 int slen, justlen, showbaselen, sign, signlen, slashlen, zeros;
51 int justify, den_showbaselen;
52 const char *slash, *showbase;
53
54 /* '+' or ' ' if wanted, and don't already have '-' */
55 sign = p->sign;
56 if (s[0] == '-')
57 {
58 sign = s[0];
59 s++;
60 }
61 signlen = (sign != '\0');
62
63 /* if the precision was explicitly 0, print nothing for a 0 value */
64 if (*s == '0' && p->prec == 0)
65 s++;
66
67 slen = strlen (s);
68 slash = strchr (s, '/');
69
70 showbase = NULL;
71 showbaselen = 0;
72
73 if (p->showbase != DOPRNT_SHOWBASE_NO)
74 {
75 switch (p->base) {
76 case 16: showbase = "0x"; showbaselen = 2; break;
77 case -16: showbase = "0X"; showbaselen = 2; break;
78 case 8: showbase = "0"; showbaselen = 1; break;
79 }
80 }
81
82 den_showbaselen = showbaselen;
83 if (slash == NULL
84 || (p->showbase == DOPRNT_SHOWBASE_NONZERO && slash[1] == '0'))
85 den_showbaselen = 0;
86
87 if (p->showbase == DOPRNT_SHOWBASE_NONZERO && s[0] == '0')
88 showbaselen = 0;
89
90 /* the influence of p->prec on mpq is currently undefined */
91 zeros = MAX (0, p->prec - slen);
92
93 /* space left over after actual output length */
94 justlen = p->width
95 - (strlen(s) + signlen + showbaselen + den_showbaselen + zeros);
96
97 justify = p->justify;
98 if (justlen <= 0) /* no justifying if exceed width */
99 justify = DOPRNT_JUSTIFY_NONE;
100
101 if (justify == DOPRNT_JUSTIFY_RIGHT) /* pad right */
102 DOPRNT_REPS (p->fill, justlen);
103
104 DOPRNT_REPS_MAYBE (sign, signlen); /* sign */
105
106 DOPRNT_MEMORY_MAYBE (showbase, showbaselen); /* base */
107
108 DOPRNT_REPS_MAYBE ('0', zeros); /* zeros */
109
110 if (justify == DOPRNT_JUSTIFY_INTERNAL) /* pad internal */
111 DOPRNT_REPS (p->fill, justlen);
112
113 /* if there's a showbase on the denominator, then print the numerator
114 separately so it can be inserted */
115 if (den_showbaselen != 0)
116 {
117 ASSERT (slash != NULL);
118 slashlen = slash+1 - s;
119 DOPRNT_MEMORY (s, slashlen); /* numerator and slash */
120 slen -= slashlen;
121 s += slashlen;
122 DOPRNT_MEMORY (showbase, den_showbaselen);
123 }
124
125 DOPRNT_MEMORY (s, slen); /* number, or denominator */
126
127 if (justify == DOPRNT_JUSTIFY_LEFT) /* pad left */
128 DOPRNT_REPS (p->fill, justlen);
129
130 done:
131 return retval;
132
133 error:
134 retval = -1;
135 goto done;
136 }
137