Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_title=Apostrophe reduction of a French text

slib_parms=1\

,the raw text

slib_author=Gang Xiao

slib_out=the transformed text

slib_comment=This script translates "le avion" to "l'avion", etc. \

 It also translates "de le" into "du".

 slib_example= le avion\

 le port\

 de le pain

!exit

:proc

slib_inp=!singlespace $wims_read_parm

slib_out=

!if $slib_inp=$empty

 !exit

!endif

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_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