Subversion Repositories wimsdev

Rev

Rev 10937 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10937 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 
slib_example= le avion\
 7 
slib_example= le avion\
Line 18... Line 18...
18 
!endif
 18 
!endif
19 
slib_haspire=huit haricot
 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
25 
 slib_c=!char -1 of $slib_W
 25 
  slib_c=!char -1 of $slib_W
26 
 !if $slib_c notin ea or $slib_w notwordof \
 26 
  !if $slib_c notin ea or $slib_w notwordof \
27 
	ce de je la le ma me ne sa se ta te que puisque lorsque
 27 
  	ce de je la le ma me ne sa se ta te que puisque lorsque
28 
  !goto normal
 - 
 
29 
 !endif
 - 
 
30 
 slib_n=!word $slib_i+1 of $slib_inp
 - 
 
31 
 slib_cn=!char 1 of $slib_n
 - 
 
32 
 slib_cn=!lower $slib_cn
 - 
 
33 
 slib_cn=!deaccent $slib_cn
 - 
 
34 
 !if $slib_cn notin aeiouh
 - 
 
35 
  !goto normal
 - 
 
36 
 !endif
 - 
 
37 
 !if $slib_cn=h and $slib_n iswordof $slib_haspire
 - 
 
38 
   !goto normal
 28 
   !goto normal
39 
 !endif
 29 
  !endif
- 
 
 30 
  slib_n=!word $slib_i+1 of $slib_inp
- 
 
 31 
  slib_cn=!char 1 of $slib_n
- 
 
 32 
  slib_cn=!lower $slib_cn
- 
 
 33 
  slib_cn=!deaccent $slib_cn
- 
 
 34 
  !if $slib_cn notin aeiouh
- 
 
 35 
    !goto normal
- 
 
 36 
  !endif
- 
 
 37 
  !if $slib_cn=h and $slib_n iswordof $slib_haspire
- 
 
 38 
    !goto normal
- 
 
 39 
  !endif
40 
 !if $slib_w=ce
 40 
  !if $slib_w=ce
41 
  slib_out=$(slib_out)cet $
 41 
    slib_out=$(slib_out)cet $
- 
 
 42 
    !goto next
- 
 
 43 
  !endif
- 
 
 44 
  !if $slib_c=e or $slib_w=la
- 
 
 45 
    slib_W1=!char 1 to -2 of $slib_W
- 
 
 46 
    slib_out=$slib_out$slib_W1'
- 
 
 47 
  !else
- 
 
 48 
    slib_c1=!char 1 of $slib_W
- 
 
 49 
    slib_out=$slib_out$(slib_c1)on $
- 
 
 50 
  !endif
42 
  !goto next
 51 
  !goto next
43 
 !endif
 - 
 
44 
 !if $slib_c=e or $slib_w=la
 - 
 
45 
  slib_W1=!char 1 to -2 of $slib_W
 - 
 
46 
  slib_out=$slib_out$slib_W1'
 - 
 
47 
 !else
 - 
 
48 
  slib_c1=!char 1 of $slib_W
 - 
 
49 
  slib_out=$slib_out$(slib_c1)on $
 - 
 
50 
 !endif
 - 
 
51 
 !goto next
 - 
 
52 
 :normal
 52 
  :normal
53 
 slib_out=$slib_out$slib_W $
 53 
  slib_out=$slib_out$slib_W $
54 
 :next
 54 
  :next
55 
!next slib_i
 55 
!next slib_i
56 
slib_w=!word -1 of $slib_inp
 56 
slib_w=!word -1 of $slib_inp
57 
slib_out=!trim $slib_out$slib_w
 57 
slib_out=!trim $slib_out$slib_w
58 
slib_out=!replace word de le by du in $slib_out
 58 
slib_out=!replace word de le by du in $slib_out
59 
slib_out=!replace word à le by au in $slib_out
 59 
slib_out=!replace word à le by au in $slib_out