Subversion Repositories wimsdev

Rev

Rev 2725 | Rev 6516 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2725 Rev 6470
Line 7... Line 7...
7 
# Output variables:
 7 
# Output variables:
8 
# gotm, gotw, gotcnt
 8 
# gotm, gotw, gotcnt
9 
# gotw is only for debugging uses.
 9 
# gotw is only for debugging uses.
10 
!nocache
 10 
!nocache
11 
!default search_lang=$lang
 11 
!default search_lang=$lang
- 
 
 12 
 
12 
!if $srch!=$empty
 13 
!if $srch!=$empty
13 
 suffix_dictionary=
 14 
 suffix_dictionary=
14 
 dictionary=$search_package2/$search_category.$search_lang
 15 
 dictionary=$search_package2/$search_category.$search_lang
15 
 translator_unknown=
 16 
 translator_unknown=
- 
 
 17 
 !if $search_and=yes
- 
 
 18 
   srch=!items2lines $srch
- 
 
 19 
 !endif
16 
 sout=!exec translator $srch
 20 
 sout=!exec translator $srch
- 
 
 21 
 !if $search_and=yes
- 
 
 22 
   scnt=!linecnt $srch
- 
 
 23 
   Sout=!words2items $(sout[1;])
- 
 
 24 
   !for s=2 to $scnt
- 
 
 25 
     S=!words2items $(sout[$s;])
- 
 
 26 
     Sout=!listintersection $Sout and $S
- 
 
 27 
   !next
- 
 
 28 
    sout=$Sout
- 
 
 29 
 !endif
17 
 sout=!items2words $sout
 30 
 sout=!items2words $sout
18 
 sout=!words2lines $sout
 31 
 sout=!words2lines $sout
19 
 sout=!translate ? to $ $ in $sout
 32 
 sout=!translate ? to $ $ in $sout
20 
 sout=!sort lines $sout
 33 
 sout=!sort lines $sout
21 
 sout=!nonempty lines $sout
 34 
 sout=!nonempty lines $sout
22 
 scnt=!linecnt $sout
 35 
 scnt=!linecnt $sout
- 
 
 36 
 
23 
!else
 37 
!else
24 
 scnt=0
 38 
 scnt=0
25 
!endif
 39 
!endif
26 
 
 40 
 
27 
!distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod
 41 
!distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod