french verbs

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.
 

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

lib/resource/french/TestVerbesAbs.gf

@@ -0,0 +1,3 @@
+abstract TestVerbesAbs = TestResource, VerbesAbs ** {
+  fun UseVN : VN -> V ;
+}

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
+
+}

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 bruireVN : VN ;
-fun chaloirVN : VN ;
+---- fun chaloirVN : VN ;
-fun comparoirVN : 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 férirVN : VN ;
-fun forcloreVN : 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 sourdreVN : VN ;
-fun stupéfaireVN : VN ;
+---- fun stupéfaireVN : VN ;
 fun suffireVN : VN ;
 fun taireVN : VN ;
-fun tistreVN : VN ;
+---- fun tistreVN : VN ;
-fun titreVN : VN ;
+---- fun titreVN : VN ;
 fun urgerVN : VN ;
 fun saillirVN : VN ;
--}
+fun saillir2VN : VN ;
+
 
 fun accéderVN : VN ;
 fun accélérerVN : VN ;

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" ;