version 1.3, 2001/11/01 01:45:00
|
version 1.6, 2002/01/13 00:32:12
|
Line 64 my $nf;
|
Line 64 my $nf;
|
|
|
#open WARN, ">$warnings"; |
#open WARN, ">$warnings"; |
|
|
%forbidden=checktable('equalto')? getequalto : (); |
#%forbidden=checktable('equalto')? getequalto : (); |
|
|
|
|
if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"}; |
if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"}; |
Line 86 foreach $d(@dictionaries)
|
Line 86 foreach $d(@dictionaries)
|
chomp; |
chomp; |
s/\s*$//; |
s/\s*$//; |
($aa,$b)=split(/\//); |
($aa,$b)=split(/\//); |
|
$aa=~tr/ёЁ/еЕ/; |
$a= uc $aa; |
$a= uc $aa; |
$words{$a}.=$b || "!"; |
$words{$a}.=$b || "!"; |
} |
} |
Line 141 foreach $wordnumber(0..$#list)
|
Line 142 foreach $wordnumber(0..$#list)
|
{ |
{ |
@n= split ' ',$n; |
@n= split ' ',$n; |
$nfkvo{$_}++ foreach @n; |
$nfkvo{$_}++ foreach @n; |
$neww2k{$_}.=packword($fieldnumber, $id,$wordnumber%256) |
my $r=packword($fieldnumber, $id,$wordnumber%256); |
foreach (@n); |
print "$word !$r!\n"; |
|
$neww2k{$_}.=$r foreach (@n); |
} |
} |
else { |
else { |
if ($word=~/^${RLrl}+$/o){ # Русское слово |
if ($word=~/^${RLrl}+$/o){ # Русское слово |
Line 170 foreach $wordnumber(0..$#list)
|
Line 172 foreach $wordnumber(0..$#list)
|
$newnf{$word}.=" $nfnumber"; |
$newnf{$word}.=" $nfnumber"; |
$nfkvo{$nfnumber}++; |
$nfkvo{$nfnumber}++; |
$a=\$neww2k{$nfnumber}; |
$a=\$neww2k{$nfnumber}; |
$$a.=packword($fieldnumber, $id,$wordnumber); |
my $r=packword($fieldnumber, $id,$wordnumber); |
|
print "$word !!$r!\n"; |
|
$$a.=$r; |
if (length $$a>100) {flushw2k($nfnumber)} |
if (length $$a>100) {flushw2k($nfnumber)} |
} |
} |
else |
else |
{ |
{ |
$nfnumber=addnf(0, $f, $flag,1); |
$nfnumber=addnf(0, $f, $flag,1); |
$newnf{uc $word}.=" $nfnumber"; |
$newnf{uc $word}.=" $nfnumber"; |
$neww2k{$nfnumber}.=packword($fieldnumber, $id,$wordnumber); |
my $r=packword($fieldnumber, $id,$wordnumber); |
|
print "$word !!!$r!\n"; |
|
$neww2k{$nfnumber}.=$r; |
} |
} |
} |
} |
} |
} |