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;
|
