]> pd.if.org Git - pdclib.old/blob - opt/basecodecs/_PDCLIB_latin1.c
PDCLIB-1
[pdclib.old] / opt / basecodecs / _PDCLIB_latin1.c
1 /* Latin-1 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 latin1toc32(
13     char32_t       *restrict *restrict   p_outbuf,
14     size_t                   *restrict   p_outsz,
15     const char     *restrict *restrict   p_inbuf,
16     size_t                   *restrict   p_insz,
17     mbstate_t                *restrict   p_ps
18 )
19 {
20     while(*p_outsz && *p_insz) {
21         unsigned char c = **p_inbuf;
22
23         if(p_outbuf) {
24             **p_outbuf = c;
25             (*p_outbuf)++; 
26         }
27
28         (*p_inbuf)++;
29         (*p_insz)--; 
30         (*p_outsz)--;
31     }
32     return true;
33 }
34
35 static bool c32tolatin1(
36     char           *restrict *restrict  p_outbuf,
37     size_t                   *restrict  p_outsz,
38     const char32_t *restrict *restrict  p_inbuf,
39     size_t                   *restrict  p_insz,
40     mbstate_t                *restrict  p_ps
41 )
42 {
43     while(*p_outsz && *p_insz) {
44         char32_t c = **p_inbuf;
45         if(c > 255)
46             return false;
47
48         if(p_outbuf) {
49             **p_outbuf = c;
50             (*p_outbuf)++;
51         }
52
53         (*p_inbuf)++;
54         (*p_insz)--; 
55         (*p_outsz)--;        
56     }
57     return true;
58 }
59
60 struct _PDCLIB_charcodec _PDCLIB_latin1_codec = {
61     .__mbstoc32s = latin1toc32,
62     .__c32stombs = c32tolatin1,
63     .__mb_max    = 1,
64 };
65
66 #endif
67
68 #ifdef TEST
69 #include <_PDCLIB_test.h>
70
71 int main( void )
72 {
73 #ifndef REGTEST
74     // Valid conversion & back
75
76     char32_t c32out[5];
77
78     char32_t *c32ptr = &c32out[0];
79     size_t    c32rem = 5;
80     char     *chrptr = (char*) &abcde[0];
81     size_t    chrrem = 5;
82     mbstate_t mbs = { 0 };
83
84     TESTCASE(latin1toc32(&c32ptr, &c32rem, &chrptr, &chrrem, &mbs) == true);
85     TESTCASE(c32rem == 0);
86     TESTCASE(chrrem == 0);
87     TESTCASE(c32ptr == &c32out[5]);
88     TESTCASE(chrptr == &abcde[5]);
89     TESTCASE(c32out[0] == 'a' && c32out[1] == 'b' && c32out[2] == 'c' && \
90              c32out[3] == 'd' && c32out[4] == 'e');
91
92     char chrout[5];
93     c32ptr = &c32out[0];
94     c32rem = 5;
95     chrptr = &chrout[0];
96     chrrem = 5;
97
98
99     TESTCASE(c32tolatin1(&chrptr, &chrrem, &c32ptr, &c32rem, &mbs) == true);
100     TESTCASE(c32rem == 0);
101     TESTCASE(chrrem == 0);
102     TESTCASE(c32ptr == &c32out[5]);
103     TESTCASE(chrptr == &chrout[5]);
104     TESTCASE(memcmp(chrout, abcde, 5) == 0);
105
106     // Invalid conversions
107     char32_t baduni = 0xFFFE;
108     c32ptr = &baduni;
109     c32rem = 1;
110     chrptr = &chrout[0];
111     chrrem = 5;
112     TESTCASE(c32tolatin1(&chrptr, &chrrem, &c32ptr, &c32rem, &mbs) == false);
113     TESTCASE(c32ptr == &baduni);
114     TESTCASE(c32rem == 1);
115     TESTCASE(chrptr == &chrout[0]);
116     TESTCASE(chrrem == 5);
117 #endif
118     return TEST_RESULTS;
119 }
120
121 #endif
122