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