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-2007 University of Cambridge |
Copyright (c) 1997-2008 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 |
43 |
deprecated, as it has been superseded by pcre_fullinfo(). */ |
deprecated, as it has been superseded by pcre_fullinfo(). */ |
44 |
|
|
45 |
|
|
46 |
|
#ifdef HAVE_CONFIG_H |
47 |
|
#include "config.h" |
48 |
|
#endif |
49 |
|
|
50 |
#include "pcre_internal.h" |
#include "pcre_internal.h" |
51 |
|
|
52 |
|
|
85 |
} |
} |
86 |
if (optptr != NULL) *optptr = (int)(re->options & PUBLIC_OPTIONS); |
if (optptr != NULL) *optptr = (int)(re->options & PUBLIC_OPTIONS); |
87 |
if (first_byte != NULL) |
if (first_byte != NULL) |
88 |
*first_byte = ((re->options & PCRE_FIRSTSET) != 0)? re->first_byte : |
*first_byte = ((re->flags & PCRE_FIRSTSET) != 0)? re->first_byte : |
89 |
((re->options & PCRE_STARTLINE) != 0)? -1 : -2; |
((re->flags & PCRE_STARTLINE) != 0)? -1 : -2; |
90 |
return re->top_bracket; |
return re->top_bracket; |
91 |
} |
} |
92 |
|
|