Subversion Repositories wimsdev

Rev

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