version 1.1, 2012/02/21 23:05:51
|
version 1.1.1.2, 2012/02/21 23:50:25
|
Line 6
|
Line 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. |
|
|
Written by Philip Hazel |
Written by Philip Hazel |
Copyright (c) 1997-2009 University of Cambridge | Copyright (c) 1997-2012 University of Cambridge |
|
|
----------------------------------------------------------------------------- |
----------------------------------------------------------------------------- |
Redistribution and use in source and binary forms, with or without |
Redistribution and use in source and binary forms, with or without |
Line 103 Returns: = 0 if the string is a valid UTF-8 s
|
Line 103 Returns: = 0 if the string is a valid UTF-8 s
|
*/ |
*/ |
|
|
int |
int |
_pcre_valid_utf8(USPTR string, int length, int *erroroffset) | PRIV(valid_utf)(PCRE_PUCHAR string, int length, int *erroroffset) |
{ |
{ |
#ifdef SUPPORT_UTF8 | #ifdef SUPPORT_UTF |
register USPTR p; | register PCRE_PUCHAR p; |
|
|
if (length < 0) |
if (length < 0) |
{ |
{ |
Line 133 for (p = string; length-- > 0; p++)
|
Line 133 for (p = string; length-- > 0; p++)
|
return PCRE_UTF8_ERR21; |
return PCRE_UTF8_ERR21; |
} |
} |
|
|
ab = _pcre_utf8_table4[c & 0x3f]; /* Number of additional bytes */ | ab = PRIV(utf8_table4)[c & 0x3f]; /* Number of additional bytes */ |
if (length < ab) |
if (length < ab) |
{ |
{ |
*erroroffset = (int)(p - string); /* Missing bytes */ |
*erroroffset = (int)(p - string); /* Missing bytes */ |
Line 288 for (p = string; length-- > 0; p++)
|
Line 288 for (p = string; length-- > 0; p++)
|
} |
} |
} |
} |
|
|
#else /* SUPPORT_UTF8 */ | #else /* SUPPORT_UTF */ |
(void)(string); /* Keep picky compilers happy */ |
(void)(string); /* Keep picky compilers happy */ |
(void)(length); |
(void)(length); |
#endif |
#endif |