Subversion Repositories wimsdev

Rev

Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 13586
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
  1,m\
6
  1,m\
7
  ,[p1,p2,..pj]\
7
  ,[p1,p2,..pj]\
Line 34... Line 34...
34
!next slib_i
34
!next slib_i
35
slib_q=!append item 1 to $slib_q
35
slib_q=!append item 1 to $slib_q
36
slib_U=!random 0,1 repeat $slib_m
36
slib_U=!random 0,1 repeat $slib_m
37
 
37
 
38
!for slib_i=1 to $slib_m
38
!for slib_i=1 to $slib_m
39
 slib_pr=!item $slib_i of $slib_U
39
  slib_pr=!item $slib_i of $slib_U
40
 slib_j=1
40
  slib_j=1
41
:debut
41
  :debut
42
 slib_a=!item $slib_j  of $slib_q
42
  slib_a=!item $slib_j  of $slib_q
43
 !if $slib_pr >= $slib_a
43
  !if $slib_pr >= $slib_a
44
  !advance slib_j
44
    !advance slib_j
45
  !goto debut
45
    !goto debut
46
 !endif
46
  !endif
47
 
47
 
48
slib_r= !item $slib_j of $slib_v
48
  slib_r= !item $slib_j of $slib_v
49
slib_out=!append item $slib_r to $slib_out
49
  slib_out=!append item $slib_r to $slib_out
50
!next slib_i
50
!next slib_i
51
 
51
 
52
slib_out =!trim $slib_out
52
slib_out =!trim $slib_out