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 proc/mkindexsheet.proc

!endif