Merge branch 'master' of github.com:GrammaticalFramework/gf-rgl

src/french/DictFre.gf

@@ -22189,7 +22189,7 @@ lin cretace_2_A = mkA "crétacé" "crétacée" ;
 lin crete_1_A = mkA "crêté" "crêtée" ; 
 lin crete_1_N = mkN "crête" "crêtes" feminine ; 
 lin creter_1_V = mkV "crêter" ; 
-lin creterse_1_V = mkV "crêterse" ; 
+--lin creterse_1_V = mkV "crêterse" ; 
 lin cretification_1_N = mkN "crétification" "crétifications" feminine ; 
 lin cretin_1_N = mkN "crétin" "crétins" masculine ; 
 lin cretin_2_A = mkA "crétin" "crétine" ; 
@@ -23474,7 +23474,7 @@ lin debillarder_1_V = mkV "débillarder" ;
 lin debinage_1_N = mkN "débinage" "débinages" masculine ; 
 lin debine_1_N = mkN "débine" "débines" feminine ; 
 lin debiner_1_V = mkV "débiner" ; 
-lin debinerse_1_V = mkV "débinerse" ; 
+--lin debinerse_1_V = mkV "débinerse" ; 
 lin debineur_1_N = mkN "débineur" "débineurs" masculine ; 
 lin debineur_2_A = mkA "débineur" "débineuse" ; 
 lin debineuse_1_N = mkN "débineuse" "débineuses" feminine ; 
@@ -23725,7 +23725,7 @@ lin decatissure_1_N = mkN "décatissure" "décatissures" feminine ;
 lin decave_1_N = mkN "décavé" "décavés" masculine ; 
 lin decave_2_A = mkA "décavé" "décavée" ; 
 lin decaver_1_V = mkV "décaver" ; 
-lin decaverse_1_V = mkV "décaverse" ; 
+--lin decaverse_1_V = mkV "décaverse" ; 
 lin decede_1_A = mkA "décédé" "décédée" ; 
 lin deceder_1_V = mkV "décéder" ; 
 lin decelable_1_A = mkA "décelable" "décelable" ; 
@@ -24231,7 +24231,7 @@ lin deficiente_1_N = mkN "déficiente" "déficientes" feminine ;
 lin deficit_1_N = mkN "déficit" "déficits" masculine ; 
 lin deficitaire_1_A = mkA "déficitaire" "déficitaire" ; 
 lin defier_1_V = mkV "défier" ; 
-lin defierse_1_V = mkV "défierse" ; 
+--lin defierse_1_V = mkV "défierse" ; 
 lin defiger_1_V = mkV "défiger" ; 
 lin defiguration_1_N = mkN "défiguration" "défigurations" feminine ; 
 lin defigure_1_A = mkA "défiguré" "défigurée" ; 
@@ -26106,7 +26106,7 @@ lin develoute_1_A = mkA "dévelouté" "déveloutée" ;
 lin develouter_1_V = mkV "dévelouter" ; 
 lin devenir_1_N = mkN "devenir" "devenirs" masculine ; 
 lin devenir_2_V = mkV "devenir" ; 
-lin deveniren_1_V = mkV "deveniren" ; 
+--lin deveniren_1_V = mkV "deveniren" ; 
 lin deverbal_1_N = mkN "déverbal" "déverbaux" masculine ; 
 lin devergondage_1_N = mkN "dévergondage" "dévergondages" masculine ; 
 lin devergonde_1_A = mkA "dévergondé" "dévergondée" ; 
@@ -32656,7 +32656,7 @@ lin faire_1_V = mkV "faire" ;
 lin faire_part_1_N = mkN "faire-part" masculine ; 
 lin faire_savoir_1_N = mkN "faire-savoir" masculine ; 
 lin faire_valoir_1_N = mkN "faire-valoir" masculine ; 
-lin fairese_1_V = mkV "fairese" ; 
+--lin fairese_1_V = mkV "fairese" ; 
 lin faisable_1_A = mkA "faisable" "faisable" ; 
 lin faisan_1_N = mkN "faisan" "faisans" masculine ; 
 lin faisances_1_N = mkN "faisances" feminine ; 
@@ -33496,7 +33496,7 @@ lin fichaise_1_N = mkN "fichaise" "fichaises" feminine ;
 lin fichant_1_A = mkA "fichant" "fichante" ; 
 lin fichard_1_N = mkN "fichard" masculine ; 
 lin fiche_1_N = mkN "fiche" "fiches" feminine ; 
-lin fiche_2_V = mkV "fiche" ; 
+--lin fiche_2_V = mkV "fiche" ; 
 lin fiche_tricot_1_N = mkN "fiche-tricot" feminine ; 
 lin ficher_1_V = mkV "ficher" ; 
 lin fichet_1_N = mkN "fichet" "fichets" masculine ; 
