Rev 2128 | Go to most recent revision | Details | 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 |
||
| 4 | slib_title=Accord of French adjectives and names |
||
| 5 | slib_parms=1\ |
||
| 6 | ,the word (singular masculine, no composite word) |
||
| 7 | slib_author=Gang Xiao |
||
| 8 | slib_out=the list of different forms: singular masculine,\ |
||
| 9 | singular feminine, plural masculine, plural feminine,\ |
||
| 10 | adverbial form (virtual). ATTENTION. This slib does not \ |
||
| 11 | known invariable adjectives! |
||
| 12 | slib_example=actif |
||
| 13 | !exit |
||
| 14 | |||
| 15 | :proc |
||
| 16 | slib_word=!word 1 of $wims_read_parm |
||
| 17 | slib_out= |
||
| 18 | !if $slib_word=$empty |
||
| 19 | !exit |
||
| 20 | !endif |
||
| 21 | |||
| 22 | slib_i=!text reverse $slib_word |
||
| 23 | slib_t=!char 1 of $slib_i |
||
| 24 | slib_i=!text expand $slib_i using 10 |
||
| 25 | translator_unknown=leave |
||
| 26 | dictionary=bases/dic/fr/accord |
||
| 27 | slib_t=!exec translator $slib_t$slib_i aa |
||
| 28 | !if | notin $slib_t |
||
| 29 | slib_out=$slib_word,$(slib_word)e,$(slib_word)s,$(slib_word)es,$(slib_word)ement |
||
| 30 | !exit |
||
| 31 | !endif |
||
| 32 | |||
| 33 | slib_t=!translate internal | to $\ |
||
| 34 | $ in $slib_t |
||
| 35 | |||
| 36 | slib_i=!line 2 of $slib_t |
||
| 37 | slib_t=!line 1 of $slib_t |
||
| 38 | slib_t=!translate internal . to | in $slib_t |
||
| 39 | slib_i=!word 1 to -2 of $slib_i |
||
| 40 | slib_i=!nospace $slib_i |
||
| 41 | slib_i=!text reverse $slib_i |
||
| 42 | 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]) |
||
| 43 |