Subversion Repositories wimsdev

# This is the search kernel routine. To be replaced by a c program,

# when the intermediate output risks to overflow.

#

# Input parameters:

# srch, search_category, gotlim, gotlim2

#

# Output variables:

# gotm, gotw, gotcnt

# gotw is only for debugging uses.

!nocache

!distribute words $wims_read_parm into s_cat

!default search_lang=$lang

!default s_cat=$search_category

srch=!singlespace $srch

srch=!replace internal ,$ $ by , in $srch

srch=!replace internal $ $, by , in $srch

!if $srch!=$empty

 suffix_dictionary=

 dictionary=$search_package2/$s_cat.$search_lang

 translator_unknown=

 !read search.common

!else

 scnt=0

!endif

!distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod

!for i=1 to $scnt

 l_=!line $i of $sout

 t_=!wordcnt $l_

 !if $t_=2

  !distribute word $l_ into m_,w_

  !if $m_=$lastmod

   weight=$[$weight+$w_]

  !else

   !if $lastmod!=$empty

    gotm=$gotm $lastmod

    gotw=$gotw $weight

    !advance gotcnt

    !if $gotcnt>=$gotlim

     !goto bailout

    !endif

   !endif

   lastmod=$m_

   weight=$w_

  !endif

 !endif

!next i

:bailout

!if $lastmod!=$empty and $gotcnt<$gotlim

 gotm=$gotm $lastmod

 gotw=$gotw $weight

 !advance gotcnt

!endif

!if $gotcnt>0

 translator_switch=leavelines

 translator_unknown=200

 gotw=!words2lines $gotw

 gotm=!words2lines $gotm

 dictionary=$search_package2/weight.$search_lang

 gotW=!exec translator $gotm

 dictionary=$search_package2/popular.1

 gotp=!exec translator $gotm

 w_=

 !for i=1 to $gotcnt

  u_=!line $i of $gotw

  v_=!line $i of $gotW

  p_=!line $i of $gotp

  !bound p_ between integer 0 and 1000000 default 0

  w_=!append line $[round(100*($u_+1)*($p_+10)^0.4/($v_+1)^0.7)] to $w_

 !next i

 gotw=!sort reverse numeric lines $w_

 gotm=!line $wims_sort_order of $gotm

 gotm=!line 1 to $gotlim2 of $gotm

 gotcnt=!linecnt $gotm

!endif