1 | #include <stdio.h>
|
---|
2 | #include <ctype.h>
|
---|
3 | #include <stdarg.h>
|
---|
4 | #include <monetary.h>
|
---|
5 | #include <errno.h>
|
---|
6 | #include "locale_impl.h"
|
---|
7 |
|
---|
8 | static ssize_t vstrfmon_l(char *s, size_t n, locale_t loc, const char *fmt, va_list ap)
|
---|
9 | {
|
---|
10 | size_t l;
|
---|
11 | double x;
|
---|
12 | int fill, nogrp, negpar, nosym, left, intl;
|
---|
13 | int lp, rp, w, fw;
|
---|
14 | char *s0=s;
|
---|
15 | for (; n && *fmt; ) {
|
---|
16 | if (*fmt != '%') {
|
---|
17 | literal:
|
---|
18 | *s++ = *fmt++;
|
---|
19 | n--;
|
---|
20 | continue;
|
---|
21 | }
|
---|
22 | fmt++;
|
---|
23 | if (*fmt == '%') goto literal;
|
---|
24 |
|
---|
25 | fill = ' ';
|
---|
26 | nogrp = 0;
|
---|
27 | negpar = 0;
|
---|
28 | nosym = 0;
|
---|
29 | left = 0;
|
---|
30 | for (; ; fmt++) {
|
---|
31 | switch (*fmt) {
|
---|
32 | case '=':
|
---|
33 | fill = *++fmt;
|
---|
34 | continue;
|
---|
35 | case '^':
|
---|
36 | nogrp = 1;
|
---|
37 | continue;
|
---|
38 | case '(':
|
---|
39 | negpar = 1;
|
---|
40 | case '+':
|
---|
41 | continue;
|
---|
42 | case '!':
|
---|
43 | nosym = 1;
|
---|
44 | continue;
|
---|
45 | case '-':
|
---|
46 | left = 1;
|
---|
47 | continue;
|
---|
48 | }
|
---|
49 | break;
|
---|
50 | }
|
---|
51 |
|
---|
52 | for (fw=0; isdigit(*fmt); fmt++)
|
---|
53 | fw = 10*fw + (*fmt-'0');
|
---|
54 | lp = 0;
|
---|
55 | rp = 2;
|
---|
56 | if (*fmt=='#') for (lp=0, fmt++; isdigit(*fmt); fmt++)
|
---|
57 | lp = 10*lp + (*fmt-'0');
|
---|
58 | if (*fmt=='.') for (rp=0, fmt++; isdigit(*fmt); fmt++)
|
---|
59 | rp = 10*rp + (*fmt-'0');
|
---|
60 |
|
---|
61 | intl = *fmt++ == 'i';
|
---|
62 |
|
---|
63 | w = lp + 1 + rp;
|
---|
64 | if (!left && fw>w) w = fw;
|
---|
65 |
|
---|
66 | x = va_arg(ap, double);
|
---|
67 | l = snprintf(s, n, "%*.*f", w, rp, x);
|
---|
68 | if (l >= n) {
|
---|
69 | errno = E2BIG;
|
---|
70 | return -1;
|
---|
71 | }
|
---|
72 | s += l;
|
---|
73 | n -= l;
|
---|
74 | }
|
---|
75 | return s-s0;
|
---|
76 | }
|
---|
77 |
|
---|
78 | ssize_t strfmon_l(char *restrict s, size_t n, locale_t loc, const char *restrict fmt, ...)
|
---|
79 | {
|
---|
80 | va_list ap;
|
---|
81 | ssize_t ret;
|
---|
82 |
|
---|
83 | va_start(ap, fmt);
|
---|
84 | ret = vstrfmon_l(s, n, loc, fmt, ap);
|
---|
85 | va_end(ap);
|
---|
86 |
|
---|
87 | return ret;
|
---|
88 | }
|
---|
89 |
|
---|
90 |
|
---|
91 | ssize_t strfmon(char *restrict s, size_t n, const char *restrict fmt, ...)
|
---|
92 | {
|
---|
93 | va_list ap;
|
---|
94 | ssize_t ret;
|
---|
95 |
|
---|
96 | va_start(ap, fmt);
|
---|
97 | ret = vstrfmon_l(s, n, CURRENT_LOCALE, fmt, ap);
|
---|
98 | va_end(ap);
|
---|
99 |
|
---|
100 | return ret;
|
---|
101 | }
|
---|