Diff for /db/prgsrc/updateRS1.pl between versions 1.3 and 1.7

version 1.3, 2001/11/01 01:45:00 version 1.7, 2002/06/15 03:43:48
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);                  $neww2k{$_}.=$r foreach (@n);
            }             }
            else {             else {
              if ($word=~/^${RLrl}+$/o){ # Русское слово               if ($word=~/^${RLrl}+$/o){ # Русское слово
Line 170  foreach $wordnumber(0..$#list) Line 171  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;
                    }                     }
                }                 }
            }             }

Removed from v.1.3  
changed lines
  Added in v.1.7


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>