6 |
and semantics are as close as possible to those of the Perl 5 language. |
and semantics are as close as possible to those of the Perl 5 language. |
7 |
|
|
8 |
Written by Philip Hazel |
Written by Philip Hazel |
9 |
Copyright (c) 1997-2006 University of Cambridge |
Copyright (c) 1997-2007 University of Cambridge |
10 |
|
|
11 |
----------------------------------------------------------------------------- |
----------------------------------------------------------------------------- |
12 |
Redistribution and use in source and binary forms, with or without |
Redistribution and use in source and binary forms, with or without |
66 |
int |
int |
67 |
_pcre_valid_utf8(const uschar *string, int length) |
_pcre_valid_utf8(const uschar *string, int length) |
68 |
{ |
{ |
69 |
|
#ifdef SUPPORT_UTF8 |
70 |
register const uschar *p; |
register const uschar *p; |
71 |
|
|
72 |
if (length < 0) |
if (length < 0) |
124 |
if ((*(++p) & 0xc0) != 0x80) return p - string; |
if ((*(++p) & 0xc0) != 0x80) return p - string; |
125 |
} |
} |
126 |
} |
} |
127 |
|
#endif |
128 |
|
|
129 |
return -1; |
return -1; |
130 |
} |
} |