Subversion Repositories wimsdev

Rev

Rev 7692 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
13585 bpr 2 
  !goto proc
20 reyssat 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
13585 bpr 12 
  !exit
20 reyssat 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