Subversion Repositories wimsdev

Rev

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

Rev 7046 Rev 7069
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_and=yes
6
 !if $search_and=yes
Line 9... Line 9...
9
   scnt=!linecnt $srch1
9
   scnt=!linecnt $srch1
10
 
10
 
11
   !for s_ = 1 to $scnt
11
   !for s_ = 1 to $scnt
12
     sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
12
     sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
13
     sout_=!words2items $sout_
13
     sout_=!words2items $sout_
-
 
14
     sout_=!replace internal ?4 by ?2 in $sout_
14
     !if $s_ >1
15
     !if $s_ >1
15
       Sout=!listintersection $Sout and $sout_
16
       Sout=!listintersection $Sout and $sout_
16
     !else
17
     !else
17
       Sout=$sout_
18
       Sout=$sout_
18
     !endif
19
     !endif
Line 31... Line 32...
31
 sout=!words2lines $sout
32
 sout=!words2lines $sout
32
 sout=!translate ? to $ $ in $sout
33
 sout=!translate ? to $ $ in $sout
33
 sout=!sort lines $sout
34
 sout=!sort lines $sout
34
 sout=!nonempty lines $sout
35
 sout=!nonempty lines $sout
35
 scnt=!linecnt $sout
36
 scnt=!linecnt $sout
36
 
37
 
37
 !if $scnt > $gotlim2
38
 !if $scnt > $gotlim2
38
   warning=!append item $[$scnt-$gotlim2] to $warning
39
   warning=!append item $[$scnt-$gotlim2] to $warning
39
!endif
40
!endif
40
 
41