Rev 6739 | Go to most recent revision | Details | 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 |
||
| 4 | Sout= |
||
| 5 | !if $search_and=yes |
||
| 6 | srch=!items2lines $srch |
||
| 7 | scnt=!linecnt $srch |
||
| 8 | |||
| 9 | !for s_ = 1 to $scnt |
||
| 10 | sout_=!lookup $(srch[$s_;]) in wimshome/public_html/$dictionary |
||
| 11 | sout_=!words2items $sout_ |
||
| 12 | !if $Sout!=$empty |
||
| 13 | Sout=!listintersection $Sout and $sout_ |
||
| 14 | !else |
||
| 15 | Sout=$sout_ |
||
| 16 | !endif |
||
| 17 | !next |
||
| 18 | sout=$Sout |
||
| 19 | !else |
||
| 20 | scnt=!itemcnt $srch |
||
| 21 | !for s_ = 1 to $scnt |
||
| 22 | sout_=!lookup $(srch[$s_]) in wimshome/public_html/$dictionary |
||
| 23 | sout_=!words2items $sout_ |
||
| 24 | Sout=!append item $sout_ to $Sout |
||
| 25 | !next |
||
| 26 | sout=!listuniq $Sout |
||
| 27 | !endif |
||
| 28 | sout=!items2words $sout |
||
| 29 | sout=!words2lines $sout |
||
| 30 | sout=!translate ? to $ $ in $sout |
||
| 31 | sout=!sort lines $sout |
||
| 32 | sout=!nonempty lines $sout |
||
| 33 | scnt=!linecnt $sout |
||
| 34 |