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-2005 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 |
61 |
Returns: 0 if data returned, negative on error |
Returns: 0 if data returned, negative on error |
62 |
*/ |
*/ |
63 |
|
|
64 |
EXPORT int |
PCRE_EXP_DEFN int |
65 |
pcre_fullinfo(const pcre *argument_re, const pcre_extra *extra_data, int what, |
pcre_fullinfo(const pcre *argument_re, const pcre_extra *extra_data, int what, |
66 |
void *where) |
void *where) |
67 |
{ |
{ |
140 |
*((const uschar **)where) = (const uschar *)(_pcre_default_tables); |
*((const uschar **)where) = (const uschar *)(_pcre_default_tables); |
141 |
break; |
break; |
142 |
|
|
143 |
|
case PCRE_INFO_OKPARTIAL: |
144 |
|
*((int *)where) = (re->options & PCRE_NOPARTIAL) == 0; |
145 |
|
break; |
146 |
|
|
147 |
|
case PCRE_INFO_JCHANGED: |
148 |
|
*((int *)where) = (re->options & PCRE_JCHANGED) != 0; |
149 |
|
break; |
150 |
|
|
151 |
default: return PCRE_ERROR_BADOPTION; |
default: return PCRE_ERROR_BADOPTION; |
152 |
} |
} |
153 |
|
|