X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utf8.h;h=698c687c1cfc22eafc1ce599184b1fe13156c291;hb=0617aed7fc09c616342e9b0d35b7881d7c1472b1;hp=50892b0ffb097581e6db7fca55a9e84605ddaec8;hpb=e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8;p=p5sagit%2Fp5-mst-13.2.git diff --git a/utf8.h b/utf8.h index 50892b0..698c687 100644 --- a/utf8.h +++ b/utf8.h @@ -1,14 +1,16 @@ /* utf8.h * - * Copyright (c) 1998, Larry Wall + * Copyright (c) 1998-1999, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * */ +START_EXTERN_C + #ifdef DOINIT -EXTCONST unsigned char utf8skip[] = { +EXTCONST unsigned char PL_utf8skip[] = { 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 */ 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 */ 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 */ @@ -19,9 +21,11 @@ EXTCONST unsigned char utf8skip[] = { 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. */ }; #else -EXTCONST unsigned char utf8skip[]; +EXTCONST unsigned char PL_utf8skip[]; #endif +END_EXTERN_C + #define IN_UTF8 (PL_curcop->op_private & HINT_UTF8) -#define UTF8SKIP(s) utf8skip[*(U8*)s] +#define UTF8SKIP(s) PL_utf8skip[*(U8*)s]