|
version 1.1.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 |