Subversion Repositories wimsdev

Rev

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

Rev 4349 Rev 13585
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_author=Gang, XIAO
 5 
slib_author=Gang, XIAO
6 
 
 6 
 
7 
!exit
 7 
!exit
8 
 
 8 
 
9 
:proc
 9 
:proc
10 
!if (...adm/ isin ...$module and / isin $wims_read_parm) \
 10 
!if (...adm/ isin ...$module and / isin $wims_read_parm) \
11 
	or .. isin $wims_read_parm or $wims_read_parm=$empty
 11 
	or .. isin $wims_read_parm or $wims_read_parm=$empty
12 
 !exit
 12 
  !exit
13 
!endif
 13 
!endif
14 
slib_fname=!items2words $wims_read_parm
 14 
slib_fname=!items2words $wims_read_parm
15 
slib_fname=!word 1 of $slib_fname
 15 
slib_fname=!word 1 of $slib_fname
16 
slib_n=!recordcnt $slib_fname
 16 
slib_n=!recordcnt $slib_fname
17 
!if $slib_n<1
 17 
!if $slib_n<1
18 
 slib_out=
 18 
  slib_out=
19 
 !exit
 19 
  !exit
20 
!endif
 20 
!endif
21 
slib_n=!randint 1,$slib_n
 21 
slib_n=!randint 1,$slib_n
22 
slib_out=!record $slib_n of $slib_fname
 22 
slib_out=!record $slib_n of $slib_fname