Subversion Repositories wimsdev

Rev

Rev 6470 | Rev 6959 | 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/class
 2 
basedir=bases/class
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 $sout=$srch
 - 
 
12 
   sout=$empty
 - 
 
13 
 !endif
 - 
 
14 
 !if $search_and=yes
 - 
 
15 
   scnt=!linecnt $srch
 - 
 
16 
   Sout=!words2items $(sout[1;])
 - 
 
17 
   !for s=2 to $scnt
 - 
 
18 
     S=!words2items $(sout[$s;])
 - 
 
19 
     Sout=!listintersection $Sout and $S
 - 
 
20 
   !next
 - 
 
21 
    sout=$Sout
 - 
 
22 
 !endif
 - 
 
23 
 
 - 
 
24 
 sout=!items2words $sout
 - 
 
25 
 sout=!words2lines $sout
 - 
 
26 
 sout=!translate ? to $ $ in $sout
 - 
 
27 
 sout=!sort lines $sout
 - 
 
28 
 sout=!nonempty lines $sout
 - 
 
29 
 scnt=!linecnt $sout
 - 
 
30 
 
 - 
 
31 
!else
 8 
!else
32 
 scnt=0
 9 
 scnt=0
33 
!endif
 10 
!endif
34 
# Limit of shown items
 11 
# Limit of shown items
35 
gotlim=50
 12 
gotlim=50