mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-28 04:08:55 -06:00
French close to complete; reported on regexp bindings
This commit is contained in:
@@ -57,9 +57,28 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
|
||||
} ;
|
||||
|
||||
conjThan = elisQue ;
|
||||
conjThat = elisQue ;
|
||||
|
||||
clitInf cli inf = cli ++ inf ;
|
||||
|
||||
relPron : Bool => AAgr => Case => Str = \\b,a,c =>
|
||||
let
|
||||
lequel = artDef a.g a.n c + quelPron ! a
|
||||
in
|
||||
case b of {
|
||||
False => case c of {
|
||||
Nom => "qui" ;
|
||||
Acc => elisQue ;
|
||||
CPrep P_de => "dont" ;
|
||||
_ => lequel
|
||||
} ;
|
||||
_ => lequel
|
||||
} ;
|
||||
|
||||
pronSuch : AAgr => Str = aagrForms "tel" "telle" "tels" "telles" ;
|
||||
|
||||
quelPron : AAgr => Str = aagrForms "quel" "quelle" "quels" "quelles" ;
|
||||
|
||||
copula : Verb = {s = table VF ["ê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";"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};
|
||||
|
||||
Reference in New Issue
Block a user