@@ -34460,7 +34460,7 @@ lin formalisant_1_A = mkA "formalisant" ;
 lin formalisation_1_N = mkN "formalisation" "formalisations" feminine ; 
 lin formalise_1_A = mkA "formalisé" ; 
 lin formaliser_1_V = mkV "formaliser" ; 
-lin formaliserse_1_V = mkV "formaliserse" ; 
+--lin formaliserse_1_V = mkV "formaliserse" ; 
 lin formalisme_1_N = mkN "formalisme" "formalismes" masculine ; 
 lin formaliste_1_N = mkN "formaliste" "formalistes" feminine ; 
 lin formaliste_2_N = mkN "formaliste" "formalistes" masculine ; 
@@ -39011,7 +39011,7 @@ lin haillonneux_1_A = mkA "haillonneux" "haillonneuse" ;
 lin haine_1_N = mkN "haine" "haines" feminine ; 
 lin haineusement_1_Adv = mkAdv "haineusement" ; 
 lin haineux_1_A = mkA "haineux" "haineuse" ; 
-lin hair_1_V = mkV "haïr" ; 
+----lin hair_1_V = conj2haïr "haïr ; 
 lin haire_1_N = mkN "haire" "haires" feminine ; 
 lin haissable_1_A = mkA "haïssable" "haïssable" ; 
 lin haisseur_1_N = mkN "haïsseur" "haïsseurs" masculine ; 
@@ -49335,7 +49335,7 @@ lin macle_1_A = mkA "mâclé" ;
 lin macle_1_N = mkN "macle" "macles" feminine ; 
 lin macler_1_V = mkV "macler" ; 
 lin macler_1_V0 = mkV "mâcler" ;
-lin maclerse_1_V = mkV "mâclerse" ; 
+--lin maclerse_1_V = mkV "mâclerse" ; 
 lin maclotte_1_N = mkN "maclotte" "maclottes" feminine ; 
 lin macon_1_N = mkN "maçon" "maçons" masculine ; 
 lin macon_1_N0 = mkN "mâcon" "mâcons" masculine ;
@@ -50186,7 +50186,7 @@ lin manierisme_1_N = mkN "maniérisme" "maniérismes" masculine ;
 lin manieriste_1_N = mkN "maniériste" "maniéristes" feminine ; 
 lin manieriste_2_N = mkN "maniériste" "maniéristes" masculine ; 
 lin manieriste_3_A = mkA "maniériste" "maniériste" ; 
-lin manierse_1_V = mkV "manierse" ; 
+--lin manierse_1_V = mkV "manierse" ; 
 lin manieur_1_N = mkN "manieur" "manieurs" masculine ; 
 lin manieuse_1_N = mkN "manieuse" "manieuses" feminine ; 
 lin manif_1_N = mkN "manif" feminine ; 
@@ -50515,7 +50515,7 @@ lin marianisme_1_N = mkN "marianisme" masculine ;
 lin marianiste_1_N = mkN "marianiste" "marianistes" feminine ; 
 lin marianiste_2_N = mkN "marianiste" "marianistes" masculine ; 
 lin mariant_1_A = mkA "mariant" ; 
-lin marida_1_V = mkV "marida" ; 
+--lin marida_1_V = mkV "marida" ; 
 lin marie_1_N = mkN "marié" "mariés" masculine ; 
 lin marie_2_A = mkA "marié" "mariée" ; 
 lin marie_couche_toi_la_1_N = mkN "marie-couche-toi-là" feminine ; 
@@ -59372,7 +59372,7 @@ lin ouiller_1_V = mkV "ouiller" ;
 lin ouillere_1_N = mkN "ouillère" "ouillères" feminine ; 
 lin ouillette_1_N = mkN "ouillette" feminine ; 
 lin ouilleur_1_N = mkN "ouilleur" masculine ; 
-lin ouir_1_V = mkV "ouïr" ; 
+----lin ouir_1_V = mkV "ouïr" ; 
 lin ouistiti_1_N = mkN "ouistiti" "ouistitis" masculine ; 
 lin oukase_1_N = (mkN "oukase" "oukases" masculine) |  (mkN "ukase" "ukases" masculine) ; 
 lin oulema_1_N = (mkN "ouléma" "oulémas" masculine) |  (mkN "uléma" "ulémas" masculine) ; 
@@ -64173,7 +64173,7 @@ lin pignade_1_N = mkN "pignade" "pignades" feminine ;
 lin pigne_1_N = mkN "pigne" "pignes" feminine ; 
 lin pigner_1_V = mkV "pigner" ; 
 lin pignocher_1_V = mkV "pignocher" ; 
