Subversion Repositories wimsdev

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

slib_author=Gang, XIAO
slib_example= un avion \
une\
des

!exit

:proc
slib_inp=!word 1 of $wims_read_parm
slib_out=
!if $slib_inp=$empty
  !exit
!endif
slib_1=!word 1 of $slib_inp
!if $slib_1 notwordof de des du un une
  slib_out=$slib_inp
  !exit
!endif

slib_2=!word 2 of $slib_inp
slib_c=!char 1 of $slib_2
slib_2c=!word 2 to -1 of $slib_inp
slib_3c=!word 3 to -1 of $slib_inp

!if $slib_1=de
  slib_out=$slib_2c
  !exit
!endif

!if $slib_1=des
  slib_out=les $slib_2c
  !exit
!endif

!if $slib_1 iswordof du un
  !read slib/lang/frapostrophe le $slib_2c
  !exit
!endif

!if $slib_1=une
  !read slib/lang/frapostrophe la $slib_2c
  !exit
!endif