https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| a0ed51b3 LW |
1 | /* utf8.h |
| 2 | * | |
| 4eb8286e | 3 | * Copyright (c) 1998-1999, Larry Wall |
| a0ed51b3 LW |
4 | * |
| 5 | * You may distribute under the terms of either the GNU General Public | |
| 6 | * License or the Artistic License, as specified in the README file. | |
| 7 | * | |
| 8 | */ | |
| 9 | ||
| 10 | #ifdef DOINIT | |
| 6f06b55f | 11 | EXTCONST unsigned char PL_utf8skip[] = { |
| a0ed51b3 LW |
12 | 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */ |
| 13 | 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */ | |
| 14 | 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */ | |
| 15 | 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */ | |
| 16 | 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* bogus */ | |
| 17 | 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* bogus */ | |
| 18 | 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* scripts */ | |
| 19 | 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,6,6,7,8, /* cjk etc. */ | |
| 20 | }; | |
| 21 | #else | |
| 6f06b55f | 22 | EXTCONST unsigned char PL_utf8skip[]; |
| a0ed51b3 LW |
23 | #endif |
| 24 | ||
| e24b16f9 | 25 | #define IN_UTF8 (PL_curcop->op_private & HINT_UTF8) |
| a0ed51b3 | 26 | |
| 6f06b55f | 27 | #define UTF8SKIP(s) PL_utf8skip[*(U8*)s] |