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 | ||