Subversion Repositories wimsdev

Rev

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

Rev 6470 Rev 6516
Line 12... Line 12...
12 
 
 12 
 
13 
!if $srch!=$empty
 13 
!if $srch!=$empty
14 
 suffix_dictionary=
 14 
 suffix_dictionary=
15 
 dictionary=$search_package2/$search_category.$search_lang
 15 
 dictionary=$search_package2/$search_category.$search_lang
16 
 translator_unknown=
 16 
 translator_unknown=
17 
 !if $search_and=yes
 17 
 !read search.common
18 
   srch=!items2lines $srch
 - 
 
19 
 !endif
 - 
 
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
 - 
 
30 
 sout=!items2words $sout
 - 
 
31 
 sout=!words2lines $sout
 - 
 
32 
 sout=!translate ? to $ $ in $sout
 - 
 
33 
 sout=!sort lines $sout
 - 
 
34 
 sout=!nonempty lines $sout
 - 
 
35 
 scnt=!linecnt $sout
 - 
 
36 
 
 - 
 
37 
!else
 18 
!else
38 
 scnt=0
 19 
 scnt=0
39 
!endif
 20 
!endif
40 
 
 21 
 
41 
!distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod
 22 
!distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod