Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
6461 | bpr | 1 | !!##sheet |
6462 | bpr | 2 | basedir=bases/sheet/index |
33 | reyssat | 3 | !if $srch!=$empty |
4 | suffix_dictionary= |
||
6462 | bpr | 5 | dictionary=$basedir/$search_lang |
33 | reyssat | 6 | translator_unknown= |
7 | sout=!exec translator $srch |
||
8 | sout=!items2words $sout |
||
9 | sout=!words2lines $sout |
||
10 | sout=!translate ? to $ $ in $sout |
||
11 | sout=!sort lines $sout |
||
12 | sout=!nonempty lines $sout |
||
13 | scnt=!linecnt $sout |
||
14 | !else |
||
15 | scnt=0 |
||
16 | !endif |
||
17 | |||
18 | # Limit of shown items |
||
19 | gotlim=50 |
||
20 | !distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod |
||
21 | |||
22 | !for i=1 to $scnt |
||
23 | l_=!line $i of $sout |
||
24 | t_=!wordcnt $l_ |
||
25 | !if $t_=2 |
||
26 | !distribute word $l_ into m_,w_ |
||
27 | !if $m_=$lastmod or $gotcnt>$gotlim |
||
28 | weight=$[$weight+$w_] |
||
29 | !else |
||
30 | !if $lastmod!=$empty |
||
31 | gotm=$gotm $lastmod |
||
32 | gotw=$gotw $weight |
||
33 | !advance gotcnt |
||
34 | !endif |
||
35 | lastmod=$m_ |
||
36 | weight=$w_ |
||
37 | !endif |
||
38 | !endif |
||
39 | !next i |
||
40 | !if $lastmod!=$empty |
||
41 | gotm=$gotm $lastmod |
||
42 | gotw=$gotw $weight |
||
43 | !advance gotcnt |
||
44 | !endif |
||
45 | |||
46 | translator_switch=leaveline |
||
47 | !if $gotcnt=0 |
||
48 | gottype=popular |
||
49 | !else |
||
50 | gottype=search |
||
51 | gotw=!words2lines $gotw |
||
52 | gotm=!words2lines $gotm |
||
6462 | bpr | 53 | dictionary=$basedir/weight.$search_lang |
33 | reyssat | 54 | gotW=!exec translator $gotm |
55 | w_= |
||
56 | !for i=1 to $gotcnt |
||
57 | u_=!line $i of $gotw |
||
58 | v_=!line $i of $gotW |
||
59 | w_=!append line $[round(100*($u_+1)/($v_+1)^0.7)] to $w_ |
||
60 | !next i |
||
61 | gotw=!sort reverse numeric lines $w_ |
||
62 | gotm=!line $wims_sort_order of $gotm |
||
63 | !endif |
||
64 | |||
6462 | bpr | 65 | dictionary=$basedir/title.$search_lang |
33 | reyssat | 66 | gott=!exec translator $gotm |
6462 | bpr | 67 | dictionary=$basedir/description.$search_lang |
33 | reyssat | 68 | gotd=!exec translator $gotm |
69 | !if $gotcnt>0 and / notin $gotm |
||
6462 | bpr | 70 | dictionary=$basedir/addr.$search_lang |
33 | reyssat | 71 | gotm=!exec translator $gotm |
72 | !endif |
||
73 |