Subversion Repositories wimsdev

!bound comp between 1 and $livret_nbcomp default $empty

!if $comp=$empty

 !reset cf_abandon

 job=addcomp

 !read addcomp.proc

 !exit

!endif

tmp=!record $comp of $livret_dir/.comps

!distribute line $tmp into mem_title,mem_nbpalier

mem_palier=!record $palier of $livret_dir/.comp$comp

!distribute line $mem_palier into mem_palier,bla

!if $cf_set!=$empty

 donnees=$empty

 !for k=1 to $mem_nbpalier

  d=!record $k of $livret_dir/.comp$comp

  !if $k!=$palier

   donnees=!append line :$d to $donnees

  !endif

 !next k

 !writefile $livret_dir/.comp$comp $donnees

 donnees=$empty

 !for k=1 to $livret_nbcomp

  d=!record $k of $livret_dir/.comps

  !if $k=$comp

   d=!replace line number 2 by $[$mem_nbpalier-1] in $d

  !endif

  donnees=!append line :$d to $donnees

 !next k

 !writefile $livret_dir/.comps $donnees

 job=addcomp

 !reset cf_set

 !read addcomp.proc

 !read mkindexsheet.proc

!endif