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

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

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: