380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
|
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
|
+
+
+
-
-
+
+
+
|
return [lsort -index 1 -dict [lsort -index 0 -dict $candidates]]
}
method Expand1 {chan dir graph node} {
set revnr [$graph node get $node revnr]
set fname r$revnr
struct::list assign [$graph node get $node text] offset length
if {$length < 0} {
set data ""
} else {
seek $chan $offset start
set data [string map {@@ @} [read $chan $length]]
seek $chan $offset start
set data [string map {@@ @} [read $chan $length]]
}
if {![$graph node keyexists $node __base__]} {
# Full text node. Get the data, decode it, and save.
log write 2 file {Expanding <$revnr>, full text}
fileutil::writeFile -translation binary $dir/$fname $data
|