Subversion Repositories wimsdev

Rev

Rev 12083 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12083 Rev 13631
Line 12... Line 12...
12 
      Soutlevel=!append item $sout_ to $Soutlevel
 12 
      Soutlevel=!append item $sout_ to $Soutlevel
13 
  !next
 13 
  !next
14 
  Soutlevel=!listuniq $Soutlevel
 14 
  Soutlevel=!listuniq $Soutlevel
15 
!endif
 15 
!endif
16 
!if $search_and=yes
 16 
!if $search_and=yes
17 
   srch1=!replace internal ,$ $ by , in $srch
 17 
  srch1=!replace internal ,$ $ by , in $srch
18 
   srch1=!items2lines $srch1
 18 
  srch1=!items2lines $srch1
19 
   scnt=!linecnt $srch1
 19 
  scnt=!linecnt $srch1
20 
   !for s_ = 1 to $scnt
 20 
  !for s_ = 1 to $scnt
21 
     sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
 21 
    sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
22 
     sout_=!words2items $sout_
 22 
    sout_=!words2items $sout_
23 
     sout_=!replace internal ?4 by ?2 in $sout_
 23 
    sout_=!replace internal ?4 by ?2 in $sout_
24 
     !if $s_ >1
 24 
    !if $s_ >1
25 
       Sout=!listintersection $Sout and $sout_
 25 
      Sout=!listintersection $Sout and $sout_
26 
     !else
 26 
    !else
27 
       Sout=$sout_
 27 
      Sout=$sout_
28 
     !endif
 - 
 
29 
   !next
 - 
 
30 
   sout=$Sout
 - 
 
31 
   !if $search_level!=$empty
 - 
 
32 
     sout=!listintersection $Sout and $Soutlevel
 - 
 
33 
   !endif
 - 
 
34 
 !else
 - 
 
35 
    scnt=!itemcnt $srch
 - 
 
36 
    !for s_ = 1 to $scnt
 - 
 
37 
      sout_=!lookup $(srch[$s_]) in wimshome/public_html/$dictionary
 - 
 
38 
      sout_=!words2items $sout_
 - 
 
39 
      Sout=!append item $sout_ to $Sout
 - 
 
40 
    !next
 - 
 
41 
    sout=!listuniq $Sout
 - 
 
42 
    !if $search_level!=$empty
 - 
 
43 
      sout=!replace internal ?4 by ?2 in $sout
 - 
 
44 
      sout=!listintersection $sout and $Soutlevel
 - 
 
45 
    !endif
 28 
    !endif
- 
 
 29 
  !next
- 
 
 30 
  sout=$Sout
- 
 
 31 
  !if $search_level!=$empty
- 
 
 32 
    sout=!listintersection $Sout and $Soutlevel
46 
 !endif
 33 
  !endif
- 
 
 34 
!else
- 
 
 35 
  scnt=!itemcnt $srch
- 
 
 36 
  !for s_ = 1 to $scnt
- 
 
 37 
    sout_=!lookup $(srch[$s_]) in wimshome/public_html/$dictionary
- 
 
 38 
    sout_=!words2items $sout_
- 
 
 39 
    Sout=!append item $sout_ to $Sout
- 
 
 40 
  !next
- 
 
 41 
  sout=!listuniq $Sout
- 
 
 42 
  !if $search_level!=$empty
- 
 
 43 
    sout=!replace internal ?4 by ?2 in $sout
- 
 
 44 
    sout=!listintersection $sout and $Soutlevel
- 
 
 45 
  !endif
- 
 
 46 
!endif
47 
 sout=!items2words $sout
 47 
sout=!items2words $sout
48 
 sout=!words2lines $sout
 48 
sout=!words2lines $sout
49 
 sout=!translate ? to $ $ in $sout
 49 
sout=!translate ? to $ $ in $sout
50 
 sout=!sort lines $sout
 50 
sout=!sort lines $sout
51 
 sout=!nonempty lines $sout
 51 
sout=!nonempty lines $sout
52 
 scnt=!linecnt $sout
 52 
scnt=!linecnt $sout
53 
 
 53 
 
54 
 !if $scnt > $gotlim2
 54 
!if $scnt > $gotlim2
55 
   warning=!append item $[$scnt-$gotlim2] to $warning
 55 
  warning=!append item $[$scnt-$gotlim2] to $warning
56 
!endif
 56 
!endif