Subversion Repositories wimsdev

Rev

Rev 7692 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 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 or .. isin $wims_read_parm or $wims_read_parm=$empty
10
!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
11
 !exit
11
  !exit
12
!endif
12
!endif
13
slib_fname=!items2words $wims_read_parm
13
slib_fname=!items2words $wims_read_parm
14
slib_fname=!word 1 of $slib_fname
14
slib_fname=!word 1 of $slib_fname
15
slib_out=!record 0 of $slib_fname
15
slib_out=!record 0 of $slib_fname
16
!if $slib_out=$empty
16
!if $slib_out=$empty