]> pd.if.org Git - pdclib.old/blob - opt/basecodecs/_PDCLIB_ascii.c
Enable per-thread locale support to be compiled out
[pdclib.old] / opt / basecodecs / _PDCLIB_ascii.c
1 /* ASCII codec
2
3    This file is part of the Public Domain C Library (PDCLib).
4    Permission is granted to use, modify, and / or redistribute at will.
5 */
6
7 #include <stdbool.h>
8 #ifndef REGTEST
9 #include <uchar.h>
10 #include <_PDCLIB_encoding.h>
11
12 static bool ascii_mbsinit( const mbstate_t *ps )
13 { return 1; }
14
15 static bool asciitoc32(
16     char32_t       *restrict *restrict   p_outbuf,
17     size_t                   *restrict   p_outsz,
18     const char     *restrict *restrict   p_inbuf,
19     size_t                   *restrict   p_insz,
20     mbstate_t                *restrict   p_ps
21 )
22 {
23     while(*p_outsz && *p_insz) {
24         unsigned char c = **p_inbuf;
25         if(c > 127)
26             return false;
27         
28         if(p_outbuf) {
29             **p_outbuf = c;
30             (*p_outbuf)++; 
31         }
32
33         (*p_inbuf)++;
34         (*p_insz)--; 
35         (*p_outsz)--;
36     }
37     return true;
38 }
39
40 static bool c32toascii(
41     char           *restrict *restrict  p_outbuf,
42     size_t                   *restrict  p_outsz,
43     const char32_t *restrict *restrict  p_inbuf,
44     size_t                   *restrict  p_insz,
45     mbstate_t                *restrict  p_ps
46 )
47 {
48     while(*p_outsz && *p_insz) {
49         char32_t c = **p_inbuf;
50         if(c > 127)
51             return false;
52
53         if(p_outbuf) {
54             **p_outbuf = c;
55             (*p_outbuf)++; 
56         }
57
58         (*p_inbuf)++;
59         (*p_insz)--; 
60         (*p_outsz)--;        
61     }
62     return true;
63 }
64
65 const struct _PDCLIB_charcodec _PDCLIB_ascii_codec = {
66     .__mbsinit   = ascii_mbsinit,
67     .__mbstoc32s = asciitoc32,
68     .__c32stombs = c32toascii,
69     .__mb_max    = 1,
70 };
71
72 #endif
73
74 #ifdef TEST
75 #include <_PDCLIB_test.h>
76
77 int main( void )
78 {
79 #ifndef REGTEST
80     // Valid conversion & back
81
82     char32_t c32out[5];
83
84     char32_t *c32ptr = &c32out[0];
85     size_t    c32rem = 5;
86     char     *chrptr = (char*) &abcde[0];
87     size_t    chrrem = 5;
88     mbstate_t mbs = { 0 };
89
90     TESTCASE(asciitoc32(&c32ptr, &c32rem, &chrptr, &chrrem, &mbs) == true);
91     TESTCASE(c32rem == 0);
92     TESTCASE(chrrem == 0);
93     TESTCASE(c32ptr == &c32out[5]);
94     TESTCASE(chrptr == &abcde[5]);
95     TESTCASE(c32out[0] == 'a' && c32out[1] == 'b' && c32out[2] == 'c' && \
96              c32out[3] == 'd' && c32out[4] == 'e');
97
98     char chrout[5];
99     c32ptr = &c32out[0];
100     c32rem = 5;
101     chrptr = &chrout[0];
102     chrrem = 5;
103
104
105     TESTCASE(c32toascii(&chrptr, &chrrem, &c32ptr, &c32rem, &mbs) == true);
106     TESTCASE(c32rem == 0);
107     TESTCASE(chrrem == 0);
108     TESTCASE(c32ptr == &c32out[5]);
109     TESTCASE(chrptr == &chrout[5]);
110     TESTCASE(memcmp(chrout, abcde, 5) == 0);
111
112     // Invalid conversions
113     char badascii = '\xC0';
114     c32ptr = &c32out[0];
115     c32rem = 5;
116     chrptr = &badascii;
117     chrrem = 1;
118     TESTCASE(asciitoc32(&c32ptr, &c32rem, &chrptr, &chrrem, &mbs) == false);
119     TESTCASE(c32ptr == &c32out[0]);
120     TESTCASE(c32rem == 5);
121     TESTCASE(chrptr == &badascii);
122     TESTCASE(chrrem == 1);
123
124     char32_t baduni = 0xC0;
125     c32ptr = &baduni;
126     c32rem = 1;
127     chrptr = &chrout[0];
128     chrrem = 5;
129     TESTCASE(c32toascii(&chrptr, &chrrem, &c32ptr, &c32rem, &mbs) == false);
130     TESTCASE(c32ptr == &baduni);
131     TESTCASE(c32rem == 1);
132     TESTCASE(chrptr == &chrout[0]);
133     TESTCASE(chrrem == 5);
134 #endif
135     return TEST_RESULTS;
136 }
137
138 #endif
139