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_level!=$empty

  Soutlevel=

  slcnt=!itemcnt $search_level

  !for s_ = 1 to $slcnt

    sout_=!lookup $(search_level[$s_]) in wimshome/public_html/$dictionary

    sout_=!words2items $sout_

    Soutlevel=!append item $sout_ to $Soutlevel

  !next

  Soutlevel=!listuniq $Soutlevel

!endif

!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

  !if $search_level!=$empty

    sout=!listintersection $Sout and $Soutlevel

  !endif

!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

  !if $search_level!=$empty

    sout=!replace internal ?4 by ?2 in $sout

    sout=!listintersection $sout and $Soutlevel

  !endif

!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