Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Insert a coefficient in a matrix
slib_parms=4\
,matrix in wims form (inside brackets)
,row
,column
,element to insert (no comma)

slib_author=Bernadette Perrin-Riou
slib_out=a new matrix with the element at the asked place
slib_comment=the place where to insert the element must be already fillout.
slib_example=[1,2;allo;mer],1,2,jeudi\
[1,2;allo;],1,3,jeudi\
[1,2;allo],4,3,jeudi
!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