Subversion Repositories wimsdev

Rev

Rev 7681 | Go to most recent revision | Details | Last modification | View Log | RSS feed

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