From 36d02c1227374b107aa351388c0b5e3df65e4fa9 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <daniel.friesel@uos.de>
Date: Wed, 29 Apr 2020 13:01:31 +0200
Subject: Remove most unused perl scripts and modules

---
 lib/FLAT/Regex/WithExtraOps.pm | 109 -----------------------------------------
 1 file changed, 109 deletions(-)
 delete mode 100644 lib/FLAT/Regex/WithExtraOps.pm

(limited to 'lib/FLAT/Regex/WithExtraOps.pm')

diff --git a/lib/FLAT/Regex/WithExtraOps.pm b/lib/FLAT/Regex/WithExtraOps.pm
deleted file mode 100644
index b366d7c..0000000
--- a/lib/FLAT/Regex/WithExtraOps.pm
+++ /dev/null
@@ -1,109 +0,0 @@
-package FLAT::Regex::WithExtraOps;
-use base 'FLAT::Regex';
-
-use strict;
-use Carp;
-
-my $PARSER = FLAT::Regex::Parser->new(qw[ alt concat star negate shuffle ]);
-sub _parser { $PARSER }
-
-sub members {
-    my $self = shift;
-    wantarray ? @$self[0 .. $#$self] : $self->[0];
-}
-
-#### Precedence
-# 30 ::star
-# 20 ::concat
-# 15 ::negate   <---<< WithExtraOps
-# 12 ::shuffle  <---<< WithExtraOps
-# 10 ::alt
-# 0  ::atomic
-
-###############################
-package FLAT::Regex::Op::negate;
-use base "FLAT::Regex::Op";
-use Carp;
-
-sub parse_spec { "'~' %s"; }
-sub precedence { 15 } # between concat and alternation
-
-sub as_string {
-    my ($self, $prec) = @_;
-    my $result = "~" . $self->members->as_string($self->precedence);
-    return $prec > $self->precedence ? "($result)" : $result;
-}
-
-sub from_parse {
-    my ($pkg, @item) = @_;
-    $pkg->new( $item[2] );
-}
-
-## note: "reverse" conflicts with perl builtin
-sub reverse {
-    my $self = shift;
-    my $op   = $self->members->reverse;
-    __PACKAGE__->new($op);
-}
-
-sub is_empty {
-    croak "Not implemented for negated regexes";
-}
-
-sub has_nonempty_string {
-    croak "Not implemented for negated regexes";
-}
-
-sub is_finite {
-    croak "Not implemented for negated regexes";
-}
-
-###############################
-package FLAT::Regex::Op::shuffle;
-use base 'FLAT::Regex::Op';
-use Carp;
-
-sub parse_spec { "%s(2.. /[&]/)" }
-sub precedence { 12 }
-
-sub as_string {
-    my ($self, $prec) = @_;
-    my $result = join "&",
-                 map { $_->as_string($self->precedence) }
-                 $self->members;
-    return $prec > $self->precedence ? "($result)" : $result;
-}
-
-sub as_perl_regex {
-    my $self = shift;
-    croak "Not implemented for shuffled regexes";
-}
-
-sub from_parse {
-    my ($pkg, @item) = @_;
-    $pkg->new( @{ $item[1] } );
-}
-
-sub as_pfa {
-    my $self = shift;
-    my @parts = map { $_->as_pfa } $self->members;
-    $parts[0]->shuffle( @parts[1..$#parts] );
-}
-
-# Implement?
-sub reverse {
-    my $self = shift;
-    croak "Not implemented for shuffled regexes";
-}
-
-sub is_empty {
-    croak "Not implemented for shuffled regexes";
-}
-
-sub has_nonempty_string {
-    croak "Not implemented for shuffled regexes";
-}
-
-sub is_finite {
-    croak "Not implemented for shuffled regexes";
-}
-- 
cgit v1.2.3