Update of /cvsroot/perl-flat/perl-flat/lib/FLAT
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1200/lib/FLAT
Modified Files:
PFA.pm Regex.pm
Log Message:
getting things down slowly
Index: PFA.pm
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/lib/FLAT/PFA.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** PFA.pm 10 Mar 2006 06:00:23 -0000 1.3
--- PFA.pm 12 Mar 2006 05:03:50 -0000 1.4
***************
*** 43,51 ****
# 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
--- 43,60 ----
# PFA->NFA conversion algorithm
sub as_nfa {
!
}
! sub union {
!
! }
!
! sub concat {
!
! }
!
! sub kleene {
!
! }
# Shuffle constructor - pinch with lambda transitions
***************
*** 54,59 ****
}
sub reverse {
! croak "Not implemented for PFAs (yet?)";
}
--- 63,69 ----
}
+ # Implement?
sub reverse {
!
}
Index: Regex.pm
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/lib/FLAT/Regex.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Regex.pm 24 Feb 2006 18:42:09 -0000 1.5
--- Regex.pm 12 Mar 2006 05:03:50 -0000 1.6
***************
*** 52,55 ****
--- 52,58 ----
}
+ sub as_pfa {
+ $_[0]->op->as_pfa;
+ }
#### regular language standard interface implementation:
|
