Subversion Repositories wimsdev

Rev

Rev 7679 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7679 Rev 12821
Line 2... Line 2...
2 
basedir=bases/class
 2 
basedir=bases/class
3 
!if $srch!=$empty
 3 
!if $srch!=$empty
4 
 suffix_dictionary=
 4 
  suffix_dictionary=
5 
 dictionary=$basedir/$search_lang
 5 
  dictionary=$basedir/$search_lang
6 
 translator_unknown=
 6 
  translator_unknown=
7 
 !read search.common
 7 
  !read search.common
8 
!else
 8 
!else
9 
 scnt=0
 9 
  scnt=0
10 
!endif
 10 
!endif
11 
# Limit of shown items
 11 
# Limit of shown items
12 
gotlim=1000
 12 
gotlim=1000
13 
!distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod
 13 
!distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod
14 
 
 14 
 
15 
!for i=1 to $scnt
 15 
!for i=1 to $scnt
16 
 l_=!line $i of $sout
 16 
  l_=!line $i of $sout
17 
 t_=!wordcnt $l_
 17 
  t_=!wordcnt $l_
18 
 !advance gotcnt
 18 
  !advance gotcnt
19 
 !if $t_=2
 19 
  !if $t_=2
20 
  !distribute word $l_ into m_,w_
 20 
    !distribute word $l_ into m_,w_
21 
  !if $m_=$lastmod or $gotcnt>$gotlim
 21 
    !if $m_=$lastmod or $gotcnt>$gotlim
22 
   weight=$[$weight+$w_]
 22 
      weight=$[$weight+$w_]
- 
 
 23 
    !else
- 
 
 24 
      !if $lastmod!=$empty
- 
 
 25 
        gotm=$gotm $lastmod
- 
 
 26 
        gotw=$gotw $weight
- 
 
 27 
        !advance gotcnt
- 
 
 28 
      !endif
- 
 
 29 
      lastmod=$m_
- 
 
 30 
      weight=$w_
- 
 
 31 
    !endif
23 
  !else
 32 
  !else
24 
   !if $lastmod!=$empty
 - 
 
25 
    gotm=$gotm $lastmod
 33 
    gotm=$gotm $l_
26 
    gotw=$gotw $weight
 - 
 
27 
    !advance gotcnt
 - 
 
28 
   !endif
 - 
 
29 
   lastmod=$m_
 - 
 
30 
   weight=$w_
 - 
 
31 
  !endif
 34 
  !endif
32 
  !else
 - 
 
33 
   gotm=$gotm $l_
 - 
 
34 
 !endif
 - 
 
35 
!next i
 35 
!next i
36 
!if $lastmod!=$empty
 36 
!if $lastmod!=$empty
37 
 gotm=$gotm $lastmod
 37 
  gotm=$gotm $lastmod
38 
 gotw=$gotw $weight
 38 
  gotw=$gotw $weight
39 
 !advance gotcnt
 39 
  !advance gotcnt
40 
!endif
 40 
!endif
41 
 
 41 
 
42 
gotm=!words2lines $gotm
 42 
gotm=!words2lines $gotm
43 
gotm=!line 1 to $gotlim2 of $gotm
 43 
gotm=!line 1 to $gotlim2 of $gotm
44 
gotcnt=!linecnt $gotm
 44 
gotcnt=!linecnt $gotm
Line 50... Line 50...
50 
gotd=!exec translator $gotm
 50 
gotd=!exec translator $gotm
51 
dictionary=$basedir/information
 51 
dictionary=$basedir/information
52 
gotiC=!exec translator $gotm
 52 
gotiC=!exec translator $gotm
53 
 
 53 
 
54 
!if $gotcnt>0 and / notin $gotm
 54 
!if $gotcnt>0 and / notin $gotm
55 
 dictionary=$basedir/addr
 55 
  dictionary=$basedir/addr
56 
 gotm=!exec translator $gotm
 56 
  gotm=!exec translator $gotm
57 
!endif
 57 
!endif