Subversion Repositories wimsdev

Rev

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

Rev 7679 Rev 11379
Line 1... Line 1...
1 
!! should create an option in translator : for the moment, if a group of
 1 
!! should create an option in translator : for the moment, if a group of
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 
 
5 
Sout=
 5 
Sout=
- 
 
 6 
!if $search_level!=$empty
- 
 
 7 
  Soutlevel=
- 
 
 8 
  slcnt=!itemcnt $search_level
- 
 
 9 
  !for s_ = 1 to $slcnt
- 
 
 10 
      sout_=!lookup $(search_level[$s_]) in wimshome/public_html/$dictionary
- 
 
 11 
      sout_=!words2items $sout_
- 
 
 12 
      Soutlevel=!append item $sout_ to $Soutlevel
- 
 
 13 
  !next
- 
 
 14 
!endif
6 
 !if $search_and=yes
 15 
!if $search_and=yes
7 
   srch1=!replace internal ,$ $ by , in $srch
 16 
   srch1=!replace internal ,$ $ by , in $srch
8 
   srch1=!items2lines $srch1
 17 
   srch1=!items2lines $srch1
9 
   scnt=!linecnt $srch1
 18 
   scnt=!linecnt $srch1
10 
 
 19 
 
11 
   !for s_ = 1 to $scnt
 20 
   !for s_ = 1 to $scnt
Line 17... Line 26...
17 
     !else
 26 
     !else
18 
       Sout=$sout_
 27 
       Sout=$sout_
19 
     !endif
 28 
     !endif
20 
   !next
 29 
   !next
21 
   sout=$Sout
 30 
   sout=$Sout
- 
 
 31 
   !if $search_level!=$empty
- 
 
 32 
     sout=!listintersection $Sout and $Soutlevel
- 
 
 33 
   !endif
22 
 !else
 34 
 !else
23 
    scnt=!itemcnt $srch
 35 
    scnt=!itemcnt $srch
24 
    !for s_ = 1 to $scnt
 36 
    !for s_ = 1 to $scnt
25 
      sout_=!lookup $(srch[$s_]) in wimshome/public_html/$dictionary
 37 
      sout_=!lookup $(srch[$s_]) in wimshome/public_html/$dictionary
26 
      sout_=!words2items $sout_
 38 
      sout_=!words2items $sout_
27 
      Sout=!append item $sout_ to $Sout
 39 
      Sout=!append item $sout_ to $Sout
28 
    !next
 40 
    !next
29 
    sout=!listuniq $Sout
 41 
    sout=!listuniq $Sout
- 
 
 42 
    !if $search_level!=$empty
- 
 
 43 
      sout=!listintersection $sout and $Soutlevel
- 
 
 44 
    !endif
30 
 !endif
 45 
 !endif
31 
 sout=!items2words $sout
 46 
 sout=!items2words $sout
32 
 sout=!words2lines $sout
 47 
 sout=!words2lines $sout
33 
 sout=!translate ? to $ $ in $sout
 48 
 sout=!translate ? to $ $ in $sout
34 
 sout=!sort lines $sout
 49 
 sout=!sort lines $sout