Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Gang, XIAO

slib_example= le avion\
 le port\
 de le pain\
 de huit
!exit

:proc
slib_inp=!singlespace $wims_read_parm
slib_out=
!if $slib_inp=$empty
 !exit
!endif
slib_haspire=huit haricot

slib_n=!wordcnt $slib_inp
!for slib_i=1 to $slib_n-1
  slib_W=!word $slib_i of $slib_inp
  slib_w=!lower $slib_W
  slib_c=!char -1 of $slib_W
  !if $slib_c notin ea or $slib_w notwordof \
        ce de je la le ma me ne sa se ta te que puisque lorsque
   !goto normal
  !endif
  slib_n=!word $slib_i+1 of $slib_inp
  slib_cn=!char 1 of $slib_n
  slib_cn=!lower $slib_cn
  slib_cn=!deaccent $slib_cn
  !if $slib_cn notin aeiouh
    !goto normal
  !endif
  !if $slib_cn=h and $slib_n iswordof $slib_haspire
    !goto normal
  !endif
  !if $slib_w=ce
    slib_out=$(slib_out)cet $
    !goto next
  !endif
  !if $slib_c=e or $slib_w=la
    slib_W1=!char 1 to -2 of $slib_W
    slib_out=$slib_out$slib_W1'
  !else
    slib_c1=!char 1 of $slib_W
    slib_out=$slib_out$(slib_c1)on $
  !endif
  !goto next
  :normal
  slib_out=$slib_out$slib_W $
  :next
!next slib_i
slib_w=!word -1 of $slib_inp
slib_out=!trim $slib_out$slib_w
slib_out=!replace word de le by du in $slib_out
slib_out=!replace word à le by au in $slib_out
slib_out=!replace word de les by des in $slib_out
slib_out=!replace word à les by aux in $slib_out