-lin pignocherse_1_V = mkV "pignocherse" ; 
+--lin pignocherse_1_V = mkV "pignocherse" ; 
 lin pignocheur_1_N = mkN "pignocheur" "pignocheurs" masculine ; 
 lin pignocheuse_1_N = mkN "pignocheuse" "pignocheuses" feminine ; 
 lin pignolat_1_N = mkN "pignolat" masculine ; 
@@ -72813,7 +72813,7 @@ lin relaxe_1_N = mkN "relaxe" "relaxes" feminine ;
 lin relaxe_2_N = mkN "relaxe" "relaxes" masculine ; 
 lin relaxe_3_A = mkA "relaxe" "relaxe" ; 
 lin relaxer_1_V = mkV "relaxer" ; 
-lin relaxerse_1_V = mkV "relaxerse" ; 
+--lin relaxerse_1_V = mkV "relaxerse" ; 
 lin relayer_1_V = mkV "relayer" ; 
 lin relayeur_1_N = mkN "relayeur" "relayeurs" masculine ; 
 lin relayeuse_1_N = mkN "relayeuse" "relayeuses" feminine ; 
@@ -73373,7 +73373,7 @@ lin repenti_2_A = mkA "repenti" "repentie" ;
 lin repentie_1_N = mkN "repentie" "repenties" feminine ; 
 lin repentir_1_N = mkN "repentir" "repentirs" masculine ; 
 lin repentir_2_V = mkV "repentir" ; 
-lin repentirse_1_V = mkV "repentirse" ; 
+--lin repentirse_1_V = mkV "repentirse" ; 
 lin reperable_1_A = mkA "repérable" "repérable" ; 
 lin reperage_1_N = mkN "repérage" "repérages" masculine ; 
 lin repercer_1_V = mkV "repercer" ; 
@@ -73809,7 +73809,7 @@ lin ressourcer_1_V = mkV "ressourcer" ;
 lin ressouvenance_1_N = mkN "ressouvenance" "ressouvenances" feminine ; 
 lin ressouvenir_1_N = mkN "ressouvenir" "ressouvenirs" masculine ; 
 lin ressouvenir_2_V = mkV "ressouvenir" ; 
-lin ressouvenirse_1_V = mkV "ressouvenirse" ; 
+--lin ressouvenirse_1_V = mkV "ressouvenirse" ; 
 lin ressuage_1_N = mkN "ressuage" "ressuages" masculine ; 
 lin ressuer_1_V = mkV "ressuer" ; 
 lin ressui_1_N = mkN "ressui" "ressuis" masculine ; 
@@ -74969,7 +74969,7 @@ lin rocheux_1_A = mkA "rocheux" "rocheuse" ;
 lin rochier_1_N = mkN "rochier" "rochiers" masculine ; 
 lin rock_1_N = mkN "rock" "rocks" masculine ; 
 lin rock_and_roll_1_N = mkN "rock" masculine ; 
-lin rock_and_roller_1_V = mkV "rock" ; 
+--lin rock_and_roller_1_V = mkV "rock" ; 
 lin rock_and_roller_2_N = mkN "rock" masculine ; 
 lin rock_n_roll_1_N = mkN "rock'n'roll" masculine ; 
 lin rock_n_roller_1_V = mkV "rock'n'roller" ; 
@@ -77489,7 +77489,7 @@ lin se_chemer_1_V = reflV (mkV "chemer") ;
 lin se_compassionner_1_V = reflV (mkV "compassionner") ; 
 lin se_condouloir_1_V = reflV (mkV "condouloir") ; 
 lin se_conjouir_1_V = reflV (mkV "conjouir") ; 
-lin se_contrefiche_1_V = reflV (mkV "contrefiche") ; 
+--lin se_contrefiche_1_V = reflV (mkV "contrefiche") ; 
 lin se_contreficher_1_V = reflV (mkV "contreficher") ; 
 lin se_contrefoutre_1_V = reflV (mkV "contrefoutre") ; 
 lin se_costumer_1_V = reflV (mkV "costumer") ; 
@@ -77559,7 +77559,7 @@ lin se_ensuivre_1_V = reflV (mkV "ensuivre") ;
 lin se_entabler_1_V = reflV (mkV "entabler") ;
 lin se_entaverner_1_V = reflV (mkV "entaverner") ;
 lin se_enticher_1_V = reflV (mkV "enticher") ;
-lin se_entr_egorger_1_V = reflV (mkV "entr") ;
+--lin se_entr_egorger_1_V = reflV (mkV "entr") ;
 lin se_entraider_1_V = reflV (mkV "entraider") ;
 lin se_entre_dechirer_1_V = reflV (mkV "entre") ;
 lin se_entre_devorer_1_V = reflV (mkV "entre") ;
@@ -77591,7 +77591,7 @@ lin se_exorbiter_1_V = reflV (mkV "exorbiter") ;
 lin se_extravaser_1_V = reflV (mkV "extravaser") ;
 lin se_fistuliser_1_V = reflV (mkV "fistuliser") ;
 lin se_foliariser_1_V = reflV (mkV "foliariser") ;
