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/CMD/AcyclicStrings.pm | 54 ------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 lib/FLAT/CMD/AcyclicStrings.pm

(limited to 'lib/FLAT/CMD/AcyclicStrings.pm')

diff --git a/lib/FLAT/CMD/AcyclicStrings.pm b/lib/FLAT/CMD/AcyclicStrings.pm
deleted file mode 100644
index ebc8840..0000000
--- a/lib/FLAT/CMD/AcyclicStrings.pm
+++ /dev/null
@@ -1,54 +0,0 @@
-# all strings available via acyclic path from the DFA start state to any all of the final states
-
-package FLAT::CMD::AcyclicStrings;
-use base 'FLAT::CMD';
-use FLAT;
-use FLAT::Regex::WithExtraOps;
-use FLAT::PFA;
-use FLAT::NFA;
-use FLAT::DFA;
-use Storable;
-use Carp;
-
-# Support for perl one liners - like what CPAN.pm uses #<- should move all to another file
-use base 'Exporter'; #instead of: use Exporter (); @ISA = 'Exporter';
-use vars qw(@EXPORT $AUTOLOAD);
-
-@EXPORT = qw(as_strings);
-
-sub AUTOLOAD {
-    my($l) = $AUTOLOAD;
-    $l =~ s/.*:://;
-    my(%EXPORT);
-    @EXPORT{@EXPORT} = '';
-    if (exists $EXPORT{$l}){
-	FLAT::CMD->$l(@_);
-    }
-}
-
-use vars qw(%nodes %dflabel %backtracked %low $lastDFLabel @string $dfa);
-# acyclic - no cycles
-sub as_strings {
-    my $PRE = shift;
-    # neat a better way to get input via stdin
-    if (!$PRE) {
-      while (<>) {
-        chomp;
-        $PRE = $_;
-        last;
-      }
-    } 
-    # caches results, loads them in if detexted
-    my $RE = FLAT::Regex::WithExtraOps->new($PRE);
-    printf("%s\n",$RE->as_string());
-    if (!-e "$PRE.dat") {
-      $dfa = $RE->as_pfa->as_nfa->as_dfa->as_min_dfa->trim_sinks;
-      #store $dfa, "$PRE.dat";
-    } else {
-      print STDERR "$PRE.dat found..";
-      $dfa = retrieve "$PRE.dat";
-    }
-    $dfa->as_acyclic_strings();
-}
-
-1;
-- 
cgit v1.2.3