Subversion Repositories wimsdev

Rev

Rev 7044 | Rev 7069 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
6516 bpr 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.
3
!! sout=!exec translator $srch
6739 bpr 4
 
5
Sout=
6516 bpr 6
 !if $search_and=yes
6739 bpr 7
   srch1=!replace internal ,$ $ by , in $srch
8
   srch1=!items2lines $srch1
9
   scnt=!linecnt $srch1
6516 bpr 10
 
11
   !for s_ = 1 to $scnt
6739 bpr 12
     sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
6516 bpr 13
     sout_=!words2items $sout_
7046 bpr 14
     !if $s_ >1
6516 bpr 15
       Sout=!listintersection $Sout and $sout_
16
     !else
17
       Sout=$sout_
18
     !endif
19
   !next
20
   sout=$Sout
21
 !else
22
    scnt=!itemcnt $srch
23
    !for s_ = 1 to $scnt
24
      sout_=!lookup $(srch[$s_]) in wimshome/public_html/$dictionary
25
      sout_=!words2items $sout_
26
      Sout=!append item $sout_ to $Sout
27
    !next
28
    sout=!listuniq $Sout
29
 !endif
30
 sout=!items2words $sout
31
 sout=!words2lines $sout
32
 sout=!translate ? to $ $ in $sout
33
 sout=!sort lines $sout
34
 sout=!nonempty lines $sout
35
 scnt=!linecnt $sout
7044 bpr 36
 
37
 !if $scnt > $gotlim2
38
   warning=!append item $[$scnt-$gotlim2] to $warning
39
!endif
40