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