Subversion Repositories wimsdev

Rev

Rev 7044 | 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=1000
  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. gotm=!line 1 to $gotlim2 of $gotm
  44. gotcnt=!linecnt $gotm
  45.  
  46. translator_switch=leaveline
  47. dictionary=$basedir/title
  48. gott=!exec translator $gotm
  49. dictionary=$basedir/description
  50. gotd=!exec translator $gotm
  51. dictionary=$basedir/information
  52. gotiC=!exec translator $gotm
  53.  
  54. !if $gotcnt>0 and / notin $gotm
  55.  dictionary=$basedir/addr
  56.  gotm=!exec translator $gotm
  57. !endif
  58.