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}};
}
|
