Subversion Repositories wimsdev

Rev

Rev 13585 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
13585 bpr 2 
  !goto proc
20 reyssat 3 
!endif
4158 bpr 4 
 
4349 bpr 5 
slib_author=Gang, XIAO
4158 bpr 6 
 
20 reyssat 7 
!exit
8 
 
9 
:proc
10 
!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
13585 bpr 11 
  !exit
20 reyssat 12 
!endif
13 
slib_fname=!items2words $wims_read_parm
14 
slib_fname=!word 1 of $slib_fname
15 
slib_out=!record 0 of $slib_fname
16 
!if $slib_out=$empty
13594 bpr 17 
  !exit
20 reyssat 18 
!endif
19 
slib_out=!nonempty lines $slib_out
20 
slib_n=!linecnt $slib_out
21 
slib_n=!randint 1,$slib_n
22 
slib_out=!line $slib_n of $slib_out