Subversion Repositories wimsdev

scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
!for s=1 to $scnt
  ecnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$s
  !distribute item ,,, into reqs,weis
  !for e=1 to $ecnt
    r=!record $e of wimshome/log/classes/$wims_class/sheets/.sheet$s
    !distribute lines $r into t_,t_,r_,w_
    r_=$[$r_]
    w_=$[$w_]
    reqs=!append word $r_ to $reqs
    weis=!append word $w_ to $weis
  !next e
  !ifval $s=1
    !writefile wimshome/log/classes/$wims_class/sheets/.require $reqs
    !writefile wimshome/log/classes/$wims_class/sheets/.weight $weis
  !else
    !appendfile wimshome/log/classes/$wims_class/sheets/.require $reqs
    !appendfile wimshome/log/classes/$wims_class/sheets/.weight $weis
  !endif
!next s