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

Diff for /db/prgsrc/updateRS1.pl between versions 1.6 and 1.9

version 1.6, 2002/01/13 00:32:12 version 1.9, 2002/08/01 01:20:47
Line 99  die "No dictionaries found! Check your c Line 99  die "No dictionaries found! Check your c
 print "Getting words...\n";  print "Getting words...\n";
   
 print TIME "\t\t".(time-$initime)."\n";  print TIME "\t\t".(time-$initime)."\n";
   my $broken=0;
   
 for my $commonI(1..$times)  for my $commonI(1..$times)
 {  {
   last if $broken;
   
 print "loading nests\n";  print "loading nests\n";
   
Line 119  while ((++$sch<=$qlimit) && (($id, @ss) Line 120  while ((++$sch<=$qlimit) && (($id, @ss)
                              # и вешаем в массив, индексы которого -- словоформы,                               # и вешаем в массив, индексы которого -- словоформы,
                              # а значения -- списки вопросов.                                # а значения -- списки вопросов. 
 {  {
      if (-e "RS_stop")  {unlink("RS_stop"); $broken=1;last}
    print "$sch $id\n" ;#unless (++$sch % 1);     print "$sch $id\n" unless ($sch % 10);#unless (++$sch % 1);
    searchmark($id);     searchmark($id);
    if ($forbidden{$id}) {next};     if ($forbidden{$id}) {next};
    foreach $fieldnumber (0..$#ss) #перебираем поля     foreach $fieldnumber (0..$#ss) #перебираем поля
Line 143  foreach $wordnumber(0..$#list) Line 144  foreach $wordnumber(0..$#list)
                 @n= split ' ',$n;                  @n= split ' ',$n;
                 $nfkvo{$_}++ foreach @n;                  $nfkvo{$_}++ foreach @n;
                 my $r=packword($fieldnumber, $id,$wordnumber%256);                  my $r=packword($fieldnumber, $id,$wordnumber%256);
                 print "$word !$r!\n";  
                 $neww2k{$_}.=$r foreach (@n);                  $neww2k{$_}.=$r foreach (@n);
            }             }
            else {             else {
Line 173  foreach $wordnumber(0..$#list) Line 173  foreach $wordnumber(0..$#list)
                        $nfkvo{$nfnumber}++;                         $nfkvo{$nfnumber}++;
                        $a=\$neww2k{$nfnumber};                         $a=\$neww2k{$nfnumber};
                        my $r=packword($fieldnumber, $id,$wordnumber);                         my $r=packword($fieldnumber, $id,$wordnumber);
 print "$word !!$r!\n";  
                        $$a.=$r;                         $$a.=$r;
                        if (length $$a>100) {flushw2k($nfnumber)}                         if (length $$a>100) {flushw2k($nfnumber)}
                    }                     }
Line 182  print "$word !!$r!\n"; Line 181  print "$word !!$r!\n";
                       $nfnumber=addnf(0, $f, $flag,1);                        $nfnumber=addnf(0, $f, $flag,1);
                       $newnf{uc $word}.=" $nfnumber";                        $newnf{uc $word}.=" $nfnumber";
                        my $r=packword($fieldnumber, $id,$wordnumber);                         my $r=packword($fieldnumber, $id,$wordnumber);
 print "$word !!!$r!\n";  
                       $neww2k{$nfnumber}.=$r;                        $neww2k{$nfnumber}.=$r;
                    }                     }
                }                 }
Removed from v.1.6  
changed lines
  Added in v.1.9

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