Subversion Repositories wimsdev

Rev

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