|
From: <per...@li...> - 2006-02-24 21:27:22
|
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}}; } |