Update of /cvsroot/perl-flat/perl-flat/lib/FLAT
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2951/lib/FLAT
Modified Files:
PFA.pm
Log Message:
...
Index: PFA.pm
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/lib/FLAT/PFA.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** PFA.pm 7 Apr 2006 20:14:34 -0000 1.5
--- PFA.pm 9 Apr 2006 19:37:31 -0000 1.6
***************
*** 6,19 ****
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
--- 6,16 ----
use FLAT::Transition;
! # The new way of doing things 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";
$self->{TIED} = []; # tracks tied nodes
$self->{ACTIVE_NODES} = []; # tracks active nodes - could be label like start and final
***************
*** 43,54 ****
}
sub as_pfa { $_[0]->clone() }
-
- # PFA->NFA conversion algorithm
- sub as_nfa {
-
- }
-
sub union {
--- 40,46 ----
}
+ # attack of the clones
sub as_pfa { $_[0]->clone() }
sub union {
***************
*** 68,71 ****
--- 60,68 ----
}
+ # PFA->NFA conversion algorithm
+ sub as_nfa {
+
+ }
+
# Implement?
sub reverse {
|
