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 |