pikapython/package/re/pcre_fullinfo.c
2023-07-15 14:59:56 +08:00

128 lines
3.8 KiB
C

/* This module contains the external function pcre_fullinfo(), which returns
information about a compiled pattern. */
#include "re_config.h"
#include "pcre_internal.h"
/*************************************************
* Return info about compiled pattern *
*************************************************/
/* This is a newer "info" function which has an extensible interface so
that additional items can be added compatibly.
Arguments:
argument_re points to compiled code
extra_data points extra data, or NULL
what what information is required
where where to put the information
Returns: 0 if data returned, negative on error
*/
int pcre_fullinfo(const pcre* argument_re,
const pcre_extra* extra_data,
int what,
void* where) {
real_pcre internal_re;
pcre_study_data internal_study;
const real_pcre* re = (const real_pcre*)argument_re;
const pcre_study_data* study = NULL;
if (re == NULL || where == NULL)
return PCRE_ERROR_NULL;
if (extra_data != NULL && (extra_data->flags & PCRE_EXTRA_STUDY_DATA) != 0)
study = (const pcre_study_data*)extra_data->study_data;
if (re->magic_number != MAGIC_NUMBER) {
re = _pcre_try_flipped(re, &internal_re, study, &internal_study);
if (re == NULL)
return PCRE_ERROR_BADMAGIC;
if (study != NULL)
study = &internal_study;
}
switch (what) {
case PCRE_INFO_OPTIONS:
*((unsigned long int*)where) = re->options & PUBLIC_OPTIONS;
break;
case PCRE_INFO_SIZE:
*((size_t*)where) = re->size;
break;
case PCRE_INFO_STUDYSIZE:
*((size_t*)where) = (study == NULL) ? 0 : study->size;
break;
case PCRE_INFO_CAPTURECOUNT:
*((int*)where) = re->top_bracket;
break;
case PCRE_INFO_BACKREFMAX:
*((int*)where) = re->top_backref;
break;
case PCRE_INFO_FIRSTBYTE:
*((int*)where) = ((re->flags & PCRE_FIRSTSET) != 0) ? re->first_byte
: ((re->flags & PCRE_STARTLINE) != 0) ? -1
: -2;
break;
/* Make sure we pass back the pointer to the bit vector in the
external block, not the internal copy (with flipped integer fields).
*/
case PCRE_INFO_FIRSTTABLE:
*((const uschar**)where) =
(study != NULL && (study->options & PCRE_STUDY_MAPPED) != 0)
? ((const pcre_study_data*)extra_data->study_data)
->start_bits
: NULL;
break;
case PCRE_INFO_LASTLITERAL:
*((int*)where) =
((re->flags & PCRE_REQCHSET) != 0) ? re->req_byte : -1;
break;
case PCRE_INFO_NAMEENTRYSIZE:
*((int*)where) = re->name_entry_size;
break;
case PCRE_INFO_NAMECOUNT:
*((int*)where) = re->name_count;
break;
case PCRE_INFO_NAMETABLE:
*((const uschar**)where) =
(const uschar*)re + re->name_table_offset;
break;
case PCRE_INFO_DEFAULT_TABLES:
*((const uschar**)where) = (const uschar*)(_pcre_default_tables);
break;
case PCRE_INFO_OKPARTIAL:
*((int*)where) = (re->flags & PCRE_NOPARTIAL) == 0;
break;
case PCRE_INFO_JCHANGED:
*((int*)where) = (re->flags & PCRE_JCHANGED) != 0;
break;
case PCRE_INFO_HASCRORLF:
*((int*)where) = (re->flags & PCRE_HASCRORLF) != 0;
break;
default:
return PCRE_ERROR_BADOPTION;
}
return 0;
}
/* End of pcre_fullinfo.c */