summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/ext/re
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/ext/re')
-rw-r--r--contrib/perl5/ext/re/Makefile.PL38
-rw-r--r--contrib/perl5/ext/re/hints/aix.pl22
-rw-r--r--contrib/perl5/ext/re/hints/mpeix.pl3
-rw-r--r--contrib/perl5/ext/re/re.pm129
-rw-r--r--contrib/perl5/ext/re/re.xs61
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);
OpenPOWER on IntegriCloud