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

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

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

Modified Files:
	pregex-to-pfa.pl regex-to-nfa.pl 
Log Message:
more working on PFA and figuring things out...added Symbol class, but nothing is implemented or in use - really just a concept right now

Index: regex-to-nfa.pl
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/dev-scripts/regex-to-nfa.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** regex-to-nfa.pl	22 Feb 2006 23:24:31 -0000	1.2
--- regex-to-nfa.pl	18 Apr 2006 21:50:17 -0000	1.3
***************
*** 3,6 ****
--- 3,7 ----
  use FLAT::Regex;
  use FLAT::NFA;
+ use Data::Dumper;
  
  @ARGV == 1
***************
*** 9,13 ****
  my $regex = shift;
  
! my $nfa = FLAT::Regex->new($regex)->as_nfa;
  my $dot = $nfa->as_graphviz;
  my $summary = $nfa->as_summary;
--- 10,17 ----
  my $regex = shift;
  
! my $re = FLAT::Regex->new($regex);
! 
! my $nfa = $re->as_nfa();
! 
  my $dot = $nfa->as_graphviz;
  my $summary = $nfa->as_summary;

Index: pregex-to-pfa.pl
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/dev-scripts/pregex-to-pfa.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** pregex-to-pfa.pl	12 Apr 2006 04:28:28 -0000	1.4
--- pregex-to-pfa.pl	18 Apr 2006 21:50:17 -0000	1.5
***************
*** 10,14 ****
  # 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();
--- 10,14 ----
  # 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();