diff --git a/src/french/DictFre.gf b/src/french/DictFre.gf index ed543f47..05b7b267 100644 --- a/src/french/DictFre.gf +++ b/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 ; diff --git a/src/french/ParadigmsFre.gf b/src/french/ParadigmsFre.gf index 99facb46..e87fcd92 100644 --- a/src/french/ParadigmsFre.gf +++ b/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 : (banal,banale,banaux : Str) -> A = \sec,seche,secs -> mk4A sec seche secs (seche + "ment") ; + mkA : (sec,seche : Str) -> A = \sec,seche -> + 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 ;