Subversion Repositories wimsdev

Rev

Rev 7692 | 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 
slib_type=!item 1 of $wims_read_parm
 10 
slib_type=!item 1 of $wims_read_parm
11 
!if $slib_type notwordof deny allow
 11 
!if $slib_type notwordof deny allow
12 
 !exit
 12 
  !exit
13 
!endif
 13 
!endif
14 
slib_out=!item 2 to -1 of $wims_read_parm
 14 
slib_out=!item 2 to -1 of $wims_read_parm
15 
slib_out=!items2words $slib_out
 15 
slib_out=!items2words $slib_out
16 
slib_out=!words2items $slib_out
 16 
slib_out=!words2items $slib_out
17 
code_$(slib_type)_=$slib_out
 17 
code_$(slib_type)_=$slib_out