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 |