Subversion Repositories wimsdev

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

slib_author=Gang, XIAO

!exit

:proc
!if (...adm/ isin ...$module and / isin $wims_read_parm) \
        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_n=!recordcnt $slib_fname
!if $slib_n<1
  slib_out=
  !exit
!endif
slib_n=!randint 1,$slib_n
slib_out=!record $slib_n of $slib_fname