Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Bernadette PERRIN-RIOU

!exit

:proc

!distribute item $wims_read_parm into slib_A,slib_s,slib_t

slib_A= !declosing $slib_A

slib_A=!replace internal ; by $\

$ in $slib_A

slib_n = !linecnt $slib_A

slib_chemin=$slib_t

!for slib_i=1 to $slib_n

 !for slib_k=1 to $slib_n

  !for slib_j=1 to $slib_n

   slib_r=!line $slib_k of $slib_A

   slib_r=!item $slib_j of $slib_r

   !if $slib_r != 0

    slib_cnt=!linecnt $slib_chemin

    !for slib_u = 1 to $slib_cnt

     slib_che=!line $slib_u of $slib_chemin

     slib_che1=!item 1 of $slib_che

     !if $slib_che1 = $slib_j

      slib_chemin=$slib_chemin\

$slib_k,$slib_che

     !endif

    !next slib_u

   !endif

  !next slib_j

 !next slib_k

!next slib_i

slib_out=$slib_chemin