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 |