Subversion Repositories wimsdev

Rev

Rev 4349 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
3 
!endif
4158 bpr 4 
 
4349 bpr 5 
slib_author=Gang, XIAO
4158 bpr 6 
 
20 reyssat 7 
!exit
8 
 
9 
:proc
10 
slib_type=!item 1 of $wims_read_parm
11 
!if $slib_type notwordof deny allow
12 
 !exit
13 
!endif
14 
slib_out=!item 2 to -1 of $wims_read_parm
15 
slib_out=!items2words $slib_out
16 
slib_out=!words2items $slib_out
17 
code_$(slib_type)_=$slib_out