Subversion Repositories wimsdev

Rev

Rev 7681 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7681 Rev 12733
Line 1... Line 1...
1
 
1
 
2
fcnt=!recordcnt $docdir/$doc/.index
2
fcnt=!recordcnt $docdir/$doc/.index
3
fcnt=$[min($fcnt,$blocklim)]
3
fcnt=$[min($fcnt,$blocklim)]
4
 
4
 
5
!for i=1 to $fcnt
5
!for i=1 to $fcnt
6
 l=!record $i of $docdir/$doc/.index
6
  l=!record $i of $docdir/$doc/.index
7
 !distribute lines $l into s_,t_
7
  !distribute lines $l into s_,t_
8
 t_=!detag $t_
8
  t_=!detag $t_
9
 slist=!append line $s_ to $slist
9
  slist=!append line $s_ to $slist
10
 tlist=!append line $ $t_ to $tlist
10
  tlist=!append line $ $t_ to $tlist
11
!next i
11
!next i
12
 
12
 
13
slist=!sort nocase lines $slist
13
slist=!sort nocase lines $slist
14
tlist=!line $wims_sort_order of $tlist
14
tlist=!line $wims_sort_order of $tlist