diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-10-28 15:33:57 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-10-28 15:33:57 +0000 |
| commit | 4448f92c236abe63a1c0596635963fe7fb6ce5ca (patch) | |
| tree | 43e69a826191b7226b0ebba97577ba4e2314b546 | |
| parent | 48dc5208b51464f3f253caf79953b3c322c7a181 (diff) | |
notpresent flags in French auxiliaries
| -rw-r--r-- | next-lib/src/french/DiffFre.gf | 18 | ||||
| -rw-r--r-- | next-lib/src/french/ParadigmsFre.gf | 1 |
2 files changed, 16 insertions, 3 deletions
diff --git a/next-lib/src/french/DiffFre.gf b/next-lib/src/french/DiffFre.gf index 37026a754..7abd2f76b 100644 --- a/next-lib/src/french/DiffFre.gf +++ b/next-lib/src/french/DiffFre.gf @@ -206,8 +206,20 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in { auxPassive : Verb = copula ; - copula : Verb = {s = table VF ["être";"être";"suis";"es";"est";"sommes";"êtes";"sont";"sois";"sois";"soit";"soyons";"soyez";"soient";"étais";"étais";"était";"étions";"étiez";"étaient";"fusse";"fusses";"fût";"fussions";"fussiez";"fussent";"fus";"fus";"fut";"fûmes";"fûtes";"furent";"serai";"seras";"sera";"serons";"serez";"seront";"serais";"serais";"serait";"serions";"seriez";"seraient";"sois";"soyons";"soyez";"été";"étés";"étée";"étées";"étant"]; vtyp=VHabere} ; - - avoir_V : Verb = {s=table VF ["avoir";"avoir";"ai";"as";"a";"avons";"avez";"ont";"aie";"aies";"ait";"ayons";"ayez";"aient";"avais";"avais";"avait";"avions";"aviez";"avaient";"eusse";"eusses";"eût";"eussions";"eussiez";"eussent";"eus";"eus";"eut";"eûmes";"eûtes";"eurent";"aurai";"auras";"aura";"aurons";"aurez";"auront";"aurais";"aurais";"aurait";"aurions";"auriez";"auraient";"aie";"ayons";"ayez";"eu";"eus";"eue";"eues";"ayant"];vtyp=VHabere}; + copula : Verb = {s = table VF ["être";"être";"suis";"es";"est";"sommes";"êtes";"sont";"sois";"sois";"soit";"soyons";"soyez";"soient"; +"étais";"étais";"était";"étions";"étiez";"étaient";--# notpresent +"fusse";"fusses";"fût";"fussions";"fussiez";"fussent";--# notpresent +"fus";"fus";"fut";"fûmes";"fûtes";"furent";--# notpresent +"serai";"seras";"sera";"serons";"serez";"seront";--# notpresent +"serais";"serais";"serait";"serions";"seriez";"seraient";--# notpresent +"sois";"soyons";"soyez";"été";"étés";"étée";"étées";"étant"]; vtyp=VHabere} ; + + avoir_V : Verb = {s=table VF ["avoir";"avoir";"ai";"as";"a";"avons";"avez";"ont";"aie";"aies";"ait";"ayons";"ayez";"aient"; +"avais";"avais";"avait";"avions";"aviez";"avaient"; --# notpresent +"eusse";"eusses";"eût";"eussions";"eussiez";"eussent";--# notpresent +"eus";"eus";"eut";"eûmes";"eûtes";"eurent";--# notpresent +"aurai";"auras";"aura";"aurons";"aurez";"auront";--# notpresent +"aurais";"aurais";"aurait";"aurions";"auriez";"auraient";--# notpresent +"aie";"ayons";"ayez";"eu";"eus";"eue";"eues";"ayant"];vtyp=VHabere}; } diff --git a/next-lib/src/french/ParadigmsFre.gf b/next-lib/src/french/ParadigmsFre.gf index b5406b558..224c03c70 100644 --- a/next-lib/src/french/ParadigmsFre.gf +++ b/next-lib/src/french/ParadigmsFre.gf @@ -237,6 +237,7 @@ oper -- (transitive verbs). mkV2 = overload { + mkV2 : Str -> V2 = \s -> dirV2 (regV s) ; mkV2 : V -> V2 = dirV2 ; mkV2 : V -> Prep -> V2 = mmkV2 } ; |