Rev 7044 | Rev 7069 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7044 | Rev 7046 | ||
---|---|---|---|
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 | !if |
14 | !if $s_ >1 |
15 | Sout=!listintersection $Sout and $sout_ |
15 | Sout=!listintersection $Sout and $sout_ |
16 | !else |
16 | !else |
17 | Sout=$sout_ |
17 | Sout=$sout_ |
18 | !endif |
18 | !endif |
19 | !next |
19 | !next |