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

Useful ftell, commented out.

Browse source
This commit is contained in:
ehouse 2009-03-29 18:13:09 +00:00
parent 9e5b3f8f29
commit 8dca48b3ea
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
xwords4/dawg/dawg2dict.pl
View file

@ -28,6 +28,9 @@ my $gDoRaw = 0;
my $gFileType; my $gFileType;
my $gNodeSize; my $gNodeSize;
use Fcntl 'SEEK_CUR';
sub systell { sysseek($_[0], 0, SEEK_CUR) }
sub usage() { sub usage() {
print STDERR "USAGE: $0 " print STDERR "USAGE: $0 "
. "[-raw] " . "[-raw] "
@ -177,8 +180,10 @@ sub prepXWD($$$$) {
getSpecials( $fh, $nSpecials, \@specials ); getSpecials( $fh, $nSpecials, \@specials );
mergeSpecials( $facRef, \@specials ); mergeSpecials( $facRef, \@specials );
# printf STDERR "at 0x%x before offset read\n", systell($fh);
sysread( $fh, $buf, 4 ); sysread( $fh, $buf, 4 );
$$startRef = unpack( 'N', $buf ); $$startRef = unpack( 'N', $buf );
# print STDERR "startRef=$$startRef\n";
my @nodes = readNodesToEnd( $fh ); my @nodes = readNodesToEnd( $fh );