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-2008 University of Cambridge |
Copyright (c) 1997-2009 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 |
73 |
*/ |
*/ |
74 |
|
|
75 |
BOOL |
BOOL |
76 |
_pcre_is_newline(const uschar *ptr, int type, const uschar *endptr, |
_pcre_is_newline(USPTR ptr, int type, USPTR endptr, int *lenptr, BOOL utf8) |
|
int *lenptr, BOOL utf8) |
|
77 |
{ |
{ |
78 |
int c; |
int c; |
79 |
if (utf8) { GETCHAR(c, ptr); } else c = *ptr; |
if (utf8) { GETCHAR(c, ptr); } else c = *ptr; |
122 |
*/ |
*/ |
123 |
|
|
124 |
BOOL |
BOOL |
125 |
_pcre_was_newline(const uschar *ptr, int type, const uschar *startptr, |
_pcre_was_newline(USPTR ptr, int type, USPTR startptr, int *lenptr, BOOL utf8) |
|
int *lenptr, BOOL utf8) |
|
126 |
{ |
{ |
127 |
int c; |
int c; |
128 |
ptr--; |
ptr--; |