[Perl-flat-cvs-notify] perl-flat/dev-scripts pregex-to-pfa.pl,1.1,1.2

[<per...@li...>]

Update of /cvsroot/perl-flat/perl-flat/dev-scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21362/dev-scripts

Modified Files:
	pregex-to-pfa.pl 
Log Message:
made some more tweaks and trying to figure things out - ran make tests to ensure I did not screw anything up that was already working

Index: pregex-to-pfa.pl
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/dev-scripts/pregex-to-pfa.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** pregex-to-pfa.pl	10 Mar 2006 04:04:33 -0000	1.1
--- pregex-to-pfa.pl	10 Mar 2006 06:00:23 -0000	1.2
***************
*** 3,9 ****
  
  use lib qw(../lib);
- use FLAT;
- use FLAT::NFA;
- use FLAT::Regex;
  use FLAT::Regex::WithExtraOps;
  use Data::Dumper;
--- 3,6 ----
***************
*** 11,15 ****
  # This is mainly my test script for FLAT::FA::PFA.pm
  
! my $PRE = FLAT::Regex::WithExtraOps->new('ab+c*&(a+b)*');
  
  print $PRE->as_string;
--- 8,20 ----
  # This is mainly my test script for FLAT::FA::PFA.pm
  
! my $PRE = FLAT::Regex::WithExtraOps->new('(ab+c*)&(a+b)*');
! 
! my $PFA = $PRE->as_pfa();
! 
! my $NFA = $PFA->as_nfa();
! 
! my $DFA = $NFA->as_dfa();
! 
! my $DFA_min = $DFA->as_min_dfa();
  
  print $PRE->as_string;