Rev 7681 | Details | Compare with Previous | 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 |
||
| 12733 | bpr | 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 |
||
| 20 | reyssat | 11 | !next i |
| 12 | |||
| 13 | slist=!sort nocase lines $slist |
||
| 14 | tlist=!line $wims_sort_order of $tlist |