Subversion Repositories wimsdev

Rev

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 $Sout!=$empty
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