Miroirs/xwords
1
0
Fork 0
mirror of git://xwords.git.sourceforge.net/gitroot/xwords/xwords synced 2025-02-05 20:45:49 +01:00
Code Issues Projects Releases Packages Wiki Activity

track last word for debugging purposes.

Browse source
This commit is contained in:
ehouse 2004-07-21 02:06:24 +00:00
parent c955c24dc3
commit bccdedea9e
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
dawg/dict2dawg.pl
View file

@ -392,6 +392,7 @@ sub parseAndSort() {
my @wordlist;
my @word;
my $lastWord;
WORDLOOP:
for ( ; ; ) {
@ -409,14 +410,19 @@ sub parseAndSort() {
push @wordlist, [ @word ];
++$gWordCount;
}
$lastWord = "";
next WORDLOOP;
} elsif ( exists( $gTableHash{$byt} ) ) {
if ( !$dropWord ) {
push @word, $gTableHash{$byt};
die "word too long" if @word > 15;
if ( $gKillIfMissing ) {
$lastWord .= $byt;
}
}
} elsif ($gKillIfMissing) {
die "$0: chr $byt (", $byt+0, ") not in map file $gTableFile\n";
die "$0: chr $byt (", $byt+0, ") not in map file $gTableFile\n"
. "last word was $lastWord\n";
} else {
$dropWord = 1;
splice @word; # lose anything we already have