msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

fixed ParadigmsFre.mkA with 2 and 3 arguments, and commented out some uncompilable entries from DictFre

Browse Source
This commit is contained in:
aarneranta
2021-12-28 11:20:08 +01:00
parent 1d32508312
commit 93999cd21e
2 changed files with 45 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
src/french/DictFre.gf
View File

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

22
src/french/ParadigmsFre.gf
View File

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