Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7692 | Rev 13588 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !if $wims_read_parm!=slib_header |
1 | !if $wims_read_parm!=slib_header |
2 | !goto proc |
2 | !goto proc |
3 | !endif |
3 | !endif |
4 | 4 | ||
5 | slib_parms=3\ |
5 | slib_parms=3\ |
6 | ,n\ |
6 | ,n\ |
7 | n,m\ |
7 | n,m\ |
Line 14... | Line 14... | ||
14 | !distribute items $wims_read_parm into slib_n,slib_m,slib_k |
14 | !distribute items $wims_read_parm into slib_n,slib_m,slib_k |
15 | !bound slib_n between integer 1 and 100 default 0 |
15 | !bound slib_n between integer 1 and 100 default 0 |
16 | !bound slib_m between integer 1 and $slib_n default $slib_n |
16 | !bound slib_m between integer 1 and $slib_n default $slib_n |
17 | !bound slib_k between integer 1 and $slib_n default $slib_n |
17 | !bound slib_k between integer 1 and $slib_n default $slib_n |
18 | !if $slib_n=0 |
18 | !if $slib_n=0 |
19 | !reset slib_out |
19 | !reset slib_out |
20 | !exit |
20 | !exit |
21 | !endif |
21 | !endif |
22 | slib_sh=!shuffle $slib_n-1 |
22 | slib_sh=!shuffle $slib_n-1 |
23 | slib_sh=!item 1 to $slib_m-1 of $slib_sh |
23 | slib_sh=!item 1 to $slib_m-1 of $slib_sh |
24 | slib_sh2=$slib_k |
24 | slib_sh2=$slib_k |
25 | !for slib_i=1 to $slib_m-1 |
25 | !for slib_i=1 to $slib_m-1 |
26 | slib_l=!item $slib_i of $slib_sh |
26 | slib_l=!item $slib_i of $slib_sh |
27 | !if $slib_l>=$slib_k |
27 | !if $slib_l>=$slib_k |
28 | !advance slib_l |
28 | !advance slib_l |
29 | !endif |
29 | !endif |
30 | slib_sh2=$slib_sh2,$slib_l |
30 | slib_sh2=$slib_sh2,$slib_l |
31 | !next slib_i |
31 | !next slib_i |
32 | 32 | ||
33 | slib_out=!shuffle $slib_sh2 |
33 | slib_out=!shuffle $slib_sh2 |