/*

  * LIBOIL - Library of Optimized Inner Loops

  * Copyright (c) 2004 David A. Schleef <ds@schleef.org>

  * All rights reserved.

  *

  * Redistribution and use in source and binary forms, with or without

  * modification, are permitted provided that the following conditions

  * are met:

  * 1. Redistributions of source code must retain the above copyright

  *    notice, this list of conditions and the following disclaimer.

  * 2. Redistributions in binary form must reproduce the above copyright

  *    notice, this list of conditions and the following disclaimer in the

  *    documentation and/or other materials provided with the distribution.

  * 

  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR

  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,

  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR

  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,

  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING

  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

  * POSSIBILITY OF SUCH DAMAGE.

  */

 #ifdef HAVE_CONFIG_H

 #include "config.h"

 #endif

 #include <liboil/liboil.h>

 #include <liboil/liboiltest.h>

 #include <liboil/liboilrandom.h>

 #include "liboil/utf8/utf8.h"

 /*

  * Little explanation:

  *  0x00-0x7f  ASCII, one byte character

  *  0x80-0xbf  continuation byte, not a valid start byte

  *  0xc0-0xdf  2-byte character

  *  0xe0-0xef  3-byte character

  *  0xf0-0xf7  4-byte character

  *  0xf8-0xff  reserved (illegal at the present time)

  */

 static void

 utf8_validate_test (OilTest *test)

 {

   int i;

   int n = test->n;

   uint8_t *ptr = oil_test_get_source_data (test, OIL_ARG_SRC1);

   int x;

   int extra_chars = 0;

   for (i=0;i<n;i++){

     if (i >= n-16) {

       /* if it's close to the end, we'll randomly drop in a bad

        * byte from either the 0x80-0xbf or 0xf8-0xff segments */

       x = oil_rand_u8();

       if (x < 16) {

         x = oil_rand_u8();

         if (extra_chars>0) {

           /* this might not actually be a bad char */

           ptr[i] = x;

           extra_chars--;

         } else {

           if (x & 0x80) {

             ptr[i] = 0x80 | (x&0x3f);

           } else {

             ptr[i] = 0xf8 | (x&0x07);

           }

         }

         continue;

       }

     }

     if (extra_chars > 0) {

       ptr[i] = 0x80 | (oil_rand_u8() & 0x3f);

       extra_chars--;

     } else {

       /* otherwise, we'll do a low probability of a multibyte char */

       x = oil_rand_u8() & 0xf;

       if (x == 0) {

         ptr[i] = 0xc0 | (oil_rand_u8() & 0x1f);

         extra_chars = 1;

       } else if (x == 1) {

         ptr[i] = 0xe0 | (oil_rand_u8() & 0x0f);

         extra_chars = 2;

       } else if (x == 2) {

         ptr[i] = 0xf0 | (oil_rand_u8() & 0x07);

         extra_chars = 3;

       } else {

         ptr[i] = oil_rand_u8() & 0x7f;

       }

     }

   }

 }

 /**

  * oil_utf8_validate:

  * @d_1:

  * @s:

  * @n:

  *

  * Checks @s for valid UTF-8 characters.  If the entire @s array

  * represents valid UTF-8 characters, @n is written to @d_1.

  * Otherwise, the index in the array of the beginning of the first

  * invalid UTF-8 character is written to @d_1.

  */

 OIL_DEFINE_CLASS_FULL (utf8_validate, "int32_t *d_1, uint8_t *s, int n",

     utf8_validate_test);

 static void

 utf8_validate_ref (int32_t *d_1, uint8_t *s, int n)

 {

   int i;

   int extra_bytes;

   int mask;

   for(i=0;i<n;i++){

     extra_bytes = 0;

     if (s[i] < 128) continue;

     if ((s[i] & 0xe0) == 0xc0) {

       extra_bytes = 1;

       mask = 0x7f;

     } else if ((s[i] & 0xf0) == 0xe0) {

       extra_bytes = 2;

       mask = 0x1f;

     } else if ((s[i] & 0xf8) == 0xf0) {

       extra_bytes = 3;

       mask = 0x0f;

     } else {

       goto error;

     }

     if (i + extra_bytes >= n) goto error;

     while(extra_bytes--) {

       i++;

       if ((s[i] & 0xc0) != 0x80) goto error;

     }

   }

 error:

   d_1[0] = i;

 }

 OIL_DEFINE_IMPL_REF (utf8_validate_ref, utf8_validate);