nsz Git - musl/blob - src/locale/strfmon.c

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