Rev 8820 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8820 | Rev 10937 | ||
---|---|---|---|
Line 14... | Line 14... | ||
14 | slib_inp=!singlespace $wims_read_parm |
14 | slib_inp=!singlespace $wims_read_parm |
15 | slib_out= |
15 | slib_out= |
16 | !if $slib_inp=$empty |
16 | !if $slib_inp=$empty |
17 | !exit |
17 | !exit |
18 | !endif |
18 | !endif |
19 | slib_haspire=huit |
19 | slib_haspire=huit haricot |
20 | 20 | ||
21 | slib_n=!wordcnt $slib_inp |
21 | slib_n=!wordcnt $slib_inp |
22 | !for slib_i=1 to $slib_n-1 |
22 | !for slib_i=1 to $slib_n-1 |
23 | slib_W=!word $slib_i of $slib_inp |
23 | slib_W=!word $slib_i of $slib_inp |
24 | slib_w=!lower $slib_W |
24 | slib_w=!lower $slib_W |