Subversion Repositories wimsdev

Rev

Rev 7679 | 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.