]> pd.if.org Git - pdclib.old/blob - functions/wchar/mbrtowc.c
PDCLIB-2 c16rtomb never cleared _Surrogate
[pdclib.old] / functions / wchar / mbrtowc.c
1 /* mbrtowc(
2     wchar_t *restrict pwc, 
3     const char *restrict s, 
4     size_t n, 
5     mbstate_t *restrict ps);
6
7    This file is part of the Public Domain C Library (PDCLib).
8    Permission is granted to use, modify, and / or redistribute at will.
9 */
10
11 #include <wchar.h>
12 #ifndef REGTEST
13 #include <errno.h>
14 #include <stdint.h>
15 #include <assert.h>
16 #include <_PDCLIB_encoding.h>
17 #include <_PDCLIB_locale.h>
18
19 size_t mbrtowc_l(
20     wchar_t    *restrict    pwc, 
21     const char *restrict    s, 
22     size_t                  n, 
23     mbstate_t  *restrict    ps,
24     locale_t    restrict    l
25 )
26 {
27     size_t res;
28
29     if(s == NULL) {
30         s = "";
31         n = 1;
32     }
33
34     if(ps->_PendState == _PendPrefix) {
35         res = _PDCLIB_mbrtocwc_l(pwc, &ps->_PendChar, 1, ps, l);
36         switch(res) {
37             case 0:
38                 // Converted the NUL character
39                 ps->_PendState = _PendClear;
40                 return 0;
41
42             case 1:
43                 // Successful conversion
44                 ps->_PendChar = *s;
45                 return 1;
46
47             case (size_t) -1:
48                 // Illegal sequence. mbrtocwc has already set errno.
49                 return (size_t) -1;
50
51             case (size_t) -3:
52                 assert(!"Codec had buffered two characters");
53                 _PDCLIB_UNREACHABLE;
54                 return 0;
55
56             case (size_t) -2:
57                 // Incomplete character, continue
58                 break;
59         }
60     }
61
62     // _PendClear state
63     res = _PDCLIB_mbrtocwc_l(pwc, s, n, ps, l);
64     switch(res) {
65         case (size_t) -3:
66             // Converted entirely from internal state
67             ps->_PendChar  = *s;
68             ps->_PendState = _PendPrefix;
69             return 1;
70         default:
71             return res;
72     }
73 }
74
75 size_t mbrtowc(
76     wchar_t *restrict pwc, 
77     const char *restrict s, 
78     size_t n, 
79     mbstate_t *restrict ps
80 )
81 {
82     static mbstate_t st;
83     return mbrtowc_l(pwc, s, n, ps ? ps : &st, _PDCLIB_threadlocale());
84 }
85
86 #endif
87
88 #ifdef TEST
89 #include <_PDCLIB_test.h>
90
91 int main( void )
92 {
93     TESTCASE( NO_TESTDRIVER );
94     return TEST_RESULTS;
95 }
96 #endif