-lin se_frotti_frotter_1_V = reflV (mkV "frotti") ;
+--lin se_frotti_frotter_1_V = reflV (mkV "frotti") ;
 lin se_gabeler_1_V = reflV (mkV "gabeler") ;
 lin se_gauchiser_1_V = reflV (mkV "gauchiser") ;
 lin se_gendarmer_1_V = reflV (mkV "gendarmer") ;
@@ -77716,7 +77716,7 @@ lin se_revenger_1_V = reflV (mkV "revenger") ;
 lin se_rhinoceroser_1_V = reflV (mkV "rhinoceroser") ;
 lin se_ruinoter_1_V = reflV (mkV "ruinoter") ;
 lin se_serviliser_1_V = reflV (mkV "serviliser") ;
-lin se_sous_venter_1_V = reflV (mkV "sous") ;
+--lin se_sous_venter_1_V = reflV (mkV "sous") ;
 lin se_subdivisionner_1_V = reflV (mkV "subdivisionner") ;
 lin se_suicider_1_V = reflV (mkV "suicider") ;
 lin se_surficher_1_V = reflV (mkV "surficher") ;
@@ -77727,7 +77727,7 @@ lin se_torsionner_1_V = reflV (mkV "torsionner") ;
 lin se_touffer_1_V = reflV (mkV "touffer") ;
 lin se_transsubstantialiser_1_V = reflV (mkV "transsubstantialiser") ;
 lin se_trisser_1_V = reflV (mkV "trisser") ;
-lin se_ultra_condenser_1_V = reflV (mkV "ultra") ;
+--lin se_ultra_condenser_1_V = reflV (mkV "ultra") ;
 lin se_vacher_1_V = reflV (mkV "vacher") ;
 lin se_vasculariser_1_V = reflV (mkV "vasculariser") ;
 lin se_veinuler_1_V = reflV (mkV "veinuler") ;
@@ -80772,7 +80772,7 @@ lin souvenance_1_N = mkN "souvenance" "souvenances" feminine ;
 lin souvenant_1_A = mkA "souvenant" ; 
 lin souvenir_1_N = mkN "souvenir" "souvenirs" masculine ; 
 lin souvenir_2_V = mkV "souvenir" ; 
-lin souvenirse_1_V = mkV "souvenirse" ; 
+--lin souvenirse_1_V = mkV "souvenirse" ; 
 lin souvent_1_Adv = mkAdv "souvent" ; 
 lin souventefois_1_Adv = mkAdv "souventefois" ; 
 lin souverain_1_N = mkN "souverain" "souverains" masculine ; 
@@ -86614,7 +86614,7 @@ lin toquarde_1_N = mkN "toquarde" feminine ;
 lin toque_1_A = mkA "toqué" "toquée" ; 
 lin toque_1_N = mkN "toque" "toques" feminine ; 
 lin toquer_1_V = mkV "toquer" ; 
-lin toquerse_1_V = mkV "toquerse" ; 
+--lin toquerse_1_V = mkV "toquerse" ; 
 lin toquet_1_N = mkN "toquet" "toquets" masculine ; 
 lin torche_1_A = mkA "torché" "torchée" ; 
 lin torche_1_N = mkN "torche" "torches" feminine ; 

src/french/ParadigmsFre.gf

@@ -403,8 +403,26 @@ oper
 
   mkA = overload {
     mkA : Str -> A = regA ;
-    mkA : (sec,seche : Str) -> A = \sec,seche -> mk4A sec seche (sec + "s") (seche + "ment") ;
+    mkA : (sec,seche : Str) -> A = \sec,seche ->
-    mkA : (banal,banale,banaux : Str) -> A = \sec,seche,secs -> mk4A sec seche secs (seche + "ment") ;
+      let a = regA sec
+      in a ** {
+        s = table {
+	  AF Fem Sg => seche ;
+	  AF Fem Pl => seche  + "s" ;
+	  AA => case seche of {
+	    _ + "ée" => init seche + "ment" ;
+	    _ => seche + "ment"
+	    } ;
+	  c => a.s ! c
+	  }
+	} ;
+
+    mkA : (banal,banale,banaux : Str) -> A = \sec,seche,secs ->
+      let sechement : Str = case seche of {
+	    _ + "ée" => init seche + "ment" ;
+	    _ => seche + "ment"
+	    }
+      in mk4A sec seche secs sechement ;
     mkA : (banal,banale,banaux,banalement : Str) -> A = mk4A ;
     mkA : (vieux,vieil,vieille,vieuxs,vieuxment : Str) -> A = mk5A ;
     mkA : A -> A -> A = mkADeg ;