1/* Formatting a monetary value according to the given locale.
2 Copyright (C) 1996-2018 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1996.
5
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
10
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Lesser General Public License for more details.
15
16 You should have received a copy of the GNU Lesser General Public
17 License along with the GNU C Library; if not, see
18 <http://www.gnu.org/licenses/>. */
19
20#include <ctype.h>
21#include <errno.h>
22#include <langinfo.h>
23#include <locale.h>
24#include <monetary.h>
25#include "../libio/libioP.h"
26#include "../libio/strfile.h"
27#include <printf.h>
28#include <stdarg.h>
29#include <stdio.h>
30#include <string.h>
31#include "../locale/localeinfo.h"
32
33
34#define out_char(Ch) \
35 do { \
36 if (dest >= s + maxsize - 1) \
37 { \
38 __set_errno (E2BIG); \
39 va_end (ap); \
40 return -1; \
41 } \
42 *dest++ = (Ch); \
43 } while (0)
44
45#define out_string(String) \
46 do { \
47 const char *_s = (String); \
48 while (*_s) \
49 out_char (*_s++); \
50 } while (0)
51
52#define out_nstring(String, N) \
53 do { \
54 int _n = (N); \
55 const char *_s = (String); \
56 while (_n-- > 0) \
57 out_char (*_s++); \
58 } while (0)
59
60#define to_digit(Ch) ((Ch) - '0')
61
62
63/* We use this code also for the extended locale handling where the
64 function gets as an additional argument the locale which has to be
65 used. To access the values we have to redefine the _NL_CURRENT
66 macro. */
67#undef _NL_CURRENT
68#define _NL_CURRENT(category, item) \
69 (current->values[_NL_ITEM_INDEX (item)].string)
70
71
72/* We have to overcome some problems with this implementation. On the
73 one hand the strfmon() function is specified in XPG4 and of course
74 it has to follow this. But on the other hand POSIX.2 specifies
75 some information in the LC_MONETARY category which should be used,
76 too. Some of the information contradicts the information which can
77 be specified in format string. */
78ssize_t
79__vstrfmon_l (char *s, size_t maxsize, locale_t loc, const char *format,
80 va_list ap)
81{
82 struct __locale_data *current = loc->__locales[LC_MONETARY];
83 _IO_strfile f;
84 struct printf_info info;
85 char *dest; /* Pointer so copy the output. */
86 const char *fmt; /* Pointer that walks through format. */
87
88 dest = s;
89 fmt = format;
90
91 /* Loop through the format-string. */
92 while (*fmt != '\0')
93 {
94 /* The floating-point value to output. */
95 union
96 {
97 double dbl;
98 long double ldbl;
99 }
100 fpnum;
101 int int_format;
102 int print_curr_symbol;
103 int left_prec;
104 int left_pad;
105 int right_prec;
106 int group;
107 char pad;
108 int is_long_double;
109 int p_sign_posn;
110 int n_sign_posn;
111 int sign_posn;
112 int other_sign_posn;
113 int left;
114 int is_negative;
115 int sep_by_space;
116 int other_sep_by_space;
117 int cs_precedes;
118 int other_cs_precedes;
119 const char *sign_string;
120 const char *other_sign_string;
121 int done;
122 const char *currency_symbol;
123 size_t currency_symbol_len;
124 long int width;
125 char *startp;
126 const void *ptr;
127 char space_char;
128
129 /* Process all character which do not introduce a format
130 specification. */
131 if (*fmt != '%')
132 {
133 out_char (*fmt++);
134 continue;
135 }
136
137 /* "%%" means a single '%' character. */
138 if (fmt[1] == '%')
139 {
140 out_char (*++fmt);
141 ++fmt;
142 continue;
143 }
144
145 /* Defaults for formatting. */
146 int_format = 0; /* Use international curr. symbol */
147 print_curr_symbol = 1; /* Print the currency symbol. */
148 left_prec = -1; /* No left precision specified. */
149 right_prec = -1; /* No right precision specified. */
150 group = 1; /* Print digits grouped. */
151 pad = ' '; /* Fill character is <SP>. */
152 is_long_double = 0; /* Double argument by default. */
153 p_sign_posn = -2; /* This indicates whether the */
154 n_sign_posn = -2; /* '(' flag is given. */
155 width = -1; /* No width specified so far. */
156 left = 0; /* Right justified by default. */
157
158 /* Parse group characters. */
159 while (1)
160 {
161 switch (*++fmt)
162 {
163 case '=': /* Set fill character. */
164 pad = *++fmt;
165 if (pad == '\0')
166 {
167 /* Premature EOS. */
168 __set_errno (EINVAL);
169 return -1;
170 }
171 continue;
172 case '^': /* Don't group digits. */
173 group = 0;
174 continue;
175 case '+': /* Use +/- for sign of number. */
176 if (n_sign_posn != -2)
177 {
178 __set_errno (EINVAL);
179 return -1;
180 }
181 p_sign_posn = *_NL_CURRENT (LC_MONETARY, P_SIGN_POSN);
182 n_sign_posn = *_NL_CURRENT (LC_MONETARY, N_SIGN_POSN);
183 continue;
184 case '(': /* Use ( ) for negative sign. */
185 if (n_sign_posn != -2)
186 {
187 __set_errno (EINVAL);
188 return -1;
189 }
190 p_sign_posn = 0;
191 n_sign_posn = 0;
192 continue;
193 case '!': /* Don't print the currency symbol. */
194 print_curr_symbol = 0;
195 continue;
196 case '-': /* Print left justified. */
197 left = 1;
198 continue;
199 default:
200 /* Will stop the loop. */;
201 }
202 break;
203 }
204
205 if (isdigit (*fmt))
206 {
207 /* Parse field width. */
208 width = to_digit (*fmt);
209
210 while (isdigit (*++fmt))
211 {
212 int val = to_digit (*fmt);
213
214 if (width > LONG_MAX / 10
215 || (width == LONG_MAX && val > LONG_MAX % 10))
216 {
217 __set_errno (E2BIG);
218 return -1;
219 }
220
221 width = width * 10 + val;
222 }
223
224 /* If we don't have enough room for the demanded width we
225 can stop now and return an error. */
226 if (width >= maxsize - (dest - s))
227 {
228 __set_errno (E2BIG);
229 return -1;
230 }
231 }
232
233 /* Recognize left precision. */
234 if (*fmt == '#')
235 {
236 if (!isdigit (*++fmt))
237 {
238 __set_errno (EINVAL);
239 return -1;
240 }
241 left_prec = to_digit (*fmt);
242
243 while (isdigit (*++fmt))
244 {
245 left_prec *= 10;
246 left_prec += to_digit (*fmt);
247 }
248 }
249
250 /* Recognize right precision. */
251 if (*fmt == '.')
252 {
253 if (!isdigit (*++fmt))
254 {
255 __set_errno (EINVAL);
256 return -1;
257 }
258 right_prec = to_digit (*fmt);
259
260 while (isdigit (*++fmt))
261 {
262 right_prec *= 10;
263 right_prec += to_digit (*fmt);
264 }
265 }
266
267 /* Handle modifier. This is an extension. */
268 if (*fmt == 'L')
269 {
270 ++fmt;
271 if (!__ldbl_is_dbl)
272 is_long_double = 1;
273 }
274
275 /* Handle format specifier. */
276 char int_symbol[4];
277 switch (*fmt++)
278 {
279 case 'i': { /* Use international currency symbol. */
280 const char *int_curr_symbol;
281
282 int_curr_symbol = _NL_CURRENT (LC_MONETARY, INT_CURR_SYMBOL);
283 strncpy(int_symbol, int_curr_symbol, 3);
284 int_symbol[3] = '\0';
285
286 currency_symbol_len = 3;
287 currency_symbol = &int_symbol[0];
288 space_char = int_curr_symbol[3];
289 int_format = 1;
290 break;
291 }
292 case 'n': /* Use national currency symbol. */
293 currency_symbol = _NL_CURRENT (LC_MONETARY, CURRENCY_SYMBOL);
294 currency_symbol_len = strlen (currency_symbol);
295 space_char = ' ';
296 int_format = 0;
297 break;
298 default: /* Any unrecognized format is an error. */
299 __set_errno (EINVAL);
300 return -1;
301 }
302
303 /* If not specified by the format string now find the values for
304 the format specification. */
305 if (p_sign_posn == -2)
306 p_sign_posn = *_NL_CURRENT (LC_MONETARY, int_format ? INT_P_SIGN_POSN : P_SIGN_POSN);
307 if (n_sign_posn == -2)
308 n_sign_posn = *_NL_CURRENT (LC_MONETARY, int_format ? INT_N_SIGN_POSN : N_SIGN_POSN);
309
310 if (right_prec == -1)
311 {
312 right_prec = *_NL_CURRENT (LC_MONETARY, int_format ? INT_FRAC_DIGITS : FRAC_DIGITS);
313
314 if (right_prec == '\377')
315 right_prec = 2;
316 }
317
318 /* If we have to print the digits grouped determine how many
319 extra characters this means. */
320 if (group && left_prec != -1)
321 left_prec += __guess_grouping (left_prec,
322 _NL_CURRENT (LC_MONETARY, MON_GROUPING));
323
324 /* Now it's time to get the value. */
325 if (is_long_double == 1)
326 {
327 fpnum.ldbl = va_arg (ap, long double);
328 is_negative = fpnum.ldbl < 0;
329 if (is_negative)
330 fpnum.ldbl = -fpnum.ldbl;
331 }
332 else
333 {
334 fpnum.dbl = va_arg (ap, double);
335 is_negative = fpnum.dbl < 0;
336 if (is_negative)
337 fpnum.dbl = -fpnum.dbl;
338 }
339
340 /* We now know the sign of the value and can determine the format. */
341 if (is_negative)
342 {
343 sign_string = _NL_CURRENT (LC_MONETARY, NEGATIVE_SIGN);
344 /* If the locale does not specify a character for the
345 negative sign we use a '-'. */
346 if (*sign_string == '\0')
347 sign_string = (const char *) "-";
348 cs_precedes = *_NL_CURRENT (LC_MONETARY, int_format ? INT_N_CS_PRECEDES : N_CS_PRECEDES);
349 sep_by_space = *_NL_CURRENT (LC_MONETARY, int_format ? INT_N_SEP_BY_SPACE : N_SEP_BY_SPACE);
350 sign_posn = n_sign_posn;
351
352 other_sign_string = _NL_CURRENT (LC_MONETARY, POSITIVE_SIGN);
353 other_cs_precedes = *_NL_CURRENT (LC_MONETARY, int_format ? INT_P_CS_PRECEDES : P_CS_PRECEDES);
354 other_sep_by_space = *_NL_CURRENT (LC_MONETARY, int_format ? INT_P_SEP_BY_SPACE : P_SEP_BY_SPACE);
355 other_sign_posn = p_sign_posn;
356 }
357 else
358 {
359 sign_string = _NL_CURRENT (LC_MONETARY, POSITIVE_SIGN);
360 cs_precedes = *_NL_CURRENT (LC_MONETARY, int_format ? INT_P_CS_PRECEDES : P_CS_PRECEDES);
361 sep_by_space = *_NL_CURRENT (LC_MONETARY, int_format ? INT_P_SEP_BY_SPACE : P_SEP_BY_SPACE);
362 sign_posn = p_sign_posn;
363
364 other_sign_string = _NL_CURRENT (LC_MONETARY, NEGATIVE_SIGN);
365 if (*other_sign_string == '\0')
366 other_sign_string = (const char *) "-";
367 other_cs_precedes = *_NL_CURRENT (LC_MONETARY, int_format ? INT_N_CS_PRECEDES : N_CS_PRECEDES);
368 other_sep_by_space = *_NL_CURRENT (LC_MONETARY, int_format ? INT_N_SEP_BY_SPACE : N_SEP_BY_SPACE);
369 other_sign_posn = n_sign_posn;
370 }
371
372 /* Set default values for unspecified information. */
373 if (cs_precedes != 0)
374 cs_precedes = 1;
375 if (other_cs_precedes != 0)
376 other_cs_precedes = 1;
377 if (sep_by_space == '\377')
378 sep_by_space = 0;
379 if (other_sep_by_space == '\377')
380 other_sep_by_space = 0;
381 if (sign_posn == '\377')
382 sign_posn = 1;
383 if (other_sign_posn == '\377')
384 other_sign_posn = 1;
385
386 /* Check for degenerate cases */
387 if (sep_by_space == 2)
388 {
389 if (sign_posn == 0 ||
390 (sign_posn == 1 && !cs_precedes) ||
391 (sign_posn == 2 && cs_precedes))
392 /* sign and symbol are not adjacent, so no separator */
393 sep_by_space = 0;
394 }
395 if (other_sep_by_space == 2)
396 {
397 if (other_sign_posn == 0 ||
398 (other_sign_posn == 1 && !other_cs_precedes) ||
399 (other_sign_posn == 2 && other_cs_precedes))
400 /* sign and symbol are not adjacent, so no separator */
401 other_sep_by_space = 0;
402 }
403
404 /* Set the left precision and padding needed for alignment */
405 if (left_prec == -1)
406 {
407 left_prec = 0;
408 left_pad = 0;
409 }
410 else
411 {
412 /* Set left_pad to number of spaces needed to align positive
413 and negative formats */
414
415 int left_bytes = 0;
416 int other_left_bytes = 0;
417
418 /* Work out number of bytes for currency string and separator
419 preceding the value */
420 if (cs_precedes)
421 {
422 left_bytes += currency_symbol_len;
423 if (sep_by_space != 0)
424 ++left_bytes;
425 }
426
427 if (other_cs_precedes)
428 {
429 other_left_bytes += currency_symbol_len;
430 if (other_sep_by_space != 0)
431 ++other_left_bytes;
432 }
433
434 /* Work out number of bytes for the sign (or left parenthesis)
435 preceding the value */
436 if (sign_posn == 0 && is_negative)
437 ++left_bytes;
438 else if (sign_posn == 1)
439 left_bytes += strlen (sign_string);
440 else if (cs_precedes && (sign_posn == 3 || sign_posn == 4))
441 left_bytes += strlen (sign_string);
442
443 if (other_sign_posn == 0 && !is_negative)
444 ++other_left_bytes;
445 else if (other_sign_posn == 1)
446 other_left_bytes += strlen (other_sign_string);
447 else if (other_cs_precedes &&
448 (other_sign_posn == 3 || other_sign_posn == 4))
449 other_left_bytes += strlen (other_sign_string);
450
451 /* Compare the number of bytes preceding the value for
452 each format, and set the padding accordingly */
453 if (other_left_bytes > left_bytes)
454 left_pad = other_left_bytes - left_bytes;
455 else
456 left_pad = 0;
457 }
458
459 /* Perhaps we'll someday make these things configurable so
460 better start using symbolic names now. */
461#define left_paren '('
462#define right_paren ')'
463
464 startp = dest; /* Remember start so we can compute length. */
465
466 while (left_pad-- > 0)
467 out_char (' ');
468
469 if (sign_posn == 0 && is_negative)
470 out_char (left_paren);
471
472 if (cs_precedes)
473 {
474 if (sign_posn != 0 && sign_posn != 2 && sign_posn != 4
475 && sign_posn != 5)
476 {
477 out_string (sign_string);
478 if (sep_by_space == 2)
479 out_char (' ');
480 }
481
482 if (print_curr_symbol)
483 out_string (currency_symbol);
484
485 if (sign_posn == 4)
486 {
487 if (print_curr_symbol && sep_by_space == 2)
488 out_char (space_char);
489 out_string (sign_string);
490 if (sep_by_space == 1)
491 /* POSIX.2 and SUS are not clear on this case, but C99
492 says a space follows the adjacent-symbol-and-sign */
493 out_char (' ');
494 }
495 else
496 if (print_curr_symbol && sep_by_space == 1)
497 out_char (space_char);
498 }
499 else
500 if (sign_posn != 0 && sign_posn != 2 && sign_posn != 3
501 && sign_posn != 4 && sign_posn != 5)
502 out_string (sign_string);
503
504 /* Print the number. */
505#ifdef _IO_MTSAFE_IO
506 f._sbf._f._lock = NULL;
507#endif
508 _IO_init_internal (&f._sbf._f, 0);
509 _IO_JUMPS (&f._sbf) = &_IO_str_jumps;
510 _IO_str_init_static_internal (&f, dest, (s + maxsize) - dest, dest);
511 /* We clear the last available byte so we can find out whether
512 the numeric representation is too long. */
513 s[maxsize - 1] = '\0';
514
515 memset (&info, '\0', sizeof (info));
516 info.prec = right_prec;
517 info.width = left_prec + (right_prec ? (right_prec + 1) : 0);
518 info.spec = 'f';
519 info.is_long_double = is_long_double;
520 info.group = group;
521 info.pad = pad;
522 info.extra = 1; /* This means use values from LC_MONETARY. */
523
524 ptr = &fpnum;
525 done = __printf_fp_l (&f._sbf._f, loc, &info, &ptr);
526 if (done < 0)
527 return -1;
528
529 if (s[maxsize - 1] != '\0')
530 {
531 __set_errno (E2BIG);
532 return -1;
533 }
534
535 dest += done;
536
537 if (!cs_precedes)
538 {
539 if (sign_posn == 3)
540 {
541 if (sep_by_space == 1)
542 out_char (' ');
543 out_string (sign_string);
544 }
545
546 if (print_curr_symbol)
547 {
548 if ((sign_posn == 3 && sep_by_space == 2)
549 || (sign_posn == 4 && sep_by_space == 1)
550 || (sign_posn == 2 && sep_by_space == 1)
551 || (sign_posn == 1 && sep_by_space == 1)
552 || (sign_posn == 0 && sep_by_space == 1))
553 out_char (space_char);
554 out_nstring (currency_symbol, currency_symbol_len);
555 }
556
557 if (sign_posn == 4)
558 {
559 if (sep_by_space == 2)
560 out_char (' ');
561 out_string (sign_string);
562 }
563 }
564
565 if (sign_posn == 2)
566 {
567 if (sep_by_space == 2)
568 out_char (' ');
569 out_string (sign_string);
570 }
571
572 if (sign_posn == 0 && is_negative)
573 out_char (right_paren);
574
575 /* Now test whether the output width is filled. */
576 if (dest - startp < width)
577 {
578 if (left)
579 /* We simply have to fill using spaces. */
580 do
581 out_char (' ');
582 while (dest - startp < width);
583 else
584 {
585 long int dist = width - (dest - startp);
586 for (char *cp = dest - 1; cp >= startp; --cp)
587 cp[dist] = cp[0];
588
589 dest += dist;
590
591 do
592 startp[--dist] = ' ';
593 while (dist > 0);
594 }
595 }
596 }
597
598 /* Terminate the string. */
599 *dest = '\0';
600
601 return dest - s;
602}
603
604ssize_t
605___strfmon_l (char *s, size_t maxsize, locale_t loc, const char *format, ...)
606{
607 va_list ap;
608
609 va_start (ap, format);
610
611 ssize_t res = __vstrfmon_l (s, maxsize, loc, format, ap);
612
613 va_end (ap);
614
615 return res;
616}
617ldbl_strong_alias (___strfmon_l, __strfmon_l)
618ldbl_weak_alias (___strfmon_l, strfmon_l)
619