Miroirs/xwords
1
0
Fork 0
mirror of git://xwords.git.sourceforge.net/gitroot/xwords/xwords synced 2024-12-30 10:26:58 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

use unpack to correctly pull wordcount, note and checksum

Browse source
This commit is contained in:
Eric House 2012-09-13 19:07:37 -07:00
parent 20afa9fd56
commit aaa12a291e
1 changed files with 3 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
xwords4/dawg/dawg2dict.pl
View file

@ -169,17 +169,9 @@ sub readNodesToEnd($) {
sub printHeader($$) {
my ( $buf, $len ) = @_;
printf STDERR "skipped %d bytes of header:\n", $len + 2;
my $asStr = Encode::decode_utf8($buf);
my @strs = split( '\0', $asStr );
# There are variable numbers of strings showing up in this thing.
# Need to figure out the right way to unpack the thing.
$gDesc = $strs[1];
$gSum = $strs[2];
foreach my $str (@strs) {
if ( 0 < length($str) ) {
print STDERR 'Got: ', $str, "\n";
}
}
my $count;
($count, $gDesc, $gSum) = unpack( 'N Z* Z*', $buf );
printf STDERR "has %d words\n", $count;
}
sub nodeSizeFromFlags($$) {