[Perl-flat-commit-notify] SF.net SVN: perl-flat: [89] trunk/perl-flat/lib/FLAT.pm

[notifies s. of c. c. <per...@li...>]

Revision: 89
          http://svn.sourceforge.net/perl-flat/?rev=89&view=rev
Author:   estrabd
Date:     2007-02-14 14:53:19 -0800 (Wed, 14 Feb 2007)

Log Message:
-----------
tet

Modified Paths:
--------------
    trunk/perl-flat/lib/FLAT.pm

Modified: trunk/perl-flat/lib/FLAT.pm
===================================================================
--- trunk/perl-flat/lib/FLAT.pm	2007-02-14 16:01:27 UTC (rev 88)
+++ trunk/perl-flat/lib/FLAT.pm	2007-02-14 22:53:19 UTC (rev 89)
@@ -122,7 +122,9 @@
   shift;  
   use FLAT::Regex::WithExtraOps;
   use FLAT::DFA;
-  my $DFA1 = FLAT::Regex::WithExtraOps->new(shift)->as_nfa()->as_dfa->as_min_dfa();
+  use FLAT::NFA;
+  use FLAT::PFA;  
+  my $DFA1 = FLAT::Regex::WithExtraOps->new(shift)->as_pfa()->as_nfa()->as_dfa->as_min_dfa();
   print $DFA1->as_graphviz;
 }
 
@@ -132,8 +134,10 @@
 sub nfa2dot {
   shift;  
   use FLAT::Regex::WithExtraOps;
+  use FLAT::DFA;
   use FLAT::NFA;
-  my $NFA1 = FLAT::Regex::WithExtraOps->new(shift)->as_nfa();
+  use FLAT::PFA;  
+  my $NFA1 = FLAT::Regex::WithExtraOps->new(shift)->as_pfa()->as_nfa();
   print $NFA1->as_graphviz;
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.