RetroSearch Browse

" %p"

, block);

2866

fprintf(

" (not remembered)"

);

2897 if

(!found) fprintf(

" unremembered block"

);

2898 #ifdef DEBUG_SHOW_MALLOC_ADDRESSES 2899

fprintf(

" %p"

, block);

2932 static

PCRE2_JIT_STACK*

2936 return

(PCRE2_JIT_STACK *)arg;

2968 for

(

= -1;

< 6;

++)

2970 if

((d & 0x80) == 0)

break

;

2974 if

(

== -1) { *vptr = c;

return

1; }

2975 if

(

== 0 ||

== 6)

return

2982 for

(j = 0; j <

; j++)

2984 if

(utf8bytes >= end)

return

2987 if

((c & 0xc0) != 0x80)

return

-(j+1);

2989

d |= (c & 0x3f) << s;

2996 if

(j !=

)

return

+1);

3025 char

tempbuffer[16];

3029 if

(

) fprintf(

"%c"

, c);

3037 if

(

) fprintf(

"\\x{%02x}"

, c);

3042 if

(

) fprintf(

"\\x%02x"

, c);

3047 if

(

)

= fprintf(

"\\x{%02x}"

, c);

3048 else n

= sprintf(tempbuffer,

"\\x{%02x}"

, c);

3050 return n

>= 0 ?

: 0;

3055 #ifdef SUPPORT_PCRE2_16 3063 while

(*pp != 0) pp++;

3064 return

(

int

)(pp - p);

3070 #ifdef SUPPORT_PCRE2_32 3078 while

(*pp != 0) pp++;

3079 return

(

int

)(pp - p);

3084 #ifdef SUPPORT_PCRE2_8 3099 if

(length < 0) length = *p++;

3101 while

(length-- > 0)

3106 if

(rc > 0 && rc <= length + 1)

3123 #ifdef SUPPORT_PCRE2_16 3136 if

(length < 0) length = *p++;

3137 while

(length-- > 0)

3140 if

(

&& c >= 0xD800 && c < 0xDC00 && length > 0)

3142 int

d = *p & 0xffff;

3143 if

(d >= 0xDC00 && d <= 0xDFFF)

3145

c = ((c & 0x3ff) << 10) + (d & 0x3ff) + 0x10000;

3158 #ifdef SUPPORT_PCRE2_32 3172 if

(length < 0) length = *p++;

3173 while

(length-- > 0)

3205 if

(cvalue > 0x7fffffffu)

3210 for

(j =

; j > 0; j--)

3212

*utf8bytes-- = 0x80 | (cvalue & 0x3f);

3221 #ifdef SUPPORT_PCRE2_16 3262 if

(pbuffer16_size < 2*

+ 2)

3264 if

(pbuffer16 !=

)

free

(pbuffer16);

3265

pbuffer16_size = 2*

+ 2;

3266 if

(pbuffer16_size < 4096) pbuffer16_size = 4096;

3268 if

(pbuffer16 ==

)

3270

fprintf(stderr,

"pcre2test: malloc(%" SIZ_FORM ") failed for pbuffer16\n"

3279 for

(;

> 0;

--) *pp++ = *p++;

3281 else while

(

> 0)

3286 if

(chlen <= 0)

return

-1;

3287 if

&& c > 0xffff)

return

-3;

3288 if

(c > 0x10ffff)

return

-2;

3291 if

(c < 0x10000) *pp++ = c;

else 3294

*pp++ = 0xD800 | (c >> 10);

3295

*pp++ = 0xDC00 | (c & 0x3ff);

3300

*lenptr = pp - pbuffer16;

3307 #ifdef SUPPORT_PCRE2_32 3350 if

(pbuffer32_size < 4*

+ 4)

3352 if

(pbuffer32 !=

)

free

(pbuffer32);

3353

pbuffer32_size = 4*

+ 4;

3354 if

(pbuffer32_size < 8192) pbuffer32_size = 8192;

3356 if

(pbuffer32 ==

)

3358

fprintf(stderr,

"pcre2test: malloc(%" SIZ_FORM ") failed for pbuffer32\n"

3368 for

(;

> 0;

--) *pp++ = *p++;

3371 else while

(

> 0)

3377 if

&& *p == 0xff &&

> 1)

3379

topbit = 0x80000000u;

3384 if

(chlen <= 0)

return

-1;

3385 if

(

&& c > 0x10ffff)

return

-2;

3392

*lenptr = pp - pbuffer32;

3402 #ifdef NEVERNEVERNEVER 3432 while

((*pp & 0xc0) == 0x80) pp--;

3443 if

((*pp & 0xfc00) == 0xdc00) pp--;

3471 if

(new_buffer ==

|| new_pbuffer8 ==

)

3473

fprintf(stderr,

"pcre2test: malloc(%d) failed\n"

, new_pbuffer8_size);

3532 #if defined(SUPPORT_LIBREADLINE) || defined(SUPPORT_LIBEDIT) 3537 if

(s ==

)

return

(here == start)?

: start;

3539 if

(

> 0) add_history(s);

3540 if

(

> rlen - 1)

= rlen - 1;

3541

memcpy(here, s,

);

3542

here[

] =

'\n'

;

3553 if

(fgets((

char

*)here, rlen,

) ==

)

3554 return

(here == start)?

: start;

3557

dlen = strlen((

char

*)here);

3563 if

(here > start && here[-1] ==

'\n'

)

return

start;

3574

fprintf(

"** Binary zero encountered in input\n"

);

3575

fprintf(

"** pcre2test run abandoned\n"

);

3582 size_t

start_offset = start -

;

3583 size_t

here_offset = here -

;

3585

start =

+ start_offset;

3586

here =

+ here_offset;

3614 if

(c != 0)

return

3642 int

mid = (bot + top)/2;

3643 unsigned int

mlen = strlen(

modlist

[mid].name);

3647 if

(

== mlen)

return

mid;

3648

c = (

int

)

- (

int

)mlen;

3650 if

(c > 0) bot = mid + 1;

else

top = mid;

3683 void

*field =

;

3695

fprintf(

"** '%s' is not allowed in a Perl-compatible test\n"

3714 if

(dctl !=

) field = dctl;

3719 if

(pctl !=

) field = pctl;

3726 if

(dctl !=

) field = dctl;

3736

fprintf(

"** '%s' is not valid here\n"

, m->

);

3738

fprintf(

"** /%c is not valid here\n"

, c);

3742 return

(

char

*)field +

offset

;

3782 unsigned int i

;

3788 while

(

(*p) || *p ==

','

) p++;

3789 if

(*p == 0)

break

;

3793 for

(ep = p; *ep != 0 && *ep !=

','

; ep++);

3796 while

(ep > p &&

(ep[-1])) ep--;

3811 while

(pp < ep && *pp !=

'='

) pp++;

3825

fprintf(

"** Unrecognized modifier '%.*s'\n"

, (

int

)(ep-p), p);

3827

fprintf(

"** Single-character modifiers must come first\n"

);

3831 for

(cc = *p; cc !=

','

&& cc !=

'\n'

&& cc != 0; cc = *(++p))

3838

fprintf(

"** Unrecognized modifier '%c' in '%.*s'\n"

3839

*p, (

int

)(ep-mp), mp);

3854

fprintf(

"** Internal error: single-character equivalent " 3855 "modifier '%s' not found\n"

c1modlist

[

].fullname);

3888

fprintf(

"** '=' expected after '%s'\n"

, m->

);

3893

fprintf(

"** '-' is not valid for '%s'\n"

, m->

);

3900 else if

(*pp !=

','

&& *pp !=

'\n'

&& *pp !=

' '

&& *pp != 0)

3902

fprintf(

"** Unrecognized modifier '%.*s'\n"

, (

int

)(ep-p), p);

3941 else goto

INVALID_VALUE;

3956 len

= ((colon !=

&& colon < ep)? colon:ep) - pp;

3970 if

(*pp !=

':'

)

break

;

3975 if

(*pp))

goto

INVALID_VALUE;

3976

uli = strtoul((

const char

*)pp, &endptr, 10);

3979 if

(*endptr ==

':'

)

3981

uli = strtoul((

const char

*)endptr+1, &endptr, 10);

3994 if

(*pp))

goto

INVALID_VALUE;

3995

uli = strtoul((

const char

*)pp, &endptr, 10);

3996 if

(uli == ULONG_MAX)

goto

INVALID_VALUE;

3997 #if ULONG_MAX > PCRE2_SIZE_MAX 4013 if

(*pp))

goto

INVALID_VALUE;

4014

uli = strtoul((

const char

*)pp, &endptr, 10);

4021 if

(*pp) && *pp !=

'-'

)

goto

INVALID_VALUE;

4022

li = strtol((

const char

*)pp, &endptr, 10);

4029 for

