[Perl-flat-cvs-notify] perl-flat/lib/FLAT PFA.pm,1.4,1.5

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

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

Modified Files:
	PFA.pm 
Log Message:
working on pfa stuff


Index: PFA.pm
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/lib/FLAT/PFA.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** PFA.pm	12 Mar 2006 05:03:50 -0000	1.4
--- PFA.pm	7 Apr 2006 20:14:34 -0000	1.5
***************
*** 1,14 ****
! package FLAT::PFA; # should this be FLAT::NFA::PFA ? .. might be too confusing
  use strict;
! use base 'FLAT::NFA';
  use Carp;
  
  use FLAT::Transition;
  
  sub new {
      my $pkg = shift;
!     my $self = $pkg->SUPER::new(@_); # Inherits constructor from NFA
!                                      # contains states (actually nodes), alphabet, and 
!                                      # transitions like NFA
      $self->{TIED} = [];              # tracks tied nodes
      $self->{ACTIVE_NODES} = [];      # tracks active nodes - could be label like start and final
--- 1,19 ----
! package FLAT::PFA;
  use strict;
! use base 'FLAT::FA';
  use Carp;
  
  use FLAT::Transition;
  
+ # eliminated from PFA.pm of FLAT::Legacy is the need to explicitly track:
+ ## start nodes, final nodes, symbols, and lambda & epsilon symbols,  
  sub new {
      my $pkg = shift;
!     my $self = $pkg->SUPER::new(@_);
!     $self->{NODE_TRANS_CLASS} = "FLAT::Transition";  
!     # \gamma - there is no need to have a state transition
!     # function (at this point) because nothing is really
!     # done on the state level.  If that is desired, one
!     # should just use the equivalent NFA
      $self->{TIED} = [];              # tracks tied nodes
      $self->{ACTIVE_NODES} = [];      # tracks active nodes - could be label like start and final