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 |