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

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

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

Modified Files:
	pregex-to-pfa.pl 
Log Message:
at the point where I need to implement PFA->shuffle; twealed some of blokheads code so it was more obvious to me that op and member are sub routines.  Implementation nodes can be seen at http://www.w4r3agle.net/flat/index.php?title=Estrabd%27s_Implementation_Notes

Index: pregex-to-pfa.pl
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/dev-scripts/pregex-to-pfa.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** pregex-to-pfa.pl	12 Mar 2006 05:03:49 -0000	1.3
--- pregex-to-pfa.pl	12 Apr 2006 04:28:28 -0000	1.4
***************
*** 4,14 ****
  use lib qw(../lib);
  use FLAT::Regex::WithExtraOps;
  use Data::Dumper;
  
  # 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();
  
  print $PRE->as_string;
--- 4,18 ----
  use lib qw(../lib);
  use FLAT::Regex::WithExtraOps;
+ use FLAT::PFA;
+ 
  use Data::Dumper;
  
  # This is mainly my test script for FLAT::FA::PFA.pm
  
! my $PRE = FLAT::Regex::WithExtraOps->new('(ab+c*)&[xyz](a+b)*');
  
  my $PFA = $PRE->as_pfa();
  
+ print Dumper($PFA);
+ 
  print $PRE->as_string;