add __wcsftime_l symbol
[oweals/musl.git] / src / time / wcsftime.c
1 #include <wchar.h>
2 #include <time.h>
3 #include <string.h>
4 #include <locale.h>
5
6 size_t __strftime_l(char *restrict, size_t, const char *restrict, const struct tm *restrict, locale_t);
7
8 size_t __wcsftime_l(wchar_t *restrict wcs, size_t n, const wchar_t *restrict f, const struct tm *restrict tm, locale_t loc)
9 {
10         size_t k, n0=n;
11         char out[100], in[4];
12         while (*f) {
13                 if (!n) return 0;
14                 if (*f != '%') {
15                         *wcs++ = *f++;
16                         n--;
17                         continue;
18                 }
19                 in[2] = in[3] = 0;
20                 in[0] = *f++;
21                 if (strchr("EO", (in[1]=*f++)))
22                         in[2] = *f++;
23                 k = __strftime_l(out, sizeof out, in, tm, loc);
24                 if (!k) return 0;
25                 k = mbsrtowcs(wcs, (const char *[]){out}, n, 0);
26                 if (k==(size_t)-1) return 0;
27                 wcs += k;
28                 n -= k;
29         }
30         if (!n) return 0;
31         *wcs++ = 0;
32         return n0-n;
33 }
34
35 size_t wcsftime(wchar_t *restrict wcs, size_t n, const wchar_t *restrict f, const struct tm *restrict tm)
36 {
37         return __wcsftime_l(wcs, n, f, tm, LC_GLOBAL_LOCALE);
38 }