1N/A $Id: Unicode.xs,v 1.9 2003/12/29 02:47:16 dankogai Exp dankogai $ 1N/A v = (v <<
8) | *s++;
1N/A v = (v <<
8) | *s++;
1N/A v = (v <<
8) | *s++;
1N/A /* Update endian for next sequence */ 1N/A /* skip the next one as well */ 1N/A /* Partial character */ 1N/A s -=
size;
/* back up to 1st half */ 1N/A break;
/* And exit loop */ 1N/A ord =
0x10000 + ((
ord -
0xD800) <<
10) + (
lo -
0xDC00);
1N/A /* unlikely to happen because it's fixed-length -- dankogai */ 1N/A /* Update endian for next sequence */ 1N/A /* not supposed to happen */ 1N/A /* UTF-8 partial char happens often on PerlIO. 1N/A Since this is okay and normal, we do not warn. 1N/A But this is critical when you choose to LEAVE_SRC 1N/A in which case we die */