Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Bernadette, Perrin-Riou

!exit

:proc

!distribute items $wims_read_parm into slib_matrix,slib_r,slib_c,slib_t

slib_matrix=!declosing $slib_matrix

slib_matrix1=!replace internal ; by $\

$ in $slib_matrix

slib_cnt=!itemcnt $(slib_matrix[;1])

!if $slib_r > $slib_cnt

  !for slib_u=1 to $[$slib_r-$slib_cnt]

    slib_matrix1=!append line vvvVVV to $slib_matrix1

  !next

!endif

slib_row=$(slib_matrix[$slib_r;])

slib_row_cnt=!itemcnt $slib_row

!if $slib_c > $slib_row_cnt

  slib_compl=!makelist vvvVVV for x = 1 to $[$slib_c-$slib_row_cnt]

  slib_row=$slib_row,$slib_compl

!endif

slib_row=!replace internal item number $slib_c by $slib_t in $slib_row

slib_matrix1=!replace internal line number $slib_r by $slib_row in $slib_matrix1

slib_matrix1=!replace internal vvvVVV by in $slib_matrix1

slib_out=!lines2rows $slib_matrix1