Subversion Repositories wimsdev

!!! fichier de re-initialisation !!!    
    
    !if $exo=1
      !if $etape=3
        !if $propsrepList=$empty
          propsrepList=$rpmat
        !endif
        !if $indicList_obj=$empty
          indicList_obj=$rindic
        !endif
        rpmat=
        rindic=
      !endif
    
      !if $indicList_obj!=$empty
        !for i=1 to $obsnb
          dinc=!trim $(indicList_obj[$i;])
          dinc=!char 2 of $(indicList_obj[$i;])
          !if $dinc=0
            indicList_obj=!replace line number $i by (0,$ $) in $indicList_obj
          !endif
        !next i
        Lnb=!linecnt $indicList_obj
        !if $Lnb<$obsnb
          !for i=1 to $[$obsnb-$Lnb]
            !append line (0,$ $) to $indicList_obj
          !next i
        !endif
      !endif
    !endif
    
    !if $exo=2
      !if $etape=4
        !if $foncsrepList=$empty
          foncsrepList=$rfmat
        !endif
        !if $indicList_fonc=$empty
          indicList_fonc=$rindic
        !endif
      !endif
      
      !if $indicList_fonc!=$empty
        !for i=1 to $obsnb
          !for j=1 to $foncsnb
            hlp=!trim $(indicList_fonc[$i;$j])
            hlp=!char 2 of $hlp
            !if $hlp=0
              hlp=!replace item number $j by (0,$ $) in $(indicList_fonc[$i;])
              indicList_fonc=!replace line number $i by $hlp in $indicList_fonc
            !endif
          !next j
          Lnb=!itemcnt $(indicList_fonc[$i;])
          !if $Lnb<$foncsnb
            !for j=1 to $[$foncsnb-$Lnb]
              hlp=!append item (0,$ $) to $(indicList_fonc[$i;])
            !next j
            indicList_fonc=!replace line number $i by $hlp in $indicList_fonc
          !endif
        !next i
      !endif
    !endif
    
    !if $exo=3
      !if $indicList_obj!=$empty
        !for i=1 to $obsnb
          dinc=!trim $(indicList_obj[$i;])
          dinc=!char 2 of $dinc
          !if $dinc=0
            indicList_obj=!replace line number $i by (0,$ $) in $indicList_obj
          !endif
        !next i
        Lnb=!linecnt $indicList_obj
        !if $Lnb<$obsnb
          !for i=1 to $[$obsnb-$Lnb]
            !append line (0,$ $) to $indicList_obj
          !next i
        !endif
      !endif
      
      !if $indicList_fonc!=$empty
        !for i=1 to $obsnb
          !for j=1 to $foncsnb
            hlp=!trim $(indicList_fonc[$i;$j])
            hlp=!char 2 to -2 of $hlp
            !if $(hlp[1])=0
              hlp=0,$ $ 
              hlp=!replace item number $j by ($hlp) in $(indicList_fonc[$i;])
              indicList_fonc=!replace line number $i by $hlp in $indicList_fonc
            !endif
          !next j
          Lnb=!itemcnt $(indicList_fonc[$i;])
          !if $Lnb<$foncsnb
            !for j=1 to $[$foncsnb-$Lnb]
              hlp=!append item (0,$ $) to $(indicList_fonc[$i;])
            !next j
            indicList_fonc=!replace line number $i by $hlp in $indicList_fonc
          !endif
        !next i
      !endif
    !endif
    
  !endif