[352] | 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 | }
|
---|