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 |