X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utf8.h;h=e71264c35c6b7c4c2225aff03f66aa824b15b954;hb=f472eb5c07ed95306a11c98250bda17aae994339;hp=31e208b6c544a02bec73eefbfbc29bbd07862ea8;hpb=4eb8286e4c6ac94fdae21a64c54a936bc836983e;p=p5sagit%2Fp5-mst-13.2.git diff --git a/utf8.h b/utf8.h index 31e208b..e71264c 100644 --- a/utf8.h +++ b/utf8.h @@ -7,6 +7,8 @@ * */ +START_EXTERN_C + #ifdef DOINIT 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 */ @@ -22,6 +24,9 @@ EXTCONST unsigned char PL_utf8skip[] = { EXTCONST unsigned char PL_utf8skip[]; #endif +END_EXTERN_C + #define IN_UTF8 (PL_curcop->op_private & HINT_UTF8) +#define IN_BYTE (PL_curcop->op_private & HINT_BYTE) #define UTF8SKIP(s) PL_utf8skip[*(U8*)s]