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