pd.if.org Git - pdclib.old/blob - 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