Menu
▾
▴
[Perl-flat-cvs-notify] SF.net SVN: perl-flat: [72] trunk/perl-flat-legacy/lib/FLAT/Legacy
|
From: notifies s. of c. c. <per...@li...> - 2006-09-26 23:17:15
|
Revision: 72
http://svn.sourceforge.net/perl-flat/?rev=72&view=rev
Author: estrabd
Date: 2006-09-26 16:17:12 -0700 (Tue, 26 Sep 2006)
Log Message:
-----------
fixed the spelling of complement
Modified Paths:
--------------
trunk/perl-flat-legacy/lib/FLAT/Legacy/FA/PFA.pm
trunk/perl-flat-legacy/lib/FLAT/Legacy/FA.pm
Modified: trunk/perl-flat-legacy/lib/FLAT/Legacy/FA/PFA.pm
===================================================================
--- trunk/perl-flat-legacy/lib/FLAT/Legacy/FA/PFA.pm 2006-09-26 13:22:54 UTC (rev 71)
+++ trunk/perl-flat-legacy/lib/FLAT/Legacy/FA/PFA.pm 2006-09-26 23:17:12 UTC (rev 72)
@@ -226,7 +226,7 @@
# @next contains new, obviously
push(@next,@new);
# @next also contains @T - @tied
- push(@next,$self->compliment(\@T,\@tied));
+ push(@next,$self->complement(\@T,\@tied));
# see if the resulting state can be added to @Dstates
my $state = $self->serialize_name(@next);
if (!defined($Dtran{$state})) {
@@ -240,7 +240,7 @@
if (defined($self->{_TRANSITIONS}{$node}{$symbol})) {
my @new = $self->get_transition_on($node,$symbol);
foreach my $new (@new) {
- my @next = $self->compliment(\@T,[$node]);
+ my @next = $self->complement(\@T,[$node]);
push(@next,$new);
my $state = $self->serialize_name(@next);
if (!defined($Dtran{$state})) {
Modified: trunk/perl-flat-legacy/lib/FLAT/Legacy/FA.pm
===================================================================
--- trunk/perl-flat-legacy/lib/FLAT/Legacy/FA.pm 2006-09-26 13:22:54 UTC (rev 71)
+++ trunk/perl-flat-legacy/lib/FLAT/Legacy/FA.pm 2006-09-26 23:17:12 UTC (rev 72)
@@ -235,7 +235,7 @@
close(FH);
}
-sub compliment {
+sub complement {
my $self = shift;
my $set1 = shift;
my $set2 = shift;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
