Subversion Repositories wimsdev

Rev

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

Rev 6470 Rev 6516
Line 2... Line 2...
2 
basedir=bases/sheet/index
 2 
basedir=bases/sheet/index
3 
!if $srch!=$empty
 3 
!if $srch!=$empty
4 
 suffix_dictionary=
 4 
 suffix_dictionary=
5 
 dictionary=$basedir/$search_lang
 5 
 dictionary=$basedir/$search_lang
6 
 translator_unknown=
 6 
 translator_unknown=
7 
 !if $search_and=yes
 7 
 !read search.common
8 
   srch=!items2lines $srch
 - 
 
9 
 !endif
 - 
 
10 
 sout=!exec translator $srch
 - 
 
11 
 !if $search_and=yes
 - 
 
12 
   scnt=!linecnt $srch
 - 
 
13 
   Sout=!words2items $(sout[1;])
 - 
 
14 
   !for s=2 to $scnt
 - 
 
15 
     S=!words2items $(sout[$s;])
 - 
 
16 
     Sout=!listintersection $Sout and $S
 - 
 
17 
   !next
 - 
 
18 
    sout=$Sout
 - 
 
19 
 !endif
 - 
 
20 
 sout=!items2words $sout
 - 
 
21 
 sout=!words2lines $sout
 - 
 
22 
 sout=!translate ? to $ $ in $sout
 - 
 
23 
 sout=!sort lines $sout
 - 
 
24 
 sout=!nonempty lines $sout
 - 
 
25 
 scnt=!linecnt $sout
 - 
 
26 
!else
 8 
!else
27 
 scnt=0
 9 
 scnt=0
28 
!endif
 10 
!endif
29 
 
 11 
 
30 
# Limit of shown items
 12 
# Limit of shown items