Subversion Repositories wimsdev

Rev

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

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Gang, XIAO

!exit

:proc
!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
  !exit
!endif
slib_fname=!items2words $wims_read_parm
slib_fname=!word 1 of $slib_fname
slib_out=!record 0 of $slib_fname
!if $slib_out=$empty
  !exit
!endif
slib_out=!nonempty lines $slib_out
slib_n=!linecnt $slib_out
slib_n=!randint 1,$slib_n
slib_out=!line $slib_n of $slib_out