Regex: Update PCRE to v8.35.

I was über lazy at first, so took libs from SM.
But actually it's quite easy to compile, so let's update to latest version \o/.
This commit is contained in:
Arkshine
2014-07-05 13:53:30 +02:00
parent d1153b8049
commit d4de0e6f1e
241 changed files with 51074 additions and 15011 deletions

View File

@@ -1,20 +1,17 @@
#! /usr/bin/env perl
# Program for testing regular expressions with perl to check that PCRE handles
# them the same. This version supports /8 for UTF-8 testing. However, it needs
# to have "use utf8" at the start for running the UTF-8 tests, but *not* for
# the other tests. The only way I've found for doing this is to cat this line
# in explicitly in the RunPerlTest script. I've also used this method to supply
# "require Encode" for the UTF-8 tests, so that the main test will still run
# where Encode is not installed.
# use locale; # With this included, \x0b matches \s!
# Function for turning a string into a string of printing chars.
# them the same. This version needs to have "use utf8" at the start for running
# the UTF-8 tests, but *not* for the other tests. The only way I've found for
# doing this is to cat this line in explicitly in the RunPerlTest script. I've
# also used this method to supply "require Encode" for the UTF-8 tests, so that
# the main test will still run where Encode is not installed.
#use utf8;
#require Encode;
# Function for turning a string into a string of printing chars.
sub pchars {
my($t) = "";
@@ -71,7 +68,7 @@ for (;;)
printf " re> " if $infile eq "STDIN";
last if ! ($_ = <$infile>);
printf $outfile "$_" if $infile ne "STDIN";
next if ($_ eq "");
next if ($_ =~ /^\s*$/ || $_ =~ /^< forbid/);
$pattern = $_;
@@ -106,17 +103,17 @@ for (;;)
$pattern =~ s/K(?=[a-zA-Z]*$)//;
# Remove /W from a pattern (asks pcretest to set PCRE_UCP)
# /W asks pcretest to set PCRE_UCP; change this to /u for Perl
$pattern =~ s/W(?=[a-zA-Z]*$)//;
$pattern =~ s/W(?=[a-zA-Z]*$)/u/;
# Remove /S or /SS from a pattern (asks pcretest to study or not to study)
$pattern =~ s/S(?=[a-zA-Z]*$)//g;
# Remove /Y from a pattern (asks pcretest to disable PCRE optimization)
# Remove /Y and /O from a pattern (disable PCRE optimizations)
$pattern =~ s/Y(?=[a-zA-Z]*$)//;
$pattern =~ s/[YO](?=[a-zA-Z]*$)//;
# Check that the pattern is valid