Subversion Repositories wimsdev

!! should create an option in translator : for the moment, if a group of
!! words is not found, the words are searched. I would like not.
!! sout=!exec translator $srch

Sout=
 !if $search_and=yes
   srch1=!replace internal ,$ $ by , in $srch
   srch1=!items2lines $srch1
   scnt=!linecnt $srch1

   !for s_ = 1 to $scnt
     sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
     sout_=!words2items $sout_
     sout_=!replace internal ?4 by ?2 in $sout_
     !if $s_ >1
       Sout=!listintersection $Sout and $sout_
     !else
       Sout=$sout_
     !endif
   !next
   sout=$Sout
 !else
    scnt=!itemcnt $srch
    !for s_ = 1 to $scnt
      sout_=!lookup $(srch[$s_]) in wimshome/public_html/$dictionary
      sout_=!words2items $sout_
      Sout=!append item $sout_ to $Sout
    !next
    sout=!listuniq $Sout
 !endif
 sout=!items2words $sout
 sout=!words2lines $sout
 sout=!translate ? to $ $ in $sout
 sout=!sort lines $sout
 sout=!nonempty lines $sout
 scnt=!linecnt $sout

 !if $scnt > $gotlim2
   warning=!append item $[$scnt-$gotlim2] to $warning
!endif