(

= 0;

sizeof

(

sizeof

(

char

*);

++)

4032 if

(

sizeof

(

sizeof

(

char

*))

goto

INVALID_VALUE;

4049 if

(

(*pp) || *pp ==

'-'

)

4053

li = strtol((

const char

*)pp, &endptr, 10);

4059 while

(*((

*)field) >= 0 &&

-- > 0)

4060

field = (

char

*)field +

sizeof

(

);

4063

fprintf(

"** Too many numeric '%s' modifiers\n"

, m->

);

4068 if

(

> 0) ((

*)field)[1] = -1;

4076 char

*nn = (

char

*)field;

4081

fprintf(

"** Group name in '%s' is too long\n"

, m->

);

4084 while

(*nn != 0) nn += strlen(nn) + 1;

4087

fprintf(

"** Too many characters in named '%s' modifiers\n"

4091

memcpy(nn, pp,

);

4102

fprintf(

"** Overlong value for '%s' (max %d code units)\n"

4106

memcpy(field, pp,

);

4112 if

(*pp !=

','

&& *pp !=

'\n'

&& *pp !=

' '

&& *pp != 0)

4114

fprintf(

"** Comma expected after modifier item '%s'\n"

, m->

);

4124

pctl->

locale

[0] != 0 ||

4127

fprintf(

"** '%s' is not valid here\n"

, m->

);

4135

fprintf(

"** Invalid value in '%.*s'\n"

, (

int

)(ep-p), p);

4159

PCRE2_PATTERN_INFO(rc, compiled_code, what,

);

4160

PCRE2_PATTERN_INFO(rc, compiled_code, what, where);

4161 if

(rc >= 0)

return

4164

fprintf(

"Error %d from pcre2_pattern_info_%d(%d)\n"

, rc,

test_mode

4167

fprintf(

"Running in %d-bit mode but pattern was compiled in " 4176 #ifdef SUPPORT_PCRE2_8 4187

prmsg(

const char

const char

*s)

4215

fprintf(

"%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s"

4223

((controls &

CTL_BINCODE

) != 0)?

" bincode"

""

4230

((controls &

CTL_DFA

) != 0)?

" dfa"

""

4231

((controls &

CTL_EXPAND

) != 0)?

" expand"

""

4236

((controls &

CTL_GETALL

) != 0)?

" getall"

""

4237

((controls &

CTL_GLOBAL

) != 0)?

" global"

""

4239

((controls &

CTL_HEXPAT

) != 0)?

" hex"

""

4240

((controls &

CTL_INFO

) != 0)?

" info"

""

4241

((controls &

CTL_JITFAST

) != 0)?

" jitfast"

""

4243

((controls &

CTL_MARK

) != 0)?

" mark"

""

4244

((controls &

CTL_MEMORY

) != 0)?

" memory"

""

4245

((controls2 &

CTL2_NL_SET

) != 0)?

" newline"

""

4249

((controls &

CTL_POSIX

) != 0)?

" posix"

""

4251

((controls &

CTL_PUSH

) != 0)?

" push"

""

4287 if

(options == 0) fprintf(

"%s <none>%s"

, before, after);

4288 else

fprintf(

"%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s"

4316

((options &

PCRE2_UCP

) != 0)?

" ucp"

""

4319

((options &

PCRE2_UTF

) != 0)?

" utf"

""

4342 if

(options == 0) fprintf(

"%s <none>%s"

, before, after);

4343 else

fprintf(

"%s%s%s%s%s%s%s%s%s%s%s%s%s%s"

4362 #ifdef SUPPORT_PCRE2_8 4370

show_match_options(

uint32_t

options)

4372

fprintf(

"%s%s%s%s%s%s%s%s%s%s%s%s%s%s"

4399 uint32_t

name_count, name_entry_size;

4406 #ifdef SUPPORT_PCRE2_8 4409 #ifdef SUPPORT_PCRE2_16 4412 #ifdef SUPPORT_PCRE2_32 4446

fprintf(

"Frame size for pcre2_match(): %" SIZ_FORM "\n"

, frame_size);

4459

PCRE2_GET_MATCH_DATA_HEAPFRAMES_SIZE(heapframes_size,

);

4474

PCRE2_GET_ERROR_MESSAGE(

, errorcode, pbuffer);

4477

fprintf(

"\n** pcre2test internal error: cannot interpret error " 4478 "number\n** Unexpected return (%d) from pcre2_get_error_message()\n"

);

4482

fprintf(

"%s"

, before);

4484

fprintf(

"%s"

, after);

4514

fprintf(

"Callout "

);

4521 for

(

= 0; callout_start_delims[

] != 0;

++)

4562

fprintf(

"------------------------------------------------------------------\n"

);

4571 BOOL

heap_limit_set, match_limit_set, depth_limit_set;

4572 uint32_t

backrefmax, bsr_convention, capture_count, first_ctype, first_cunit,

4573

hasbackslashc, hascrorlf, jchanged, last_ctype, last_cunit, match_empty,

4579

PCRE2_PATTERN_INFO(rc, compiled_code, 999,

);

4587

heap_limit_set =

TRUE

;

4591

heap_limit_set =

;

4601

match_limit_set =

TRUE

;

4605

match_limit_set =

;

4615

depth_limit_set =

TRUE

;

4619

depth_limit_set =

;

4648

fprintf(

"Capture group count = %d\n"

, capture_count);

4651

fprintf(

"Max back reference = %d\n"

, backrefmax);

4659 if

(match_limit_set)

4662 if

(depth_limit_set)

4667

fprintf(

"Named capture groups:\n"

);

4668 for

(; namecount > 0; namecount--)

4681 #ifdef SUPPORT_PCRE2_32 4685 while

(*nameptr != 0)

4693 #ifdef SUPPORT_PCRE2_16 4697 while

(*nameptr != 0)

4702 if

(c >= 0xD800 && c < 0xDC00)

4703

c = ((c & 0x3ff) << 10) + (*nameptr++ & 0x3ff) + 0x10000;

4709 #ifdef SUPPORT_PCRE2_8 4716

PCHARSV(nametable, imm2_size, length,

);

4719 while

(length++ < nameentrysize - imm2_size) putc(

' '

);

4721 #ifdef SUPPORT_PCRE2_32 4725 #ifdef SUPPORT_PCRE2_16 4729 #ifdef SUPPORT_PCRE2_8 4731

fprintf(

"%3d\n"

, (

int

)(

4739 if

(hascrorlf) fprintf(

"Contains explicit CR or LF match\n"

);

4740 if

(hasbackslashc) fprintf(

"Contains \\C\n"

);

4741 if

(match_empty) fprintf(

"May match empty string\n"

);

4762 if

((compile_options|overall_options) != 0)

4764 if

(compile_options == overall_options)

4776 if

(jchanged) fprintf(

"Duplicate name status changes\n"

);

4781 "any Unicode newline"

"CR, LF, or CRLF"

);

4785 switch

(newline_convention)

4788

fprintf(

"Forced newline is CR\n"

);

4792

fprintf(

"Forced newline is LF\n"

);

4796

fprintf(

"Forced newline is CRLF\n"

);

4800

fprintf(

"Forced newline is CR, LF, or CRLF\n"

);

4804

fprintf(

"Forced newline is any Unicode newline\n"

);

4808

fprintf(

"Forced newline is NUL\n"

);

4816 if

(first_ctype == 2)

4818

fprintf(

"First code unit at start or follows newline\n"

);

4820 else if

(first_ctype == 1)

4822 const char

*caseless =

4824 ""

" (caseless)"

;

4826

fprintf(

"First code unit = \'%c\'%s\n"

, first_cunit, caseless);

4829

fprintf(

"First code unit = "

);

4831

fprintf(

"%s\n"

, caseless);

4834 else if

(start_bits !=

)

4838

fprintf(

"Starting code units: "

);

4839 for

(

= 0;

< 256;

++)

4841 if

((start_bits[

/8] & (1u << (

&7))) != 0)

4855

fprintf(

"\\x%02x "

);

4863 if

(last_ctype != 0)

4865 const char

*caseless =

4867 ""

" (caseless)"

;

4869

fprintf(

"Last code unit = \'%c\'%s\n"

, last_cunit, caseless);

4872

fprintf(

"Last code unit = "

);

4874

fprintf(

"%s\n"

, caseless);

4879

fprintf(

"Subject length lower bound = %d\n"

, minlength);

4884 if

(

(compiled_code, executable_jit) !=

)

4885

fprintf(

"JIT compilation was successful\n"

);

4888

fprintf(

"JIT compilation was not successful"

);

4894

fprintf(

"JIT support is not available in this version of PCRE2\n"

);

4905

fprintf(

"Callout enumerate failed: error %d: "

, errorcode);

4933

fprintf(

"%s failed: error %d: "

, rc);

4958 char

*filename = (

char

*)buffptr;

4959 while

(

(*filename)) filename++;

4960

endf = filename +

strlen8

(filename);

4961 while

(endf > filename &&

(endf[-1])) endf--;

4963 if

(endf == filename)

4965

fprintf(

"** File name expected after %s\n"

, name);

4970

*fptr = fopen((

const char

*)filename,

mode

);

4973

fprintf(

"** Failed to open '%s': %s\n"

, filename,

(errno));

5003 int

rc,

cmd

, cmdlen, yield;

5005 const char

*cmdname;

5015

cmdlen = strlen(cmdname);

5016 if

(

strncmp

((

char

*)(

+1), cmdname, cmdlen) == 0 &&

5024

argptr =

+ cmdlen + 1;

5028

fprintf(

"** #%s is not allowed after #perltest\n"

, cmdname);

5065

first_listed_newline = 0;

5068 while

(

(*argptr)) argptr++;

5069 if

(*argptr == 0)

break

;

5070 for

(

= 1;

sizeof

(

sizeof

(

char

*);

++)

5077 if

(first_listed_newline == 0) first_listed_newline =

;

5080 while

(*argptr != 0 && !

(*argptr)) argptr++;

5093

fprintf(

"** Can't pop off an empty stack\n"

);

5118 if

(rc !=

)

return

rc;

5127

fprintf(

"** No stacked patterns to save\n"

);

5132 if

(rc !=

)

return

rc;

5149 for

(

= 0;

< 4;

++) fputc((serial_size >> (

*8)) & 255,

);

5150 if

(fwrite(serial, 1, serial_size,

) != serial_size)

5152

fprintf(

"** Wrong return from fwrite()\n"

);

5158

PCRE2_SERIALIZE_FREE(serial);

5171 if

(rc !=

)

return

rc;

5174 for

(

= 0;

< 4;

++) serial_size |= fgetc(

) << (

*8);

5176

serial =

malloc

(serial_size);

5177 if

(serial ==

)

5179

fprintf(

"** Failed to get memory (size %" SIZ_FORM ") for #load\n"

5185 i

= fread(serial, 1, serial_size,

);

5188 if

(

!= serial_size)

5190

fprintf(

"** Wrong return from fread()\n"

);

5195

PCRE2_SERIALIZE_GET_NUMBER_OF_CODES(rc, serial);

5204

fprintf(

"** Not enough space on pattern stack for %d pattern%s\n"

5205

rc, (rc == 1)?

""

"s"

);

5207

fprintf(

"** Decoding %d pattern%s\n"

, rc,

5208

(rc == 1)?

""

"s"

);

5227 if

(rc !=

)

return

rc;

5237

fprintf(

"** Failed: malloc failed for #loadtables\n"

);

5242

fprintf(

"** Wrong return from fread()\n"

);

5279 void

*use_pat_context;

5280 void

*use_pbuffer =

;

5290

fprintf(

"** The only allowed delimiter after #perltest is '/'\n"

);

5297

PATCTXCPY(pat_context, default_pat_context);

5306 if

(*p ==

'\\'

&& p[1] != 0) p++;

5310 if

(*p != 0)

break

;

5313

fprintf(

"** Unexpected EOF\n"

);

5323 if

(p[1] ==

'\\'

) *p++ =

'\\'

;

5346

fprintf(

"** The utf8_input modifier is not allowed in 8-bit mode\n"

);

5351

fprintf(

"** The utf and utf8_input modifiers are mutually exclusive\n"

);

5361

fprintf(

"** The convert and posix modifiers are mutually exclusive\n"

);

5371 if

(c != 0 && c != (c & (~c+1)))

5397 for

(pp =

+ 1; *pp != 0; pp++)

5399 if

(

(*pp))

continue

;

5404 if

(c ==

'\''

|| c ==

'"'

)

5412

fprintf(

"** Missing closing quote in hex pattern: " 5413 "opening quote is at offset %" PTR_FORM ".\n"

, pq -

- 2);

5427

fprintf(

"** Unexpected non-hex-digit '%c' at offset %" 5428 PTR_FORM " in hex pattern: quote missing?\n"

, c, pp -

- 2);

5433

fprintf(

"** Odd number of digits in hex pattern\n"

);

5439

fprintf(

"** Unexpected non-hex-digit '%c' at offset %" 5440 PTR_FORM " in hex pattern: quote missing?\n"

, d, pp -

- 1);

5445

*pt++ = ((

(c)? (c -

'0'

) : (c -

'A'

+ 10)) << 4) +

5446

(

(d)? (d -

'0'

) : (d -

'A'

+ 10));

5460 for

(pp =

+ 1; *pp != 0; pp++)

5469 if

(pp[0] ==

'\\'

&& pp[1] ==

'['

)

5472 for

(pe = pp + 2; *pe != 0; pe++)

5474 if

(pe[0] ==

']'

&& pe[1] ==

'{'

)

5482

uli = strtoul((

const char

*)pe, &endptr, 10);

5485

fprintf(

"** Pattern repeat count too large\n"

);

5495

fprintf(

"** Zero repeat not allowed\n"

);

5514 size_t

pc_offset = pc -

;

5515 size_t

pp_offset = pp -

;

5525

memcpy(pt, pc, length);

5550

fprintf(

"** 'Locale' and 'tables' must not both be set\n"

);

5563

PCRE2_MAKETABLES_FREE(general_context, (

void

locale_tables

);

5579

fprintf(

"** 'Tables = 3' is invalid: binary tables have not " 5587

fprintf(

"** 'Tables' must specify 0, 1, 2, or 3.\n"

);

5591

PCRE2_SET_CHARACTER_TABLES(pat_context,

use_tables

);

5606 #ifdef SUPPORT_PCRE2_8 5609 const char

"** Ignored with POSIX interface:"

;

5614

fprintf(

"** The POSIX interface is available only in 8-bit mode\n"

);

5618 #ifdef SUPPORT_PCRE2_8 5625 if

(

timeit

> 0) prmsg(&

"timing"

);

5663

prmsg(&

"max_pattern_length"

);

5664 if

(

(pat_context, max_pattern_compiled_length) !=

PCRE2_UNSET

)

5665

prmsg(&

"max_pattern_compiled_length"

);

5667

prmsg(&

"parens_nest_limit"

);

5669 if

(

[0] == 0) fprintf(

"\n"

);

5694 size_t

bsize, usize;

5703

memcpy(

+ bsize,

"DEADBEEF"

, 8);

5710

psize = (

int

)bsize - 1;

5711

fprintf(

"Failed: POSIX code %d: %.*s\n"

, rc, psize,

);

5714

fprintf(

"** regerror() message truncated\n"

);

5715 if

(memcmp(

+ bsize,

"DEADBEEF"

, 8) != 0)

5716

fprintf(

"** regerror() buffer overflow\n"

);

5735 "** The regcomp() function returned zero (success), but the values set\n" 5736 "** in the preg block are not valid for PCRE2. Check that pcre2test is\n" 5737 "** linked with PCRE2's pcre2posix module (-lpcre2-posix) and not with\n" 5738 "** some other POSIX regex library.\n**\n"

);

5754

fprintf(

"** Replacement text is not supported with 'push'.\n"

);

5762 "** Ignored when compiled pattern is stacked with 'push':"

);

5770 "** Applies only to compile when pattern is stacked with 'push':"

);

5779 #ifdef SUPPORT_PCRE2_16 5783 #ifdef SUPPORT_PCRE2_32 5790

fprintf(

"** Failed: invalid UTF-8 string cannot be " 5795

fprintf(

"** Failed: character value greater than 0x10ffff " 5796 "cannot be converted to UTF\n"

);

5800

fprintf(

"** Failed: character value greater than 0xffff " 5801 "cannot be converted to 16-bit in non-UTF mode\n"

);

5815 int

convert_return =

;

5817 void

*converted_pattern;

5824 if

(converted_pattern ==

)

5826

fprintf(

"** Failed: malloc failed for converted pattern\n"

);

5830 else

converted_pattern =

;

5836

CONCTXCPY(con_context, default_con_context);

5842

PCRE2_SET_GLOB_ESCAPE(rc, con_context, escape);

5845

fprintf(

"** Invalid glob escape '%c'\n"

5848 goto

CONVERT_FINISH;

5857

fprintf(

"** Invalid glob separator '%c'\n"

5860 goto

CONVERT_FINISH;

5864

PCRE2_PATTERN_CONVERT(rc, pbuffer, patlen, convert_options,

5865

&converted_pattern, &converted_length, con_context);

5869

fprintf(

"** Pattern conversion error at offset %" SIZ_FORM ": "

5879

PCHARSV(converted_pattern, 0, converted_length,

);

5891

fprintf(

"** Pattern conversion is too long for the buffer\n"

);

5896

CONVERT_COPY(pbuffer, converted_pattern, converted_length + 1);

5897

patlen = converted_length;

5905 free

(converted_pattern);

5907

PCRE2_CONVERTED_PATTERN_FREE(converted_pattern);

5911 if

(convert_return !=

)

return

convert_return;

5919

valgrind_access_length = patlen;

5923

valgrind_access_length += 1;

5926 #ifdef SUPPORT_VALGRIND 5927 #ifdef SUPPORT_PCRE2_8 5930

VALGRIND_MAKE_MEM_NOACCESS(

+ valgrind_access_length,

5934 #ifdef SUPPORT_PCRE2_16 5937

VALGRIND_MAKE_MEM_NOACCESS(pbuffer16 + valgrind_access_length,

5938

pbuffer16_size - valgrind_access_length*

sizeof

(

uint16_t

));

5941 #ifdef SUPPORT_PCRE2_32 5944

VALGRIND_MAKE_MEM_NOACCESS(pbuffer32 + valgrind_access_length,

5945

pbuffer32_size - valgrind_access_length*

sizeof

(

uint32_t

));

5949

(void)valgrind_access_length;

5976 #ifdef SUPPORT_PCRE2_8 5979 #ifdef SUPPORT_PCRE2_16 5982 #ifdef SUPPORT_PCRE2_32 5992

clock_t time_taken = 0;

5996

PCRE2_COMPILE(compiled_code, use_pbuffer, patlen,

6000 if

(

TEST

(compiled_code, !=,

))

6004

fprintf(

"Compile time %8.4f microseconds\n"

6010

PCRE2_COMPILE(compiled_code, use_pbuffer, patlen,

6011 pat_patctl

options

|use_forbid_utf, &errorcode, &erroroffset, use_pat_context);

6018 #ifdef SUPPORT_VALGRIND 6019 #ifdef SUPPORT_PCRE2_8 6022

VALGRIND_MAKE_MEM_UNDEFINED(

+ valgrind_access_length,

6026 #ifdef SUPPORT_PCRE2_16 6029

VALGRIND_MAKE_MEM_UNDEFINED(pbuffer16, pbuffer16_size);

6032 #ifdef SUPPORT_PCRE2_32 6035

VALGRIND_MAKE_MEM_UNDEFINED(pbuffer32, pbuffer32_size);

6049

clock_t time_taken = 0;

6055

PCRE2_COMPILE(compiled_code, use_pbuffer, patlen,

6063

fprintf(

"JIT compilation was not successful"

);

6070

fprintf(

"JIT compile %8.4f microseconds\n"

6078

fprintf(

"JIT compilation was not successful"

);

6087 if

(

TEST

(compiled_code, ==,

))

6089

fprintf(

"Failed: error %d at offset %d: "

, errorcode,

6090

(

int

)erroroffset);

6103

fprintf(

"** \\P, \\p, and \\X are not allowed after the " 6104 "#forbid_utf command\n"

);

6134 if

(rc !=

)

return

rc;

6201

PCRE2_SET_MATCH_LIMIT(dat_context,

max

);

6202

PCRE2_SET_DEPTH_LIMIT(dat_context,

max

);

6203

PCRE2_SET_HEAP_LIMIT(dat_context,

max

);

6214

PCRE2_SET_HEAP_LIMIT(dat_context, mid);

6216 #ifdef SUPPORT_PCRE2_8 6219

match_data8->memctl.free(match_data8->heapframes,

6220

match_data8->memctl.memory_data);

6221

match_data8->heapframes =

;

6222

match_data8->heapframes_size = 0;

6226 #ifdef SUPPORT_PCRE2_16 6229

match_data16->memctl.free(match_data16->heapframes,

6230

match_data16->memctl.memory_data);

6231

match_data16->heapframes =

;

6232

match_data16->heapframes_size = 0;

6236 #ifdef SUPPORT_PCRE2_32 6239

match_data32->memctl.free(match_data32->heapframes,

6240

match_data32->memctl.memory_data);

6241

match_data32->heapframes =

;

6242

match_data32->heapframes_size = 0;

6251

PCRE2_SET_MATCH_LIMIT(dat_context, mid);

6255

PCRE2_SET_DEPTH_LIMIT(dat_context, mid);

6282 if

(capcount == errnumber)

6284 if

((mid & 0x80000000u) != 0)

6286

fprintf(

"Can't find minimum %s limit: check pattern for " 6287 "restriction\n"

);

6294 else if

(capcount >= 0 ||

6306

fprintf(

"Minimum %s limit = 0\n"

);

6311

fprintf(

"Minimum %s limit = %d\n"

, mid);

6364

fprintf(

" STOPPED"

);

6369

fprintf(

" SKIPPED"

);

6398

FILE *

, *fdefault;

6399 uint32_t i

, pre_start, post_start, subject_length;

6418

fprintf(

"Backtrack\n"

);

6422

fprintf(

"Backtrack\nNo other matching paths\n"

);

6426

fprintf(

"New match attempt\n"

);

6446 for

(

= 0; callout_start_delims[

] != 0;

++)

6453 if

(!callout_capture) fprintf(

"\n"

);

6458 if

(callout_capture)

6465

fprintf(

"%2d: "

/2);

6467

fprintf(

"<unset>"

);

6484 if

(

) fprintf(

"--->"

);

6510 if

(

) fprintf(

"\n"

);

6530 for

(

= 0;

< pre_start;

++) fprintf(

" "

);

6535 for

(

= 0;

< post_start - 1;

++) fprintf(

" "

);

6539 for

(

= 0;

< subject_length - pre_start - post_start + 4;

++)

6546

fprintf(

"End of pattern"

);

6558

fprintf(

"Latest Mark: <unset>\n"

);

6561

fprintf(

"Latest Mark: "

);

6570 if

(callout_data_ptr !=

)

6572 int

callout_data = *((

*)callout_data_ptr);

6573 if

(callout_data != 0)

6575

fprintf(

"Callout data = %d\n"

, callout_data);

6576 return

callout_data;

6626

PCRE2_SUBSTRING_COPY_BYNUMBER(rc,

, copybuffer, &length);

6629

fprintf(

"Copy substring %d failed (%d): "

, rc);

6634

PCRE2_SUBSTRING_LENGTH_BYNUMBER(rc,

, &length2);

6637

fprintf(

"Get substring %d length failed (%d): "

, rc);

6640 else if

(length2 != length)

6642

fprintf(

"Mismatched substring lengths: %" 6646

PCHARSV(copybuffer, 0, length,

);

6660 int

namelen = strlen((

const char

*)nptr);

6661 #if defined SUPPORT_PCRE2_16 || defined SUPPORT_PCRE2_32 6664 if

(namelen == 0)

break

;

6666 #ifdef SUPPORT_PCRE2_8 6669 #ifdef SUPPORT_PCRE2_16 6672 #ifdef SUPPORT_PCRE2_32 6676

PCRE2_SUBSTRING_NUMBER_FROM_NAME(groupnumber, compiled_code, pbuffer);

6678

fprintf(

"Number not found for group '%s'\n"

, nptr);

6681

PCRE2_SUBSTRING_COPY_BYNAME(rc,

, pbuffer, copybuffer, &length);

6684

fprintf(

"Copy substring '%s' failed (%d): "

, nptr, rc);

6689

PCRE2_SUBSTRING_LENGTH_BYNAME(rc,

, pbuffer, &length2);

6692

fprintf(

"Get substring '%s' length failed (%d): "

, nptr, rc);

6695 else if

(length2 != length)

6697

fprintf(

"Mismatched substring lengths: %" 6701

PCHARSV(copybuffer, 0, length,

);

6703 if

(groupnumber >= 0) fprintf(

" (group %d)\n"

, groupnumber);

6704 else

fprintf(

" (non-unique)\n"

);

6706

nptr += namelen + 1;

6717

PCRE2_SUBSTRING_GET_BYNUMBER(rc,

, &gotbuffer, &length);

6720

fprintf(

"Get substring %d failed (%d): "

, rc);

6726

PCHARSV(gotbuffer, 0, length,

);

6728

PCRE2_SUBSTRING_FREE(gotbuffer);

6741 int

namelen = strlen((

const char

*)nptr);

6742 #if defined SUPPORT_PCRE2_16 || defined SUPPORT_PCRE2_32 6745 if

(namelen == 0)

break

;

6747 #ifdef SUPPORT_PCRE2_8 6750 #ifdef SUPPORT_PCRE2_16 6753 #ifdef SUPPORT_PCRE2_32 6757

PCRE2_SUBSTRING_NUMBER_FROM_NAME(groupnumber, compiled_code, pbuffer);

6759

fprintf(

"Number not found for group '%s'\n"

, nptr);

6761

PCRE2_SUBSTRING_GET_BYNAME(rc,

, pbuffer, &gotbuffer, &length);

6764

fprintf(

"Get substring '%s' failed (%d): "

, nptr, rc);

6770

PCHARSV(gotbuffer, 0, length,

);

6772 if

(groupnumber >= 0) fprintf(

" (group %d)\n"

, groupnumber);

6773 else

fprintf(

" (non-unique)\n"

);

6774

PCRE2_SUBSTRING_FREE(gotbuffer);

6776

nptr += namelen + 1;

6786

PCRE2_SUBSTRING_LIST_GET(rc,

, &stringlist, &lengths);

6789

fprintf(

"get substring list failed (%d): "

, rc);

6794 for

(

= 0;

< capcount;

++)

6797

PCHARSV(stringlist[

], 0, lengths[

);

6800 if

(stringlist[

] !=

)

6801

fprintf(

"string list not terminated by NULL\n"

);

6802

PCRE2_SUBSTRING_LIST_FREE(stringlist);

6830 for

(

= 0;

< 2*oveccount;

+= 2)

6835

fprintf(

"%2d: "

/2);

6837

fprintf(

"<unset>\n"

);

6839

fprintf(

"<unchanged>\n"

);

6841

fprintf(

"%ld %ld\n"

, (

unsigned long int

)start,

6842

(

unsigned long int

)end);

6869 void

*use_dat_context;

6871 BOOL

subject_literal;

6877 #ifdef SUPPORT_PCRE2_8 6880 #ifdef SUPPORT_PCRE2_16 6883 #ifdef SUPPORT_PCRE2_32 6895

DATCTXCPY(dat_context, default_dat_context);

6909 #ifdef SUPPORT_PCRE2_8 6911

((pcre2_real_code_8 *)preg.

re_pcre2_code

)->overall_options :

6912 FLD

(compiled_code, overall_options)) &

PCRE2_UTF

) != 0;

6934 for

(q = p;

> 0 && *q; q +=

)

utf82ord

(q, q_end, &cc);

6937

fprintf(

"** Failed: invalid UTF-8 string cannot be used as input " 6943 #ifdef SUPPORT_VALGRIND 6977 while

((c = *p++) != 0)

6984 if

(c ==

']'

&& start_rep !=

)

6992

fprintf(

"** Expected '{' after \\[....]\n"

);

6996

li = strtol((

const char

*)p, &endptr, 10);

6999

fprintf(

"** Repeat count too large\n"

);

7006

fprintf(

"** Expected '}' after \\[...]{...\n"

);

7013

fprintf(

"** Zero or negative repeat not allowed\n"

);

7018 if

(

(ckd_smul)(&d, replen,

))

7020

fprintf(

"** Expanded content too large\n"

);

7028 size_t

rep_offset = start_rep -

dbuffer

;

7037

fprintf(stderr,

"pcre2test: realloc(%" SIZ_FORM ") failed\n"

7041

SETCASTPTR(q,

dbuffer

+ qoffset);

7042

start_rep =

dbuffer

+ rep_offset;

7047

memcpy(

CAST8VAR

(q), start_rep, replen);

7058 if

(c !=

'\\'

|| subject_literal)

7063

topbit = 0x80000000;

7073 else switch

((c = *p++))

7077 case 'b'

: c =

'\b'

;

break

;

7079 case 'f'

: c =

'\f'

;

break

;

7080 case 'n'

: c =

'\n'

;

break

;

7081 case 'r'

: c =

'\r'

;

break

;

7082 case 't'

: c =

'\t'

;

break

;

7083 case 'v'

: c =

'\v'

;

break

;

7085 case '0'

case '1'

case '2'

case '3'

7086 case '4'

case '5'

case '6'

case '7'

7088 while

(

++ < 2 &&

(*p) && *p !=

'8'

&& *p !=

'9'

)

7089

c = c * 8 + *p++ -

'0'

;

7097 for

(pt++;

(*pt) && *pt !=

'8'

&& *pt !=

'9'

; pt++)

7100

fprintf(

"** Too many octal digits in \\o{...} item; " 7101 "using only the first twelve.\n"

);

7102 else

c = c * 8 + *pt -

'0'

;

7104 if

(*pt ==

'}'

) p = pt + 1;

7105 else

fprintf(

"** Missing } after \\o{ (assumed)\n"

);

7123

fprintf(

"** Too many hex digits in \\x{...} item; " 7124 "using only the first eight.\n"

);

7125 else

c = c * 16 +

tolower

(*pt) - ((

(*pt))?

'0'

'a'

- 10);

7146 #if defined SUPPORT_PCRE2_8 7163 if

(start_rep !=

)

7165

fprintf(

"** Nested replication is not supported\n"

);

7174

fprintf(

"** Unrecognized escape sequence \"\\%c\"\n"

, c);

7184 #ifdef SUPPORT_PCRE2_8 7191

fprintf(

"** Character \\x{%x} is greater than 0x7fffffff " 7192 "and so cannot be converted to UTF-8\n"

, c);

7201

fprintf(

"** Character \\x{%x} is greater than 255 " 7202 "and UTF-8 mode is not enabled.\n"

, c);

7203

fprintf(

"** Truncation will probably give the wrong " 7210 #ifdef SUPPORT_PCRE2_16 7217

fprintf(

"** Failed: character \\x{%x} is greater than " 7218 "0x10ffff and so cannot be converted to UTF-16\n"

, c);

7221 else if

(c >= 0x10000u)

7224

*q16++ = 0xD800 | (c >> 10);

7225

*q16++ = 0xDC00 | (c & 0x3ff);

7234

fprintf(

"** Character \\x{%x} is greater than 0xffff " 7235 "and UTF-16 mode is not enabled.\n"

, c);

7236

fprintf(

"** Truncation will probably give the wrong " 7244 #ifdef SUPPORT_PCRE2_32 7274 if

(c != 0 && c != (c & (~c+1)))

7287

fprintf(

"** Replacement callouts are not supported with null_context.\n"

);

7292

fprintf(

"** Ignored with replacement text: allcaptures\n"

);

7300

fprintf(

"** Ignored for DFA matching: allcaptures\n"

);

7302

fprintf(

"** Ignored for DFA matching: heapframes_size\n"

);

7319 #ifdef SUPPORT_VALGRIND 7332 #ifdef SUPPORT_PCRE2_8 7338 const char

"** Ignored with POSIX interface:"

;

7341

prmsg(&

"callout_error"

);

7343

prmsg(&

"callout_fail"

);

7345

prmsg(&

"copy"

);

7347

prmsg(&

"get"

);

7366 if

(

[0] == 0) fprintf(

"\n"

);

7371 if

(pmatch ==

)

7373

fprintf(

"** Failed to get memory for recording matching " 7398

fprintf(

"Matched with REG_NOSUB\n"

);

7400

fprintf(

"Matched without capture\n"

);

7407 if

(pmatch[

].rm_so >= 0)

7411 for

(j = last_printed + 1; j <

; j++)

7412

fprintf(

"%2d: <unset>\n"

, (

int

)j);

7416

start = pmatch[

rm_eo

;

7417

end = pmatch[

rm_so

;

7418

fprintf(

"Start of matched string is beyond its end - " 7419 "displaying from end to start.\n"

);

7421

fprintf(

"%2d: "

, (

int

)

);

7422

PCHARSV(pp, start, end - start,

);

7428

fprintf(

"%2d+ "

, (

int

)

);

7431

PCHARSV(pp, pmatch[

].rm_eo,

- pmatch[

].rm_eo,

);

7445

fprintf(

"** \\=posix_startend ignored for non-POSIX matching\n"

);

7451 FLD

(compiled_code, executable_jit) !=

)

7453

fprintf(

"** Showing all consulted text is not supported by JIT: ignored\n"

);

7475

fprintf(

"** \\=memory requires either a pattern or a subject " 7476 "context: ignored\n"

);

7495

PCRE2_JIT_STACK_ASSIGN(dat_context,

);

7515

PCRE2_MATCH_DATA_CREATE_FROM_PATTERN(

, compiled_code,

7532

fprintf(

"** Failed to get memory for recording matching " 7539

PCRE2_GET_OVECTOR_COUNT(oveccount,

);

7545

fprintf(

"** Ignored for DFA matching: replace\n"

);

7565 #ifdef SUPPORT_PCRE2_8 7568 #ifdef SUPPORT_PCRE2_16 7571 #ifdef SUPPORT_PCRE2_32 7578 for

(j = 0; j < 2*oveccount; j++) ovector[j] =

JUNK_OFFSET

;

7581

fprintf(

"** Timing is not supported with replace: ignored\n"

);

7584

fprintf(

"** Altglobal is not supported with replace: ignored\n"

);

7607

xoptions = emoption |

7623

SETCASTPTR(

, rbuffer);

7636

fprintf(

"Bad buffer size in replacement string\n"

);

7641

fprintf(

"Replacement buffer setting (%" SIZ_FORM ") is too " 7642 "large (max %" SIZ_FORM ")\n"

, nsize);

7655 if

(

) badutf =

valid_utf

(pr, strlen((

const char

*)pr), &erroroffset);

7659 if

|| badutf)

7661 while

((c = *pr++) != 0)

7663 #ifdef SUPPORT_PCRE2_8 7666 #ifdef SUPPORT_PCRE2_16 7669 #ifdef SUPPORT_PCRE2_32 7677 else while

((c = *pr++) != 0)

7681 #ifdef SUPPORT_PCRE2_8 7685 #ifdef SUPPORT_PCRE2_16 7691

*r16++ = 0xD800 | (c >> 10);

7692

*r16++ = 0xDC00 | (c & 0x3ff);

7698 #ifdef SUPPORT_PCRE2_32 7715

PCRE2_SET_SUBSTITUTE_CALLOUT(dat_context,

);

7725

rbptr, rlen, nbuffer, &nsize);

7729

fprintf(

"Failed: error %d"

, rc);

7731

fprintf(

" at offset %ld in replacement"

, (

long int

)nsize);

7736

fprintf(

": %ld code units are needed"

, (

long int

)nsize);

7740

fprintf(

"%2d: "

, rc);

7763

ovecsave[0] = ovecsave[1] = ovecsave[2] =

PCRE2_UNSET

;

7765 for

(gmatched = 0;; gmatched++)

7773 for

(j = 0; j < 2*oveccount; j++) ovector[j] =

JUNK_OFFSET

;

7791

fprintf(

"Timing DFA restarts is not supported\n"

);

7799

PCRE2_DFA_MATCH(capcount, compiled_code, pp, arg_ulen,

7810

PCRE2_JIT_MATCH(capcount, compiled_code, pp, arg_ulen,

7821

PCRE2_MATCH(capcount, compiled_code, pp, arg_ulen,

7827

fprintf(

"Match time %7.4f microseconds\n"

7840

(

(compiled_code, executable_jit) ==

7849 if

(

(compiled_code, executable_jit) ==

7859

fprintf(

"Matched, but offsets vector is too small to show all matches\n"

);

7879

PCRE2_SET_CALLOUT(dat_context,

);

7890

PCRE2_DFA_MATCH(capcount, compiled_code, pp, arg_ulen,

7895

fprintf(

"Matched, but offsets vector is too small to show all matches\n"

);

7902

PCRE2_JIT_MATCH(capcount, compiled_code, pp, arg_ulen,

dat_datctl

offset

7909

fprintf(

"Matched, but too many substrings\n"

);

7926 if

(capcount > (

int

)oveccount)

7929 "** PCRE2 error: returned count %d is too big for ovector count %d\n"

7930

capcount, oveccount);

7931

capcount = oveccount;

7934

fprintf(

"** Global loop abandoned\n"

);

7947 "** PCRE2 error: flag not set after copy_matched_subject\n"

);

7951 "** PCRE2 error: copy_matched_subject has not copied\n"

);

7955 "** PCRE2 error: copy_matched_subject mismatch\n"

);

7968 if

(gmatched > 0 && ovecsave[0] == ovector[0] && ovecsave[1] == ovector[1])

7977 "** PCRE2 error: global repeat returned the same string as previous\n"

);

7978

fprintf(

"** Global loop abandoned\n"

);

7990 if

(capcount > (

int

)oveccount) capcount = oveccount;

8000 for

(

= 0;

< 2*capcount;

+= 2)

8008

start = ovector[

+1];

8010

fprintf(

"Start of matched string is beyond its end - " 8011 "displaying from end to start.\n"

);

8014

fprintf(

"%2d: "

/2);

8020

fprintf(

"<unset>\n"

);

8029 if

(start > ulen || end > ulen)

8034

fprintf(

"<unchanged>\n"

);

8036

fprintf(

"ERROR: bad value(s) for offset(s): 0x%lx 0x%lx\n"

8037

(

unsigned long int

)start, (

unsigned long int

)end);

8058

showallused =

== 0 && (leftchar < start || rightchar > end);

8060 else

showallused =

;

8064

PCHARS(lleft, pp, leftchar, start - leftchar,

);

8065

PCHARS(lmiddle, pp, start, end - start,

);

8066

PCHARS(lright, pp, end, rightchar - end,

);

8068

fprintf(

" (JIT)"

);

8070 for

(j = 0; j < lleft; j++) fprintf(

"<"

);

8071 for

(j = 0; j < lmiddle; j++) fprintf(

" "

);

8072 for

(j = 0; j < lright; j++) fprintf(

">"

);

8083

PCHARS(lleft, pp, startchar, start - startchar,

);

8084

PCHARSV(pp, start, end - start,

);

8086

fprintf(

" (JIT)"

);

8087 if

(startchar != start)

8090 for

(j = 0; j < lleft; j++) fprintf(

"^"

);

8098

PCHARSV(pp, start, end - start,

);

8100

fprintf(

" (JIT)"

);

8108

PCHARSV(pp, start, end - start,

);

8119

fprintf(

"%2d+ "

/2);

8120

PCHARSV(pp, ovector[

+1], ulen - ovector[

+1],

);

8150 int

rubriclength = 0;

8156 else

leftchar = ovector[0];

8158

fprintf(

"Partial match"

);

8162

fprintf(

", mark="

);

8163

PCHARS(rubriclength, CASTFLD(

void

, mark), -1, -1,

8170

PCHARS(backlength, pp, leftchar, ovector[0] - leftchar,

);

8171

PCHARSV(pp, ovector[0], ovector[1] - ovector[0],

);

8174

fprintf(

" (JIT)"

);

8177 if

(backlength != 0)

8180 for

(

= 0;

< rubriclength;

++) fprintf(

" "

);

8181 for

(

= 0;

< backlength;

++) fprintf(

"<"

);

8185 if

(ulen != ovector[1])

8186

fprintf(

"** ovector[1] is not equal to the subject length: " 8187 "%ld != %ld\n"

, (

unsigned long int

)ovector[1], (

unsigned long int

)ulen);

8216 else if

(g_notempty != 0)

8218 uint16_t

nl =

(compiled_code, newline_convention);

8224

start_offset < ulen - 1 &&

8225

CODE_UNIT(pp, start_offset) ==

'\r'

8226

CODE_UNIT(pp, end_offset) ==

'\n'

)

8233 for

(; end_offset < ulen; end_offset++)

8234 if

((((

PCRE2_SPTR8

)pp)[end_offset] & 0xc0) != 0x80)

break

;

8238 for

(; end_offset < ulen; end_offset++)

8239 if

((((

PCRE2_SPTR16

)pp)[end_offset] & 0xfc00) != 0xdc00)

break

;

8243

SETFLDVEC(

, ovector, 0, start_offset);

8244

SETFLDVEC(

, ovector, 1, end_offset);

8257

fprintf(

"No match"

);

8261

fprintf(

", mark = "

);

8265

fprintf(

" (JIT)"

);

8276

fprintf(

"Error %d (bad UTF-%d offset)\n"

, capcount,

test_mode

);

8280

fprintf(

"Failed: error %d: "

, capcount);

8321 if

(match_offset == end_offset)

8323 if

(end_offset == ulen)

break

;

8342 if

(end_offset <= startchar)

8344 if

(startchar >= ulen)

break

;

8345

end_offset = startchar + 1;

8350 for

(; end_offset < ulen; end_offset++)

8351 if

((((

PCRE2_SPTR8

)pp)[end_offset] & 0xc0) != 0x80)

break

;

8355 for

(; end_offset < ulen; end_offset++)

8356 if

((((

PCRE2_SPTR16

)pp)[end_offset] & 0xfc00) != 0xdc00)

break

;

8371

ovecsave[0] = ovector[0];

8372

ovecsave[1] = ovector[1];

8411

fprintf(

"PCRE2 version "

);

8412 for

(vp =

version

; *vp != 0; vp++) fprintf(

"%c"

, *vp);

8416

fprintf(

" (%s)"

buf

);

8418

fprintf(

"\n"

);

8431

fprintf(

"Unicode version "

);

8432 for

(vp =

uversion

; *vp != 0; vp++) fprintf(

"%c"

, *vp);

8445 for

(vp =

jittarget

; *vp != 0; vp++) fprintf(

"%c"

, *vp);

8465 if

(!isc) printf(

" Default newline sequence is "

);

8466 if

(optval <

sizeof

(

sizeof

(

char

*))

8467

printf(

"%s\n"

[optval]);

8469

printf(

"a non-standard value: %d\n"

, optval);

8481

printf(

"Usage: pcre2test [options] [<input file> [<output file>]]\n\n"

);

8482

printf(

"Input and output default to stdin and stdout.\n"

);

8483 #if defined(SUPPORT_LIBREADLINE) || defined(SUPPORT_LIBEDIT) 8484

printf(

"If input is a terminal, readline() is used to read from it.\n"

);

8486

printf(

"This version of pcre2test is not linked with readline().\n"

);

8488

printf(

"\nOptions:\n"

);

8489 #ifdef SUPPORT_PCRE2_8 8490

printf(

" -8 use the 8-bit library\n"

);

8492 #ifdef SUPPORT_PCRE2_16 8493

printf(

" -16 use the 16-bit library\n"

);

8495 #ifdef SUPPORT_PCRE2_32 8496

printf(

" -32 use the 32-bit library\n"

);

8498

printf(

" -ac set default pattern modifier PCRE2_AUTO_CALLOUT\n"

);

8499

printf(

" -AC as -ac, but also set subject 'callout_extra' modifier\n"

);

8500

printf(

" -b set default pattern modifier 'fullbincode'\n"

);

8501

printf(

" -C show PCRE2 compile-time options and exit\n"

);

8502

printf(

" -C arg show a specific compile-time option and exit with its\n"

);

8503

printf(

" value if numeric (else 0). The arg can be:\n"

);

8504

printf(

" backslash-C use of \\C is enabled [0, 1]\n"

);

8505

printf(

" bsr \\R type [ANYCRLF, ANY]\n"

);

8506

printf(

" ebcdic compiled for EBCDIC character code [0,1]\n"

);

8507

printf(

" ebcdic-nl NL code if compiled for EBCDIC\n"

);

8508

printf(

" jit just-in-time compiler supported [0, 1]\n"

);

8509

printf(

" linksize internal link size [2, 3, 4]\n"

);

8510

printf(

" newline newline type [CR, LF, CRLF, ANYCRLF, ANY, NUL]\n"

);

8511

printf(

" pcre2-8 8 bit library support enabled [0, 1]\n"

);

8512

printf(

" pcre2-16 16 bit library support enabled [0, 1]\n"

);

8513

printf(

" pcre2-32 32 bit library support enabled [0, 1]\n"

);

8514

printf(

" unicode Unicode and UTF support enabled [0, 1]\n"

);

8515

printf(

" -d set default pattern modifier 'debug'\n"

);

8516

printf(

" -dfa set default subject modifier 'dfa'\n"

);

8517

printf(

" -error <n,m,..> show messages for error numbers, then exit\n"

);

8518

printf(

" -help show usage information\n"

);

8519

printf(

" -i set default pattern modifier 'info'\n"

);

8520

printf(

" -jit set default pattern modifier 'jit'\n"

);

8521

printf(

" -jitfast set default pattern modifier 'jitfast'\n"

);

8522

printf(

" -jitverify set default pattern modifier 'jitverify'\n"

);

8523

printf(

" -LM list pattern and subject modifiers, then exit\n"

);

8524

printf(

" -LP list non-script properties, then exit\n"

);

8525

printf(

" -LS list supported scripts, then exit\n"

);

8526

printf(

" -q quiet: do not output PCRE2 version number at start\n"

);

8527

printf(

" -pattern <s> set default pattern modifier fields\n"

);

8528

printf(

" -subject <s> set default subject modifier fields\n"

);

8529

printf(

" -S <n> set stack size to <n> mebibytes\n"

);

8530

printf(

" -t [<n>] time compilation and execution, repeating <n> times\n"

);

8531

printf(

" -tm [<n>] time execution (matching) only, repeating <n> times\n"

);

8532

printf(

" -T same as -t, but show total times at the end\n"

);

8533

printf(

" -TM same as -tm, but show total time at the end\n"

);

8534

printf(

" -v|--version show PCRE2 version and exit\n"

);

8566

fprintf(stderr,

"** Unknown -C option '%s'\n"

, arg);

8579

printf(

"%d\n"

, yield);

8584

printf(

"%d\n"

, optval);

8589

printf(

"%d\n"

, yield);

8609 for

(

= 0; ucname[

] != 0;

++) ucname[

] =

toupper

[ucname[

]];

8610

vms_setsymbol(ucname, 0, optval);

8618 char

nam_buf[22], val_buf[4];

8619

$DESCRIPTOR(nam, nam_buf);

8620

$DESCRIPTOR(

val

, val_buf);

8623

nam.dsc$w_length = strlen(nam_buf);

8624

sprintf(val_buf,

"%d"

, yield);

8625 val

.dsc$w_length = strlen(val_buf);

8626

lib$set_symbol(&nam, &

val

);

8636

printf(

"Compiled with\n"

);

8639

printf(

" EBCDIC code support: LF is 0x%02x\n"

CHAR_LF

);

8640 #if defined NATIVE_ZOS 8641

printf(

" EBCDIC code page %s or similar\n"

, pcrz_cpversion());

8646 if

(optval & 1) printf(

" 8-bit support\n"

);

8647 if

(optval & 2) printf(

" 16-bit support\n"

);

8648 if

(optval & 4) printf(

" 32-bit support\n"

);

8650 #ifdef SUPPORT_VALGRIND 8651

printf(

" Valgrind support\n"

);

8657

printf(

" UTF and UCP support ("

);

8661 else

printf(

" No Unicode support\n"

);

8666

printf(

" Just-in-time compiler support: "

);

8672

printf(

" No just-in-time compiler support\n"

);

8678

printf(

" \\R matches %s\n"

8680 "all Unicode newlines"

);

8682

printf(

" \\C is %ssupported\n"

, optval?

"not "

""

);

8684

printf(

" Internal link size = %d\n"

, optval);

8686

printf(

" Parentheses nest limit = %d\n"

, optval);

8688

printf(

" Default heap limit = %d kibibytes\n"

, optval);

8690

printf(

" Default match limit = %d\n"

, optval);

8692

printf(

" Default depth limit = %d\n"

, optval);

8694 #if defined SUPPORT_LIBREADLINE 8695

printf(

" pcre2test has libreadline support\n"

);

8696 #elif defined SUPPORT_LIBEDIT 8697

printf(

" pcre2test has libedit support\n"

);

8699

printf(

" pcre2test has neither libreadline nor libedit support\n"

);

8710 #ifdef SUPPORT_UNICODE 8712

format_list_item(

int16_t

*ff,

char

*buff,

BOOL

isscript)

8716 const char

*maxs =

""

;

8724 for

(

int i

= 0; ff[

] >= 0;

++)

8726 const char

*s =

(utt_names) + ff[

];

8727 size_t len

= strlen(s);

8728 if

(isscript &&

== 3)

8748 const char

*sep =

" ("

;

8751 if

(

== maxi)

continue

;

8752

buff += sprintf(buff,

"%s%s"

, sep,

(utt_names) + ff[

]);

8755

(void)sprintf(buff,

")"

);

8766 #define MAX_SYNONYMS 5 8771 #ifndef SUPPORT_UNICODE 8773

printf(

"** This version of PCRE2 was compiled without Unicode support.\n"

);

8784 for

(

size_t i

= 0;

(utt_size);

++)

8790 unsigned int value

->value;

8798 if

(

->type !=

PT_BOOL

)

continue

;

8801 for

(k = 0; k < seencount; k++)

8803 if

(

->type == seentypes[k] &&

->value == seenvalues[k])

break

;

8805 if

(k < seencount)

continue

;

8807

seentypes[seencount] =

->type;

8808

seenvalues[seencount++] =

->value;

8811

fv[m++] =

->name_offset;

8813 for

(

size_t

j =

+ 1; j <

(utt_size); j++)

8818

printf(

"** Too many synonyms: %s ignored\n"

8826

printf(

"-------------------------- SUPPORTED %s --------------------------\n\n"

8827

wantscripts?

"SCRIPTS"

"PROPERTIES"

);

8829 if

(!wantscripts) printf(

8830 "This release of PCRE2 supports Unicode's general category properties such\n" 8831 "as Lu (upper case letter), bi-directional properties such as Bidi_Class,\n" 8832 "and the following binary (yes/no) properties:\n\n"

);

8835 for

(

int

k = 0; k < (

+1)/2; k++)

8841

format_list_item(found[k], buff1, wantscripts);

8843 if

(x <

) format_list_item(found[x], buff2, wantscripts);

8846

x = printf(

"%s"

, buff1);

8847 while

(x++ <

colwidth

) printf(

" "

);

8848

printf(

"%s\n"

, buff2);

8865

printf(

"%c%s"

, c, m->

);

8918

is_pattern =

;

8921 default

: printf(

"** Unknown type for modifier '%s'\n"

, m->

);

8925

is_pattern = for_pattern;

8929 if

(for_pattern == is_pattern)

8946

printf(

"-------------- %s MODIFIERS --------------\n"

, title);

8948 for

(

= 0, j = (

+1)/2;

< (

+1)/2;

++, j++)

8955 while

(k-- > 0) printf(

" "

);

8972 "An asterisk on a subject modifier means that it may be given on a pattern\n" 8973 "line, in order to apply to all subjects matched by that pattern. Modifiers\n" 8974 "that are listed for both patterns and subjects have different effects in\n" 8997 char

*arg_subject =

;

8998 char

*arg_pattern =

;

8999 char

*arg_error =

;

9007 if

(

(options) !=

(options) ||

(control) !=

(control) ||

9008 PO

(control2) !=

(control2))

9010

fprintf(stderr,

"** Coding error: " 9011 "options and control offsets for pattern and data must be the same.\n"

);

9031

fprintf(stderr,

"** Error in pcre2_config(): bad length\n"

);

9040

fprintf(stderr,

"** Error in pcre2_config(): bad option not diagnosed\n"

);

9061 #if defined(_WIN32) || defined(WIN32) 9062

_setmode( _fileno( stdout ), _O_BINARY );

9082 while

(argc > 1 && argv[op][0] ==

'-'

&& argv[op][1] != 0)

9085 char

*arg = argv[op];

9090 if

(

(arg,

"-LM"

) == 0)

9098 if

(

(arg,

"-LP"

) == 0)

9106 if

(

(arg,

"-LS"

) == 0)

9114 if

(

(arg,

"-C"

) == 0)

9125 if

(

(arg,

"-8"

) == 0)

9127 #ifdef SUPPORT_PCRE2_8 9133 "** This version of PCRE2 was built without 8-bit support\n"

);

9138 else if

(

(arg,

"-16"

) == 0)

9140 #ifdef SUPPORT_PCRE2_16 9147 "** This version of PCRE2 was built without 16-bit support\n"

);

9152 else if

(

(arg,

"-32"

) == 0)

9154 #ifdef SUPPORT_PCRE2_32 9161 "** This version of PCRE2 was built without 32-bit support\n"

);

9172 else if

(

(arg,

"-S"

) == 0 && argc > 2 &&

9173

((uli = strtoul(argv[op+1], &endptr, 10)), *endptr == 0))

9175 #if defined(_WIN32) || defined(WIN32) || defined(__HAIKU__) || defined(NATIVE_ZOS) || defined(__VMS) 9176

fprintf(stderr,

"pcre2test: -S is not supported on this OS\n"

);

9184

fprintf(stderr,

"** Argument for -S is too big\n"

);

9188

getrlimit(RLIMIT_STACK, &rlim);

9189

rlim.rlim_cur = stack_size * 1024 * 1024;

9190 if

(rlim.rlim_cur > rlim.rlim_max)

9193 "pcre2test: requested stack size %luMiB is greater than hard limit "

9194

(

unsigned long int

)stack_size);

9195 if

(rlim.rlim_max % (1024*1024) == 0) fprintf(stderr,

"%luMiB\n"

9196

(

unsigned long int

)(rlim.rlim_max/(1024 * 1024)));

9197 else if

(rlim.rlim_max % 1024 == 0) fprintf(stderr,

"%luKiB\n"

9198

(

unsigned long int

)(rlim.rlim_max/1024));

9199 else

fprintf(stderr,

"%lu bytes\n"

, (

unsigned long int

)(rlim.rlim_max));

9202

rc = setrlimit(RLIMIT_STACK, &rlim);

9205

fprintf(stderr,

"pcre2test: setting stack size %luMiB failed: %s\n"

9206

(

unsigned long int

)stack_size,

(errno));

9216 else if

(

(arg,

"-AC"

) == 0)

9226 else if

(

(arg,

"-jit"

) == 0 ||

(arg,

"-jitverify"

) == 0 ||

9227 strcmp

(arg,

"-jitfast"

) == 0)

9233

fprintf(stderr,

"** Warning: JIT support is not available: " 9234 "-jit[fast|verify] calls functions that do nothing.\n"

);

9240 else if

(

(arg,

"-t"

) == 0 ||

(arg,

"-tm"

) == 0 ||

9243 int

both = arg[2] == 0;

9244

showtotaltimes = arg[1] ==

'T'

;

9245 if

(argc > 2 && (uli = strtoul(argv[op+1], &endptr, 10), *endptr == 0))

9249

fprintf(stderr,

"** Argument for %s must not be zero\n"

, arg);

9254

fprintf(stderr,

"** Argument for %s is too big\n"

, arg);

9267 else if

(

(arg,

"-help"

) == 0 ||

9268 strcmp

(arg,

"--help"

) == 0)

9276 else if

(memcmp(arg,

"-v"

, 2) == 0 ||

9277 strcmp

(arg,

"--version"

) == 0)

9286 else if

(

(arg,

"-error"

) == 0)

9288

arg_error = argv[op+1];

9289 goto

CHECK_VALUE_EXISTS;

9292 else if

(

(arg,

"-subject"

) == 0)

9294

arg_subject = argv[op+1];

9295 goto

CHECK_VALUE_EXISTS;

9298 else if

(

(arg,

"-pattern"

) == 0)

9300

arg_pattern = argv[op+1];

9304

fprintf(stderr,

"** Missing value for %s\n"

, arg);

9316

fprintf(stderr,

"** Unknown or malformed option '%s'\n"

, arg);

9328 if

(arg_error !=

)

9337 #ifdef SUPPORT_PCRE2_16 9340

pbuffer16_size = 256;

9342 if

(pbuffer16 ==

)

9344

fprintf(stderr,

"pcre2test: malloc(%" SIZ_FORM ") failed for pbuffer16\n"

9352 #ifdef SUPPORT_PCRE2_32 9355

pbuffer32_size = 512;

9357 if

(pbuffer32 ==

)

9359

fprintf(stderr,

"pcre2test: malloc(%" SIZ_FORM ") failed for pbuffer32\n"

9371

errcode = strtol(arg_error, &endptr, 10);

9374

fprintf(stderr,

"** '%s' is not a valid error number list\n"

, arg_error);

9378

printf(

"Error %d: "

, errcode);

9379

PCRE2_GET_ERROR_MESSAGE(

, errcode, pbuffer);

9385

printf(

"PCRE2_ERROR_BADDATA (unknown error number)"

);

9389

printf(

"PCRE2_ERROR_NOMEMORY (buffer too small)"

);

9393

printf(

"Unexpected return (%d) from pcre2_get_error_message()"

);

9399

PCHARSV(CASTVAR(

void

*, pbuffer), 0,

, stdout);

9402 if

(*endptr == 0)

goto

EXIT;

9403

arg_error = endptr + 1;

9417 #define CREATECONTEXTS \ 9418 G(general_context,BITS) = G(pcre2_general_context_create_,BITS)(&my_malloc, &my_free, NULL); \ 9419 G(general_context_copy,BITS) = G(pcre2_general_context_copy_,BITS)(G(general_context,BITS)); \ 9420 G(default_pat_context,BITS) = G(pcre2_compile_context_create_,BITS)(G(general_context,BITS)); \ 9421 G(pat_context,BITS) = G(pcre2_compile_context_copy_,BITS)(G(default_pat_context,BITS)); \ 9422 G(default_dat_context,BITS) = G(pcre2_match_context_create_,BITS)(G(general_context,BITS)); \ 9423 G(dat_context,BITS) = G(pcre2_match_context_copy_,BITS)(G(default_dat_context,BITS)); \ 9424 G(default_con_context,BITS) = G(pcre2_convert_context_create_,BITS)(G(general_context,BITS)); \ 9425 G(con_context,BITS) = G(pcre2_convert_context_copy_,BITS)(G(default_con_context,BITS)); \ 9426 G(match_data,BITS) = G(pcre2_match_data_create_,BITS)(max_oveccount, G(general_context,BITS)) 9428 #define CONTEXTTESTS \ 9429 (void)G(pcre2_set_compile_extra_options_,BITS)(G(pat_context,BITS), 0); \ 9430 (void)G(pcre2_set_max_pattern_length_,BITS)(G(pat_context,BITS), 0); \ 9431 (void)G(pcre2_set_max_pattern_compiled_length_,BITS)(G(pat_context,BITS), 0); \ 9432 (void)G(pcre2_set_max_varlookbehind_,BITS)(G(pat_context,BITS), 0); \ 9433 (void)G(pcre2_set_offset_limit_,BITS)(G(dat_context,BITS), 0); \ 9434 (void)G(pcre2_get_match_data_size_,BITS)(G(match_data,BITS)) 9439 #ifdef SUPPORT_PCRE2_8 9449 #ifdef SUPPORT_PCRE2_16 9459 #ifdef SUPPORT_PCRE2_32 9479 if

((arg_pattern !=

9481

(arg_subject !=

9493 if

(argc > 1 &&

(argv[op],

"-"

) != 0)

9498

printf(

"** Failed to open '%s': %s\n"

, argv[op],

(errno));

9504 #if defined(SUPPORT_LIBREADLINE) || defined(SUPPORT_LIBEDIT) 9513

printf(

"** Failed to open '%s': %s\n"

, argv[op+1],

(errno));

9525 #ifdef SUPPORT_PCRE2_8 9535 #ifdef SUPPORT_PCRE2_8 9548 if

(expectdata || skipping)

9553 #ifdef SUPPORT_PCRE2_8 9561 if

(

TEST

(compiled_code, !=,

))

9567

setlocale(LC_CTYPE,

"C"

);

9573 else if

(!skipping && !(p[0] ==

'\\'

&& p[1] ==

'='

(p[2])))

9585 else if

(*p ==

'#'

)

9587 if

(

(p[1]) || p[1] ==

'!'

|| p[1] == 0)

continue

;

9591 else if

(strchr(

"/!\"'`%&-=_:;,@~"

, *p) !=

)

9602

fprintf(

"** Invalid pattern delimiter '%c' (x%x).\n"

, *

9611

fprintf(

"** pcre2test run abandoned\n"

);

9623 const char

pad

""

;

9624

fprintf(

"--------------------------------------\n"

);

9627

fprintf(

"Total compile time %8.2f microseconds\n"

9630

fprintf(

"Total JIT compile %8.2f microseconds\n"

9635

fprintf(