Subversion Repositories wimsdev

Rev

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

Rev 6516 Rev 6739
Line 2... Line 2...
2 
!! words is not found, the words are searched. I would like not.
 2 
!! words is not found, the words are searched. I would like not.
3 
!! sout=!exec translator $srch
 3 
!! sout=!exec translator $srch
- 
 
 4 
 
4 
 Sout=
 5 
Sout=
5 
 !if $search_and=yes
 6 
 !if $search_and=yes
- 
 
 7 
   srch1=!replace internal ,$ $ by , in $srch
6 
   srch=!items2lines $srch
 8 
   srch1=!items2lines $srch1
7 
   scnt=!linecnt $srch
 9 
   scnt=!linecnt $srch1
8 
 
 10 
 
9 
   !for s_ = 1 to $scnt
 11 
   !for s_ = 1 to $scnt
10 
     sout_=!lookup $(srch[$s_;]) in wimshome/public_html/$dictionary
 12 
     sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
11 
     sout_=!words2items $sout_
 13 
     sout_=!words2items $sout_
12 
     !if $Sout!=$empty
 14 
     !if $Sout!=$empty
13 
       Sout=!listintersection $Sout and $sout_
 15 
       Sout=!listintersection $Sout and $sout_
14 
     !else
 16 
     !else
15 
       Sout=$sout_
 17 
       Sout=$sout_
Line 29... Line 31...
29 
 sout=!words2lines $sout
 31 
 sout=!words2lines $sout
30 
 sout=!translate ? to $ $ in $sout
 32 
 sout=!translate ? to $ $ in $sout
31 
 sout=!sort lines $sout
 33 
 sout=!sort lines $sout
32 
 sout=!nonempty lines $sout
 34 
 sout=!nonempty lines $sout
33 
 scnt=!linecnt $sout
 35 
 scnt=!linecnt $sout
34 
 
 -