From e26383f7caef0a84d5e8473e01b5ca0303c8ccee Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 28 Oct 2008 15:33:57 +0000 Subject: [PATCH] notpresent flags in French auxiliaries --- next-lib/src/french/DiffFre.gf | 16 ++++++++++++++-- next-lib/src/french/ParadigmsFre.gf | 1 + 2 files changed, 15 insertions(+), 2 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} ; + 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";"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}; + 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 } ;