From 75d02bfcc75508c1682453c2e8f4c5ee02248fbb Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 29 Nov 2004 14:43:17 +0000 Subject: [PATCH] french verbs --- lib/resource-0.6/english/TypesEng.gf | 2 +- lib/resource/french/ConjugNancy.gf | 9 +- lib/resource/french/TestVerbesAbs.gf | 3 + lib/resource/french/TestVerbesFre.gf | 8 ++ lib/resource/french/VerbesAbs.gf | 41 ++++--- lib/resource/french/VerbesFre.gf | 166 ++++++++++++++------------- 6 files changed, 124 insertions(+), 105 deletions(-) create mode 100644 lib/resource/french/TestVerbesAbs.gf create mode 100644 lib/resource/french/TestVerbesFre.gf diff --git a/lib/resource-0.6/english/TypesEng.gf b/lib/resource-0.6/english/TypesEng.gf index 61682c14f..6b355aacc 100644 --- a/lib/resource-0.6/english/TypesEng.gf +++ b/lib/resource-0.6/english/TypesEng.gf @@ -66,7 +66,7 @@ param VForm = InfImp | Indic Person | Past Number | PPart ; oper - VerbP3 : Type = SS1 VForm ; + VerbP3 : Type = {s : VForm => Str} ; -- A full verb can moreover have a particle. diff --git a/lib/resource/french/ConjugNancy.gf b/lib/resource/french/ConjugNancy.gf index 8b14ace14..c09709b28 100644 --- a/lib/resource/french/ConjugNancy.gf +++ b/lib/resource/french/ConjugNancy.gf @@ -1,4 +1,4 @@ -resource ConjugNancy = open TypesFre, MorphoFre in { +resource ConjugNancy = open Prelude, TypesFre, MorphoFre in { oper VerbeN = {s : VForm => Str} ; oper mkNV : Verbe -> VerbeN = \ve -> @@ -6,6 +6,13 @@ oper mkNV : Verbe -> VerbeN = \ve -> oper conj : Str -> Verbe = conj1aimer ; --- temp. default +oper v_nancy100inf : Str -> VerbeN = \ve -> {s = table { + Inf => ve ; + _ => nonExist + } +} ; + + oper v_nancy1 : Str -> VerbeN = \s -> mkNV (conjAvoir s) ; oper v_nancy2 : Str -> VerbeN = \s -> mkNV (conjÊtre s) ; -- 3-5 not used diff --git a/lib/resource/french/TestVerbesAbs.gf b/lib/resource/french/TestVerbesAbs.gf new file mode 100644 index 000000000..37aa52f58 --- /dev/null +++ b/lib/resource/french/TestVerbesAbs.gf @@ -0,0 +1,3 @@ +abstract TestVerbesAbs = TestResource, VerbesAbs ** { + fun UseVN : VN -> V ; +} diff --git a/lib/resource/french/TestVerbesFre.gf b/lib/resource/french/TestVerbesFre.gf new file mode 100644 index 000000000..786f72ae3 --- /dev/null +++ b/lib/resource/french/TestVerbesFre.gf @@ -0,0 +1,8 @@ +--# -path=.:../romance:../abstract:../../prelude + +concrete TestVerbesFre of TestVerbesAbs = + TestResourceFre, VerbesFre ** open TypesFre in { + + lin UseVN ve = verbPres ve.s AHabere ; ---- VEsse + +} diff --git a/lib/resource/french/VerbesAbs.gf b/lib/resource/french/VerbesAbs.gf index b18cbd4e0..a52eb984d 100644 --- a/lib/resource/french/VerbesAbs.gf +++ b/lib/resource/french/VerbesAbs.gf @@ -2,20 +2,19 @@ abstract VerbesAbs = { --- Categories ** { cat VN ; --- temporarily -{- --- temp. remove defective verbs fun accroireVN : VN ; fun accroîtreVN : VN ; fun advenirVN : VN ; -fun apparoirVN : VN ; +---- fun apparoirVN : VN ; fun arguerVN : VN ; fun assavoirVN : VN ; -fun avenirVN : VN ; +---- fun avenirVN : VN ; fun bienvenirVN : VN ; fun braireVN : VN ; -fun bruireVN : VN ; -fun chaloirVN : VN ; -fun comparoirVN : VN ; +---- fun bruireVN : VN ; +---- fun chaloirVN : VN ; +---- fun comparoirVN : VN ; fun contredireVN : VN ; fun contrefoutreVN : VN ; fun corrompreVN : VN ; @@ -26,7 +25,7 @@ fun d fun décroîtreVN : VN ; fun dédireVN : VN ; fun dépourvoirVN : VN ; -fun douerVN : VN ; +---- fun douerVN : VN ; fun échoirVN : VN ; fun écloreVN : VN ; fun émouvoirVN : VN ; @@ -34,8 +33,8 @@ fun encloreVN : VN ; fun endêverVN : VN ; fun ensuivreVN : VN ; fun esterVN : VN ; -fun férirVN : VN ; -fun forcloreVN : VN ; +---- fun férirVN : VN ; +---- fun forcloreVN : VN ; fun forfaireVN : VN ; fun foutreVN : VN ; fun frireVN : VN ; @@ -43,28 +42,27 @@ fun g fun inclureVN : VN ; fun interdireVN : VN ; fun interrompreVN : VN ; -fun issirVN : VN ; +---- fun issirVN : VN ; fun luireVN : VN ; fun malfaireVN : VN ; -fun maudireVN : VN ; +---- fun maudireVN : VN ; fun médireVN : VN ; fun méfaireVN : VN ; fun messeoirVN : VN ; -fun occireVN : VN ; +---- fun occireVN : VN ; fun occlureVN : VN ; fun paîtreVN : VN ; -fun parfaireVN : VN ; +---- fun parfaireVN : VN ; fun partirVN : VN ; fun prédireVN : VN ; fun prévaloirVN : VN ; fun prévoirVN : VN ; fun promouvoirVN : VN ; -fun querirVN : VN ; fun quérirVN : VN ; fun raserVN : VN ; -fun rassirVN : VN ; +---- fun rassirVN : VN ; fun ravoirVN : VN ; -fun reclureVN : VN ; +---- fun reclureVN : VN ; fun recroîtreVN : VN ; fun reluireVN : VN ; fun renaîtreVN : VN ; @@ -75,15 +73,16 @@ fun rompreVN : VN ; fun saillirVN : VN ; fun seoirVN : VN ; fun sortirVN : VN ; -fun sourdreVN : VN ; -fun stupéfaireVN : VN ; +---- fun sourdreVN : VN ; +---- fun stupéfaireVN : VN ; fun suffireVN : VN ; fun taireVN : VN ; -fun tistreVN : VN ; -fun titreVN : VN ; +---- fun tistreVN : VN ; +---- fun titreVN : VN ; fun urgerVN : VN ; fun saillirVN : VN ; --} +fun saillir2VN : VN ; + fun accéderVN : VN ; fun accélérerVN : VN ; diff --git a/lib/resource/french/VerbesFre.gf b/lib/resource/french/VerbesFre.gf index fb9821140..90d14e56f 100644 --- a/lib/resource/french/VerbesFre.gf +++ b/lib/resource/french/VerbesFre.gf @@ -4,93 +4,95 @@ -- Translated to GF by Aarne Ranta concrete VerbesFre of VerbesAbs = --- CategoriesFre ** - open TypesFre, ConjugNancy in { + open TypesFre, MorphoFre, ConjugNancy in { lincat VN = {s : VForm => Str} ; --- aux : VAux} ; -{- --- remove deficient verbs +-- {- --- remove deficient verbs + +lin accroireVN = v_nancy100inf "accroire" ; -- seul infin +lin accroîtreVN = v_nancy73 "accroître" ; --- diff î +lin advenirVN = v_nancy23 "advenir" ; --- infin et 3 pers +--- lin apparoirVN = v_nancy100 "apparoir" ; -- infin, 3sg pres appert +lin arguerVN = v_nancy6 "arguer" ; +lin assavoirVN = v_nancy100inf "assavoir" ; -- seul inf +--- lin avenirVN = v_nancy23 "avenir" ; --- seul part.pres +lin bienvenirVN = v_nancy100inf "bienvenir" ; --- seul inf +lin braireVN = v_nancy61 "braire" ; +--- lin bruireVN = v_nancy100 "bruire" ; --- conj2Finir +--- lin chaloirVN = v_nancy100 "chaloir" ; --- 3p, chaut +--- lin comparoirVN = v_nancy100 "comparoir" ; --- infint, pr.pt comparant +lin contredireVN = v_nancy78 "contredire" ; +lin contrefoutreVN = v_nancy53 "contrefoutre" ; +lin corrompreVN = v_nancy53 "corrompre" ; +lin courbaturerVN = v_nancy6 "courbaturer" ; --- alt. pp courbatu +lin courreVN = v_nancy100inf "courre" ; +lin déchoirVN = v_nancy52 "déchoir" ; --- incompl +lin décloreVN = v_nancy70 "déclore" ; --- seul inf et pp +lin décroîtreVN = v_nancy67 "décroître" ; +lin dédireVN = v_nancy78 "dédire" ; +lin dépourvoirVN = v_nancy40 "dépourvoir" ; +--- lin douerVN = v_nancy6 "douer" ; --- seul pp +lin échoirVN = v_nancy52 "échoir" ; +lin écloreVN = v_nancy70 "éclore" ; +lin émouvoirVN = v_nancy44 "émouvoir" ; +lin encloreVN = v_nancy70 "enclore" ; +lin endêverVN = v_nancy100inf "endêver" ; +lin ensuivreVN = v_nancy75 "ensuivre" ; --- seul inf, p pres, 3. pers +lin esterVN = v_nancy100inf "ester" ; +--- lin férirVN = v_nancy100 "férir" ; --- seul "sans coup férir", "féru de" +--- lin forcloreVN = v_nancy100 "forclore" ; --- seul inf, pp +lin forfaireVN = v_nancy62 "forfaire" ; --- incompl +lin foutreVN = v_nancy53 "foutre" ; --- incompl +lin frireVN = v_nancy81 "frire" ; --- incompl +lin gésirVN = mkNV (conj3gésir "gésir") ; +lin inclureVN = v_nancy71 "inclure" ; +lin interdireVN = v_nancy78 "interdire" ; +lin interrompreVN = v_nancy53 "interrompre" ; +--- lin issirVN = v_nancy100 "issir" ; --- seul pp issu +lin luireVN = v_nancy82 "luire" ; +lin malfaireVN = v_nancy100inf "malfaire" ; +--- lin maudireVN = v_nancy100 "maudire" ; --- finir sauf pp maudit +lin médireVN = v_nancy78 "médire" ; --- sauf médisez +lin méfaireVN = v_nancy100inf "méfaire" ; +lin messeoirVN = v_nancy50 "messeoir" ; +--- lin occireVN = v_nancy100 "occire" ; --- seul inf, pp occis +lin occlureVN = v_nancy71 "occlure" ; +lin paîtreVN = v_nancy66 "paître" ; +--- lin parfaireVN = v_nancy62 "parfaire" ; --- seul inf, pp +-- lin partirVN = v_nancy100 "partir" ; -- entrée séparée pour v trans +lin prédireVN = v_nancy78 "prédire" ; +lin prévaloirVN = v_nancy47 "prévaloir" ; +lin prévoirVN = v_nancy39 "prévoir" ; +lin promouvoirVN = v_nancy44 "promouvoir" ; --- incompl +-- lin querirVN = v_nancy100 "querir" ; -- non dans B ; typo ? +lin quérirVN = v_nancy100inf "quérir" ; +lin raserVN = v_nancy6 "raser" ; +--- lin rassirVN = v_nancy100 "rassir" ; --- inf, pp rassi +lin ravoirVN = v_nancy100inf "ravoir" ; +--- lin reclureVN = v_nancy100 "reclure" ; --- inf, pp reclus +lin recroîtreVN = v_nancy67 "recroître" ; +lin reluireVN = v_nancy82 "reluire" ; +lin renaîtreVN = v_nancy65 "renaître" ; --- rare pp +lin repaîtreVN = v_nancy66 "repaître" ; +lin résoudreVN = mkNV (conj3résoudre "résoudre") ; +lin résulterVN = v_nancy6 "résulter" ; --- incompl +lin rompreVN = v_nancy53 "rompre" ; + +lin saillirVN = v_nancy29 "saillir" ; --- incompl +lin saillir2VN = v_nancy10 "saillir" ; --- incompl + +-- lin seoirVN = mkNV (conj3seoir "seoir") ; -- duplic +--- lin sortirVN = v_nancy100 "sortir" ; -- juridique, sortissait +--- lin sourdreVN = v_nancy100 "sourdre" ; --- incompl: seul 3pers indic +--- lin stupéfaireVN = v_nancy100 "stupéfaire" ; --- incompl +lin suffireVN = v_nancy81 "suffire" ; +lin taireVN = v_nancy63 "taire" ; +--- lin tistreVN = v_nancy100 "tistre" ; --- seul pp tissu +--- lin titreVN = v_nancy100 "titre" ; --- variante de tistre +lin urgerVN = v_nancy8 "urger" ; --- seul 3 pres -lin accroireVN = v_nancy100 "accroire" ; -lin accroîtreVN = v_nancy100 "accroître" ; -lin advenirVN = v_nancy100 "advenir" ; -lin apparoirVN = v_nancy100 "apparoir" ; -lin arguerVN = v_nancy100 "arguer" ; -lin assavoirVN = v_nancy100 "assavoir" ; -lin avenirVN = v_nancy100 "avenir" ; -lin bienvenirVN = v_nancy100 "bienvenir" ; -lin braireVN = v_nancy100 "braire" ; -lin bruireVN = v_nancy100 "bruire" ; -lin chaloirVN = v_nancy100 "chaloir" ; -lin comparoirVN = v_nancy100 "comparoir" ; -lin contredireVN = v_nancy100 "contredire" ; -lin contrefoutreVN = v_nancy100 "contrefoutre" ; -lin corrompreVN = v_nancy100 "corrompre" ; -lin courbaturerVN = v_nancy100 "courbaturer" ; -lin courreVN = v_nancy100 "courre" ; -lin déchoirVN = v_nancy100 "déchoir" ; -lin décloreVN = v_nancy100 "déclore" ; -lin décroîtreVN = v_nancy100 "décroître" ; -lin dédireVN = v_nancy100 "dédire" ; -lin dépourvoirVN = v_nancy100 "dépourvoir" ; -lin douerVN = v_nancy100 "douer" ; -lin échoirVN = v_nancy100 "échoir" ; -lin écloreVN = v_nancy100 "éclore" ; -lin émouvoirVN = v_nancy100 "émouvoir" ; -lin encloreVN = v_nancy100 "enclore" ; -lin endêverVN = v_nancy100 "endêver" ; -lin ensuivreVN = v_nancy100 "ensuivre" ; -lin esterVN = v_nancy100 "ester" ; -lin férirVN = v_nancy100 "férir" ; -lin forcloreVN = v_nancy100 "forclore" ; -lin forfaireVN = v_nancy100 "forfaire" ; -lin foutreVN = v_nancy100 "foutre" ; -lin frireVN = v_nancy100 "frire" ; -lin gésirVN = v_nancy100 "gésir" ; -lin inclureVN = v_nancy100 "inclure" ; -lin interdireVN = v_nancy100 "interdire" ; -lin interrompreVN = v_nancy100 "interrompre" ; -lin issirVN = v_nancy100 "issir" ; -lin luireVN = v_nancy100 "luire" ; -lin malfaireVN = v_nancy100 "malfaire" ; -lin maudireVN = v_nancy100 "maudire" ; -lin médireVN = v_nancy100 "médire" ; -lin méfaireVN = v_nancy100 "méfaire" ; -lin messeoirVN = v_nancy100 "messeoir" ; -lin occireVN = v_nancy100 "occire" ; -lin occlureVN = v_nancy100 "occlure" ; -lin paîtreVN = v_nancy100 "paître" ; -lin parfaireVN = v_nancy100 "parfaire" ; -lin partirVN = v_nancy100 "partir" ; -lin prédireVN = v_nancy100 "prédire" ; -lin prévaloirVN = v_nancy100 "prévaloir" ; -lin prévoirVN = v_nancy100 "prévoir" ; -lin promouvoirVN = v_nancy100 "promouvoir" ; -lin querirVN = v_nancy100 "querir" ; -lin quérirVN = v_nancy100 "quérir" ; -lin raserVN = v_nancy100 "raser" ; -lin rassirVN = v_nancy100 "rassir" ; -lin ravoirVN = v_nancy100 "ravoir" ; -lin reclureVN = v_nancy100 "reclure" ; -lin recroîtreVN = v_nancy100 "recroître" ; -lin reluireVN = v_nancy100 "reluire" ; -lin renaîtreVN = v_nancy100 "renaître" ; -lin repaîtreVN = v_nancy100 "repaître" ; -lin résoudreVN = v_nancy100 "résoudre" ; -lin résulterVN = v_nancy100 "résulter" ; -lin rompreVN = v_nancy100 "rompre" ; -lin saillirVN = v_nancy100 "saillir" ; -lin seoirVN = v_nancy100 "seoir" ; -lin sortirVN = v_nancy100 "sortir" ; -lin sourdreVN = v_nancy100 "sourdre" ; -lin stupéfaireVN = v_nancy100 "stupéfaire" ; -lin suffireVN = v_nancy100 "suffire" ; -lin taireVN = v_nancy100 "taire" ; -lin tistreVN = v_nancy100 "tistre" ; -lin titreVN = v_nancy100 "titre" ; -lin urgerVN = v_nancy100 "urger" ; -lin saillirVN = v_nancy10 "saillir" ; --} lin accéderVN = v_nancy10 "accéder" ;