Subversion Repositories wimsdev

Rev

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

Rev 6462 Rev 6470
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
-
 
8
   srch=!items2lines $srch
-
 
9
 !endif
7
 sout=!exec translator $srch
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
8
 sout=!items2words $sout
20
 sout=!items2words $sout
9
 sout=!words2lines $sout
21
 sout=!words2lines $sout
10
 sout=!translate ? to $ $ in $sout
22
 sout=!translate ? to $ $ in $sout
11
 sout=!sort lines $sout
23
 sout=!sort lines $sout
12
 sout=!nonempty lines $sout
24
 sout=!nonempty lines $sout