[BACK]Return to updateRS1.pl CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/updateRS1.pl between versions 1.4 and 1.8

version 1.4, 2001/12/05 00:17:53 version 1.8, 2002/06/15 03:46:31
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 142  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 171  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);
                          $$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);
                         $neww2k{$nfnumber}.=$r;
                    }                     }
                }                 }
            }             }
Removed from v.1.4  
changed lines
  Added in v.1.8

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