[Perl-flat-cvs-notify] blokhead/dev-scripts bloktest.pl,1.6,1.7

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

Update of /cvsroot/perl-flat/blokhead/dev-scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20683/dev-scripts

Modified Files:
	bloktest.pl 
Log Message:
added NFA->contains, NFA->trace methods. now we can actually *use* these
  regular languages..



Index: bloktest.pl
===================================================================
RCS file: /cvsroot/perl-flat/blokhead/dev-scripts/bloktest.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** bloktest.pl	22 Feb 2006 04:58:23 -0000	1.6
--- bloktest.pl	24 Feb 2006 01:04:52 -0000	1.7
***************
*** 25,41 ****
  #######
  
! my $x = FLAT::NFA->singleton("a");
! my $y = FLAT::NFA->singleton("d");
! 
! my $z = $x->clone;
! $z->_swallow($y);
! 
! # print Dumper $x, $y, $z;
! 
! 
! ########
  
! $x = FLAT::NFA->singleton(undef);
! $y = $x->kleene;
  
! print Dumper $x, $y;
--- 25,36 ----
  #######
  
! my $nfa = foo("ab(c|d)*e");
  
! for (qw[ abe abce abcdcdcdcde bcde be abcd ab ]) {
!     printf "$_ in the language? %s\n",
!        $nfa->contains($_) ? "yes!" : "no";
!     my @t = $nfa->trace($_);
  
!     print "[@$_] " for @t;
!     print $/;
! }