seed7/src/str_rtl.c

4527     const strElemType *utf8ptr;  local
4539       utf8ptr = &utf8->mem[0];
4542         if (*utf8ptr <= 0x7F) {
4543           result->mem[pos] = *utf8ptr++;
4544         } else if (utf8ptr[0] >= 0xC0 && utf8ptr[0] <= 0xDF && utf8Size >= 2 &&
4545                    utf8ptr[1] >= 0x80 && utf8ptr[1] <= 0xBF) {
4548           result->mem[pos] = (utf8ptr[0] & 0x1F) << 6 |
4549                              (utf8ptr[1] & 0x3F);
4550           utf8ptr += 2;
4552         } else if (utf8ptr[0] >= 0xE0 && utf8ptr[0] <= 0xEF && utf8Size >= 3 &&
4553                    utf8ptr[1] >= 0x80 && utf8ptr[1] <= 0xBF &&
4554                    utf8ptr[2] >= 0x80 && utf8ptr[2] <= 0xBF) {
4557           result->mem[pos] = (utf8ptr[0] & 0x0F) << 12 |
4558                              (utf8ptr[1] & 0x3F) <<  6 |
4559                              (utf8ptr[2] & 0x3F);
4560           utf8ptr += 3;
4562         } else if (utf8ptr[0] >= 0xF0 && utf8ptr[0] <= 0xF7 && utf8Size >= 4 &&
4563                    utf8ptr[1] >= 0x80 && utf8ptr[1] <= 0xBF &&
4564                    utf8ptr[2] >= 0x80 && utf8ptr[2] <= 0xBF &&
4565                    utf8ptr[3] >= 0x80 && utf8ptr[3] <= 0xBF) {
4568           result->mem[pos] = (utf8ptr[0] & 0x07) << 18 |
4569                              (utf8ptr[1] & 0x3F) << 12 |
4570                              (utf8ptr[2] & 0x3F) <<  6 |
4571                              (utf8ptr[3] & 0x3F);
4572           utf8ptr += 4;
4574         } else if (utf8ptr[0] >= 0xF8 && utf8ptr[0] <= 0xFB && utf8Size >= 5 &&
4575                    utf8ptr[1] >= 0x80 && utf8ptr[1] <= 0xBF &&
4576                    utf8ptr[2] >= 0x80 && utf8ptr[2] <= 0xBF &&
4577                    utf8ptr[3] >= 0x80 && utf8ptr[3] <= 0xBF &&
4578                    utf8ptr[4] >= 0x80 && utf8ptr[4] <= 0xBF) {
4581           result->mem[pos] = (utf8ptr[0] & 0x03) << 24 |
4582                              (utf8ptr[1] & 0x3F) << 18 |
4583                              (utf8ptr[2] & 0x3F) << 12 |
4584                              (utf8ptr[3] & 0x3F) <<  6 |
4585                              (utf8ptr[4] & 0x3F);
4586           utf8ptr += 5;
4588         } else if (utf8ptr[0] >= 0xFC && utf8ptr[0] <= 0xFF && utf8Size >= 6 &&
4589                    utf8ptr[1] >= 0x80 && utf8ptr[1] <= 0xBF &&
4590                    utf8ptr[2] >= 0x80 && utf8ptr[2] <= 0xBF &&
4591                    utf8ptr[3] >= 0x80 && utf8ptr[3] <= 0xBF &&
4592                    utf8ptr[4] >= 0x80 && utf8ptr[4] <= 0xBF &&
4593                    utf8ptr[5] >= 0x80 && utf8ptr[5] <= 0xBF) {
4596           result->mem[pos] = (utf8ptr[0] & 0x03) << 30 |
4597                              (utf8ptr[1] & 0x3F) << 24 |
4598                              (utf8ptr[2] & 0x3F) << 18 |
4599                              (utf8ptr[3] & 0x3F) << 12 |
4600                              (utf8ptr[4] & 0x3F) <<  6 |
4601                              (utf8ptr[5] & 0x3F);
4602           utf8ptr += 6;
4610                           (memSizeType) (utf8ptr - &utf8->mem[0]),
4611                           utf8ptr[0]););