Subversion Repositories wimsdev

Rev

Rev 4349 | Blame | Compare with Previous | Last modification | View Log | RSS feed

!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])