Rev 4349 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !if $wims_read_parm!=slib_header |
| 2 | !goto proc |
||
| 3 | !endif |
||
| 4158 | bpr | 4 | |
| 4349 | bpr | 5 | slib_author=Gang, XIAO |
| 4158 | bpr | 6 | |
| 20 | reyssat | 7 | slib_example=actif |
| 8 | !exit |
||
| 9 | |||
| 10 | :proc |
||
| 11 | slib_word=!word 1 of $wims_read_parm |
||
| 12 | slib_out= |
||
| 13 | !if $slib_word=$empty |
||
| 14 | !exit |
||
| 15 | !endif |
||
| 16 | |||
| 17 | slib_i=!text reverse $slib_word |
||
| 18 | slib_t=!char 1 of $slib_i |
||
| 19 | slib_i=!text expand $slib_i using 10 |
||
| 20 | translator_unknown=leave |
||
| 21 | dictionary=bases/dic/fr/accord |
||
| 22 | slib_t=!exec translator $slib_t$slib_i aa |
||
| 23 | !if | notin $slib_t |
||
| 24 | slib_out=$slib_word,$(slib_word)e,$(slib_word)s,$(slib_word)es,$(slib_word)ement |
||
| 25 | !exit |
||
| 26 | !endif |
||
| 27 | |||
| 28 | slib_t=!translate internal | to $\ |
||
| 29 | $ in $slib_t |
||
| 30 | |||
| 31 | slib_i=!line 2 of $slib_t |
||
| 32 | slib_t=!line 1 of $slib_t |
||
| 33 | slib_t=!translate internal . to | in $slib_t |
||
| 34 | slib_i=!word 1 to -2 of $slib_i |
||
| 35 | slib_i=!nospace $slib_i |
||
| 36 | slib_i=!text reverse $slib_i |
||
| 37 | 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]) |