Subversion Repositories wimsdev

Rev

Rev 4158 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3333 bpr 1
!if $wims_read_parm!=slib_header
2
 !goto proc
3
!endif
4
 
4349 bpr 5
slib_author=Bernadette, Perrin-Riou
4158 bpr 6
 
3333 bpr 7
!exit
8
 
9
:proc
10
!distribute items $wims_read_parm into slib_matrix,slib_r,slib_c,slib_t
11
slib_matrix=!declosing $slib_matrix
12
 
13
slib_matrix1=!replace internal ; by $\
14
$ in $slib_matrix
15
slib_cnt=!itemcnt $(slib_matrix[;1])
16
!if $slib_r > $slib_cnt
17
  !for slib_u=1 to $[$slib_r-$slib_cnt]
18
    slib_matrix1=!append line vvvVVV to $slib_matrix1
19
  !next
20
!endif
21
slib_row=$(slib_matrix[$slib_r;])
22
slib_row_cnt=!itemcnt $slib_row
23
!if $slib_c > $slib_row_cnt
24
  slib_compl=!makelist vvvVVV for x = 1 to $[$slib_c-$slib_row_cnt]
25
  slib_row=$slib_row,$slib_compl
26
!endif
27
 
28
slib_row=!replace internal item number $slib_c by $slib_t in $slib_row
29
slib_matrix1=!replace internal line number $slib_r by $slib_row in $slib_matrix1
30
slib_matrix1=!replace internal vvvVVV by in $slib_matrix1
31
slib_out=!lines2rows $slib_matrix1