diff options
Diffstat (limited to 'contrib/perl5/ext/re')
-rw-r--r-- | contrib/perl5/ext/re/Makefile.PL | 38 | ||||
-rw-r--r-- | contrib/perl5/ext/re/hints/aix.pl | 22 | ||||
-rw-r--r-- | contrib/perl5/ext/re/hints/mpeix.pl | 3 | ||||
-rw-r--r-- | contrib/perl5/ext/re/re.pm | 129 | ||||
-rw-r--r-- | contrib/perl5/ext/re/re.xs | 61 |
5 files changed, 0 insertions, 253 deletions
diff --git a/contrib/perl5/ext/re/Makefile.PL b/contrib/perl5/ext/re/Makefile.PL deleted file mode 100644 index bc31b2c..0000000 --- a/contrib/perl5/ext/re/Makefile.PL +++ /dev/null @@ -1,38 +0,0 @@ -use ExtUtils::MakeMaker; -use File::Spec; - -WriteMakefile( - NAME => 're', - VERSION_FROM => 're.pm', - MAN3PODS => {}, # Pods will be built by installman. - XSPROTOARG => '-noprototypes', - OBJECT => 're_exec$(OBJ_EXT) re_comp$(OBJ_EXT) re$(OBJ_EXT)', - DEFINE => '-DPERL_EXT_RE_BUILD -DPERL_EXT_RE_DEBUG', - clean => { FILES => '*$(OBJ_EXT) *.c ../../lib/re.pm' }, -); - -package MY; - -sub upupfile { - File::Spec->catfile(File::Spec->updir, File::Spec->updir, $_[0]); -} - -sub postamble { - my $regcomp_c = upupfile('regcomp.c'); - my $regexec_c = upupfile('regexec.c'); - - <<EOF; -re_comp.c : $regcomp_c - - \$(RM_F) re_comp.c - \$(CP) $regcomp_c re_comp.c - -re_comp\$(OBJ_EXT) : re_comp.c - -re_exec.c : $regexec_c - - \$(RM_F) re_exec.c - \$(CP) $regexec_c re_exec.c - -re_exec\$(OBJ_EXT) : re_exec.c - -EOF -} diff --git a/contrib/perl5/ext/re/hints/aix.pl b/contrib/perl5/ext/re/hints/aix.pl deleted file mode 100644 index 4fbfefd..0000000 --- a/contrib/perl5/ext/re/hints/aix.pl +++ /dev/null @@ -1,22 +0,0 @@ -# Add explicit link to deb.o to pick up .Perl_deb symbol which is not -# mentioned in perl.exp for earlier cc (xlc) versions in at least -# non DEBUGGING builds -# Peter Prymmer <pvhp@best.com> - -use Config; - -if ($^O eq 'aix' && defined($Config{'ccversion'}) && - ( $Config{'ccversion'} =~ /^3\.\d/ - # needed for at least these versions: - # $Config{'ccversion'} eq '3.6.6.0' - # $Config{'ccversion'} eq '3.6.4.0' - # $Config{'ccversion'} eq '3.1.4.0' AIX 4.2 - # $Config{'ccversion'} eq '3.1.4.10' AIX 4.2 - # $Config{'ccversion'} eq '3.1.3.3' - || - $Config{'ccversion'} =~ /^4\.4\.0\.[0-3]/ - ) - ) { - $self->{OBJECT} .= ' ../../deb$(OBJ_EXT)'; -} - diff --git a/contrib/perl5/ext/re/hints/mpeix.pl b/contrib/perl5/ext/re/hints/mpeix.pl deleted file mode 100644 index d1fbb91..0000000 --- a/contrib/perl5/ext/re/hints/mpeix.pl +++ /dev/null @@ -1,3 +0,0 @@ -# Fall back to -O optimization to avoid known gcc 2.8.0 -O2 problems on MPE/iX. -# Mark Bixby <markb@cccd.edu> -$self->{OPTIMIZE} = '-O'; diff --git a/contrib/perl5/ext/re/re.pm b/contrib/perl5/ext/re/re.pm deleted file mode 100644 index 3f142d9..0000000 --- a/contrib/perl5/ext/re/re.pm +++ /dev/null @@ -1,129 +0,0 @@ -package re; - -$VERSION = 0.02; - -=head1 NAME - -re - Perl pragma to alter regular expression behaviour - -=head1 SYNOPSIS - - use re 'taint'; - ($x) = ($^X =~ /^(.*)$/s); # $x is tainted here - - $pat = '(?{ $foo = 1 })'; - use re 'eval'; - /foo${pat}bar/; # won't fail (when not under -T switch) - - { - no re 'taint'; # the default - ($x) = ($^X =~ /^(.*)$/s); # $x is not tainted here - - no re 'eval'; # the default - /foo${pat}bar/; # disallowed (with or without -T switch) - } - - use re 'debug'; # NOT lexically scoped (as others are) - /^(.*)$/s; # output debugging info during - # compile and run time - - use re 'debugcolor'; # same as 'debug', but with colored output - ... - -(We use $^X in these examples because it's tainted by default.) - -=head1 DESCRIPTION - -When C<use re 'taint'> is in effect, and a tainted string is the target -of a regex, the regex memories (or values returned by the m// operator -in list context) are tainted. This feature is useful when regex operations -on tainted data aren't meant to extract safe substrings, but to perform -other transformations. - -When C<use re 'eval'> is in effect, a regex is allowed to contain -C<(?{ ... })> zero-width assertions even if regular expression contains -variable interpolation. That is normally disallowed, since it is a -potential security risk. Note that this pragma is ignored when the regular -expression is obtained from tainted data, i.e. evaluation is always -disallowed with tainted regular expresssions. See L<perlre/(?{ code })>. - -For the purpose of this pragma, interpolation of precompiled regular -expressions (i.e., the result of C<qr//>) is I<not> considered variable -interpolation. Thus: - - /foo${pat}bar/ - -I<is> allowed if $pat is a precompiled regular expression, even -if $pat contains C<(?{ ... })> assertions. - -When C<use re 'debug'> is in effect, perl emits debugging messages when -compiling and using regular expressions. The output is the same as that -obtained by running a C<-DDEBUGGING>-enabled perl interpreter with the -B<-Dr> switch. It may be quite voluminous depending on the complexity -of the match. Using C<debugcolor> instead of C<debug> enables a -form of output that can be used to get a colorful display on terminals -that understand termcap color sequences. Set C<$ENV{PERL_RE_TC}> to a -comma-separated list of C<termcap> properties to use for highlighting -strings on/off, pre-point part on/off. -See L<perldebug/"Debugging regular expressions"> for additional info. - -The directive C<use re 'debug'> is I<not lexically scoped>, as the -other directives are. It has both compile-time and run-time effects. - -See L<perlmodlib/Pragmatic Modules>. - -=cut - -# N.B. File::Basename contains a literal for 'taint' as a fallback. If -# taint is changed here, File::Basename must be updated as well. -my %bitmask = ( -taint => 0x00100000, -eval => 0x00200000, -); - -sub setcolor { - eval { # Ignore errors - require Term::Cap; - - my $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning. - my $props = $ENV{PERL_RE_TC} || 'md,me,so,se,us,ue'; - my @props = split /,/, $props; - my $colors = join "\t", map {$terminal->Tputs($_,1)} @props; - - $colors =~ s/\0//g; - $ENV{PERL_RE_COLORS} = $colors; - }; -} - -sub bits { - my $on = shift; - my $bits = 0; - unless(@_) { - require Carp; - Carp::carp("Useless use of \"re\" pragma"); - } - foreach my $s (@_){ - if ($s eq 'debug' or $s eq 'debugcolor') { - setcolor() if $s eq 'debugcolor'; - require XSLoader; - XSLoader::load('re'); - install() if $on; - uninstall() unless $on; - next; - } - $bits |= $bitmask{$s} || 0; - } - $bits; -} - -sub import { - shift; - $^H |= bits(1,@_); -} - -sub unimport { - shift; - $^H &= ~ bits(0,@_); -} - -1; diff --git a/contrib/perl5/ext/re/re.xs b/contrib/perl5/ext/re/re.xs deleted file mode 100644 index 25c2a90..0000000 --- a/contrib/perl5/ext/re/re.xs +++ /dev/null @@ -1,61 +0,0 @@ -/* We need access to debugger hooks */ -#ifndef DEBUGGING -# define DEBUGGING -#endif - -#define PERL_NO_GET_CONTEXT -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -extern regexp* my_regcomp (pTHX_ char* exp, char* xend, PMOP* pm); -extern I32 my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend, - char* strbeg, I32 minend, SV* screamer, - void* data, U32 flags); -extern void my_regfree (pTHX_ struct regexp* r); -extern char* my_re_intuit_start (pTHX_ regexp *prog, SV *sv, char *strpos, - char *strend, U32 flags, - struct re_scream_pos_data_s *data); -extern SV* my_re_intuit_string (pTHX_ regexp *prog); - -static int oldfl; - -#define R_DB 512 - -static void -deinstall(pTHX) -{ - PL_regexecp = Perl_regexec_flags; - PL_regcompp = Perl_pregcomp; - PL_regint_start = Perl_re_intuit_start; - PL_regint_string = Perl_re_intuit_string; - PL_regfree = Perl_pregfree; - - if (!oldfl) - PL_debug &= ~R_DB; -} - -static void -install(pTHX) -{ - PL_colorset = 0; /* Allow reinspection of ENV. */ - PL_regexecp = &my_regexec; - PL_regcompp = &my_regcomp; - PL_regint_start = &my_re_intuit_start; - PL_regint_string = &my_re_intuit_string; - PL_regfree = &my_regfree; - oldfl = PL_debug & R_DB; - PL_debug |= R_DB; -} - -MODULE = re PACKAGE = re - -void -install() - CODE: - install(aTHX); - -void -deinstall() - CODE: - deinstall(aTHX); |