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