[Perl-flat-cvs-notify] perl-flat/lib/FLAT PFA.pm,1.2,1.3

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

Update of /cvsroot/perl-flat/perl-flat/lib/FLAT
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21362/lib/FLAT

Modified Files:
	PFA.pm 
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: PFA.pm
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/lib/FLAT/PFA.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** PFA.pm	24 Feb 2006 15:41:02 -0000	1.2
--- PFA.pm	10 Mar 2006 06:00:23 -0000	1.3
***************
*** 2,5 ****
--- 2,6 ----
  use strict;
  use base 'FLAT::NFA';
+ use Carp;
  
  use FLAT::Transition;
***************
*** 15,19 ****
  }
  
! # Uses FLAT::NFA methods for fall back, including: union, concat, kleene, and singleton
  
  sub as_pfa { $_[0]->clone() }
--- 16,40 ----
  }
  
! sub singleton {
!     my ($class, $char) = @_;
!     my $pfa = $class->new;
! 
!     if (not defined $char) {
!         $pfa->add_states(1);
!         $pfa->set_starting(0);
!     } elsif ($char eq "") {
!         $pfa->add_states(1);
!         $pfa->set_starting(0);
!         $pfa->set_accepting(0);
!     } else {
!         $pfa->add_states(2);
!         $pfa->set_starting(0);
!         $pfa->set_accepting(1);
!         $pfa->set_transition(0, 1, $char);
!     }
!     # need to handle nodes...\
!     
!     return $pfa;
! }
  
  sub as_pfa { $_[0]->clone() }
***************
*** 22,33 ****
  # PFA->NFA conversion algorithm
  sub as_nfa {
! 
  }
  
! # Shuffle constructor
  sub shuffle {
  
  }
  
  1;
  
--- 43,61 ----
  # PFA->NFA conversion algorithm
  sub as_nfa {
!   return FLAT::NFA->singleton();
  }
  
! # Uses FLAT::NFA methods for fall back, including: 
! # union, concat, and kleene
! 
! # Shuffle constructor - pinch with lambda transitions
  sub shuffle {
  
  }
  
+ sub reverse {
+   croak "Not implemented for PFAs (yet?)";
+ }
+ 
  1;