[Perl-flat-cvs-notify] SF.net SVN: perl-flat: [69] trunk/perl-flat/lib/FLAT

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

Revision: 69
Author:   estrabd
Date:     2006-08-07 20:36:18 -0700 (Mon, 07 Aug 2006)
ViewCVS:  http://svn.sourceforge.net/perl-flat/?rev=69&view=rev

Log Message:
-----------
figure this svn thing out! (hopefully)..onward to PFS->NFA!

Modified Paths:
--------------
    trunk/perl-flat/lib/FLAT/NFA.pm
    trunk/perl-flat/lib/FLAT/PFA.pm
Modified: trunk/perl-flat/lib/FLAT/NFA.pm
===================================================================
--- trunk/perl-flat/lib/FLAT/NFA.pm	2006-05-28 03:39:53 UTC (rev 68)
+++ trunk/perl-flat/lib/FLAT/NFA.pm	2006-08-08 03:36:18 UTC (rev 69)
@@ -251,6 +251,7 @@
 }
 
 sub _SET_ID { join "\0", sort { $a <=> $b } @_; }
+
 sub as_dfa {
     my $self = shift;
     

Modified: trunk/perl-flat/lib/FLAT/PFA.pm
===================================================================
--- trunk/perl-flat/lib/FLAT/PFA.pm	2006-05-28 03:39:53 UTC (rev 68)
+++ trunk/perl-flat/lib/FLAT/PFA.pm	2006-08-08 03:36:18 UTC (rev 69)
@@ -47,9 +47,6 @@
 # attack of the clones
 sub as_pfa { $_[0]->clone() }
 
-# 
-sub as_nfa { $_[0]->clone() }
-
 # set lambda symbol - temp fix for larger problem of special symbols
 # like epsilon and lambda
 sub set_lambda {
@@ -170,6 +167,17 @@
 
 1;
 
+# stretching my legs after a few months being gone..
+
+sub as_nfa { 
+    my $self = shift;
+    
+    my $result = FLAT::DFA->new;
+    my %subset;
+    
+    $result;
+ }
+
 __END__
 
 =head1 NAME


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