[Perl-flat-cvs-notify] flat4cpan/lib/FLAT/FA DFA.pm,1.2,1.3 PFA.pm,1.2,1.3 PRE.pm,1.2,1.3 RE.pm,1.2,1.3

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

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

Modified Files:
	DFA.pm PFA.pm PRE.pm RE.pm 
Log Message:
more tests...input and output files now

Index: DFA.pm
===================================================================
RCS file: /cvsroot/perl-flat/flat4cpan/lib/FLAT/FA/DFA.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DFA.pm	21 Feb 2006 14:43:40 -0000	1.2
--- DFA.pm	24 Feb 2006 21:27:15 -0000	1.3
***************
*** 37,41 ****
    my $class = shift;
    bless {
!     _START_STATE => undef,     # start states -> plural!
      _STATES => [],          # Set of all states
      _FINAL_STATES => [],    # Set of final states, subset of _STATES
--- 37,41 ----
    my $class = shift;
    bless {
!     _START_STATE => undef,  # start states -> plural!
      _STATES => [],          # Set of all states
      _FINAL_STATES => [],    # Set of final states, subset of _STATES

Index: PFA.pm
===================================================================
RCS file: /cvsroot/perl-flat/flat4cpan/lib/FLAT/FA/PFA.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** PFA.pm	21 Feb 2006 14:43:40 -0000	1.2
--- PFA.pm	24 Feb 2006 21:27:15 -0000	1.3
***************
*** 1081,1085 ****
    }
    # rename nodes as actual numbers    
!   my $number = 0;
    foreach ($self->get_nodes()) {
      $self->rename_node($_,$number);
--- 1081,1085 ----
    }
    # rename nodes as actual numbers    
!   $number = 0;
    foreach ($self->get_nodes()) {
      $self->rename_node($_,$number);

Index: PRE.pm
===================================================================
RCS file: /cvsroot/perl-flat/flat4cpan/lib/FLAT/FA/PRE.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** PRE.pm	21 Feb 2006 14:43:40 -0000	1.2
--- PRE.pm	24 Feb 2006 21:27:15 -0000	1.3
***************
*** 57,61 ****
  I<A B C D E F G H I J K L M N O P Q R S T U V W X Y Z>
  
! I<0 1 2 3 4 5 6 7 8 9 + - = , ? [ ] { } . ~ ^ @ % $>
  
  I<: ; < >>
--- 57,61 ----
  I<A B C D E F G H I J K L M N O P Q R S T U V W X Y Z>
  
! I<0 1 2 3 4 5 6 7 8 9 + - = ? [ ] { } . ~ ^ @ % $>
  
  I<: ; < >>
***************
*** 100,104 ****
      _TERMINALS => [qw(a b c d e f g h i j k l m n o p q r s t u v w x y z 
                        A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 
! 		      0 1 2 3 4 5 6 7 8 9 + - = , ? [ ] { } . ~ ^ @ % $ : 
  		      ; < >)],
      _TRACE => 0,
--- 100,104 ----
      _TERMINALS => [qw(a b c d e f g h i j k l m n o p q r s t u v w x y z 
                        A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 
! 		      0 1 2 3 4 5 6 7 8 9 + - = ? [ ] { } . ~ ^ @ % $ : 
  		      ; < >)],
      _TRACE => 0,

Index: RE.pm
===================================================================
RCS file: /cvsroot/perl-flat/flat4cpan/lib/FLAT/FA/RE.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** RE.pm	21 Feb 2006 14:43:40 -0000	1.2
--- RE.pm	24 Feb 2006 21:27:15 -0000	1.3
***************
*** 57,61 ****
  I<A B C D E F G H I J K L M N O P Q R S T U V W X Y Z>
  
! I<0 1 2 3 4 5 6 7 8 9 + - = , ? & [ ] { } . ~ ^ @ % $>
  
  I<: ; < >>
--- 57,61 ----
  I<A B C D E F G H I J K L M N O P Q R S T U V W X Y Z>
  
! I<0 1 2 3 4 5 6 7 8 9 + - = ? & [ ] { } . ~ ^ @ % $>
  
  I<: ; < >>
***************
*** 101,105 ****
      _TERMINALS => [qw(a b c d e f g h i j k l m n o p q r s t u v w x y z 
                        A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 
! 		      0 1 2 3 4 5 6 7 8 9 + - = , ? & [ ] { } . ~ ^ @ % $
  		      : ; < >)],
      _TRACE => 0,
--- 101,105 ----
      _TERMINALS => [qw(a b c d e f g h i j k l m n o p q r s t u v w x y z 
                        A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 
! 		      0 1 2 3 4 5 6 7 8 9 + - = ? & [ ] { } . ~ ^ @ % $
  		      : ; < >)],
      _TRACE => 0,
***************
*** 399,403 ****
    my $symbol = shift;
    my @ret = undef;
!   if (@{$self->{_SYMBOL_POS}}->[$state-1] eq $symbol) {
      @ret = @{$self->{_FOLLOW_POS}->{$state}};
    }
--- 399,403 ----
    my $symbol = shift;
    my @ret = undef;
!   if (@{$self->{_SYMBOL_POS}}[$state-1] eq $symbol) {
      @ret = @{$self->{_FOLLOW_POS}->{$state}};
    }