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