Subversion Repositories wimsdev

Rev

Rev 7692 | Rev 10937 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 8820
Line 4... Line 4...
4 
 
 4 
 
5 
slib_author=Gang, XIAO
 5 
slib_author=Gang, XIAO
6 
 
 6 
 
7 
slib_example= le avion\
 7 
slib_example= le avion\
8 
 le port\
 8 
 le port\
9 
 de le pain
 9 
 de le pain\
- 
 
 10 
 de huit
10 
!exit
 11 
!exit
11 
 
 12 
 
12 
:proc
 13 
:proc
13 
slib_inp=!singlespace $wims_read_parm
 14 
slib_inp=!singlespace $wims_read_parm
14 
slib_out=
 15 
slib_out=
15 
!if $slib_inp=$empty
 16 
!if $slib_inp=$empty
16 
 !exit
 17 
 !exit
17 
!endif
 18 
!endif
- 
 
 19 
slib_haspire=huit
18 
 
 20 
 
19 
slib_n=!wordcnt $slib_inp
 21 
slib_n=!wordcnt $slib_inp
20 
!for slib_i=1 to $slib_n-1
 22 
!for slib_i=1 to $slib_n-1
21 
 slib_W=!word $slib_i of $slib_inp
 23 
 slib_W=!word $slib_i of $slib_inp
22 
 slib_w=!lower $slib_W
 24 
 slib_w=!lower $slib_W
Line 29... Line 31...
29 
 slib_cn=!char 1 of $slib_n
 31 
 slib_cn=!char 1 of $slib_n
30 
 slib_cn=!lower $slib_cn
 32 
 slib_cn=!lower $slib_cn
31 
 slib_cn=!deaccent $slib_cn
 33 
 slib_cn=!deaccent $slib_cn
32 
 !if $slib_cn notin aeiouh
 34 
 !if $slib_cn notin aeiouh
33 
  !goto normal
 35 
  !goto normal
- 
 
 36 
 !endif
- 
 
 37 
 !if $slib_cn=h and $slib_n iswordof $slib_haspire
- 
 
 38 
   !goto normal
34 
 !endif
 39 
 !endif
35 
 !if $slib_w=ce
 40 
 !if $slib_w=ce
36 
  slib_out=$(slib_out)cet $
 41 
  slib_out=$(slib_out)cet $
37 
  !goto next
 42 
  !goto next
38 
 !endif
 43 
 !endif