Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Gang Xiao

slib_example=actif

!exit

:proc

slib_word=!word 1 of $wims_read_parm

slib_out=

!if $slib_word=$empty

 !exit

!endif

slib_i=!text reverse $slib_word

slib_t=!char 1 of $slib_i

slib_i=!text expand $slib_i using 10

translator_unknown=leave

dictionary=bases/dic/fr/accord

slib_t=!exec translator $slib_t$slib_i aa

!if | notin $slib_t

 slib_out=$slib_word,$(slib_word)e,$(slib_word)s,$(slib_word)es,$(slib_word)ement

 !exit

!endif

slib_t=!translate internal | to $\

$ in $slib_t

slib_i=!line 2 of $slib_t

slib_t=!line 1 of $slib_t

slib_t=!translate internal . to | in $slib_t

slib_i=!word 1 to -2 of $slib_i

slib_i=!nospace $slib_i

slib_i=!text reverse $slib_i

slib_out=$slib_i$(slib_t[1]),$slib_i$(slib_t[2]),$slib_i$(slib_t[3]),$slib_i$(slib_t[4]),$slib_i$(slib_t[5])