Subversion Repositories wimsdev

Rev

Rev 6470 | Rev 6961 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !!##class
  2. basedir=bases/class
  3. !if $srch!=$empty
  4.  suffix_dictionary=
  5.  dictionary=$basedir/$search_lang
  6.  translator_unknown=
  7.  !read search.common
  8. !else
  9.  scnt=0
  10. !endif
  11. # Limit of shown items
  12. gotlim=50
  13. !distribute item 0,0,, into weight,gotcnt,gotm,gotw,lastmod
  14.  
  15. !for i=1 to $scnt
  16.  l_=!line $i of $sout
  17.  t_=!wordcnt $l_
  18.  !advance gotcnt
  19.  !if $t_=2
  20.   !distribute word $l_ into m_,w_
  21.   !if $m_=$lastmod or $gotcnt>$gotlim
  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
  32.   !else
  33.    gotm=$gotm $l_
  34.  !endif
  35. !next i
  36. !if $lastmod!=$empty
  37.  gotm=$gotm $lastmod
  38.  gotw=$gotw $weight
  39.  !advance gotcnt
  40. !endif
  41.  
  42. gotm=!words2lines $gotm
  43. translator_switch=leaveline
  44. dictionary=$basedir/title
  45. gott=!exec translator $gotm
  46. dictionary=$basedir/description
  47. gotd=!exec translator $gotm
  48. !if $gotcnt>0 and / notin $gotm
  49.  dictionary=$basedir/addr
  50.  gotm=!exec translator $gotm
  51. !endif
  52.