Grammalecte  Diff

TEST: {{3O}} (chiffre avec un O).                                         ->> 30


!!!! Écritures épicènes invariables                                                               !!

__[i](d_eepi_écriture_épicène_pluriel)__
    ({w_1}[éuitsrn])_(?:[nt]|)e_s  @@0
    <<- morph(\1, ":[NAQ]", ":G") =>> define(\1, [":N:A:Q:e:p"])

__[i](d_eepi_écriture_épicène_singulier)__
    ({w_2}[éuitsrn])_e  @@0
    <<- morph(\1, ":[NAQ]") =>> define(\1, [":N:A:Q:e:s"])


!!!! Purge des références aux notes                                                               !!

# les références aux notes
__<s>(p_exposants)__
    [¹²³⁴⁵⁶⁷⁸⁹⁰]+

        <<- not morph(<1, ":D.*:p|>[a-z]+ième/") =>> select(\1, ":R")

    passé  [<end>|,|$:R]
        <<- =>> exclude(\1, ":G")

    y compris
        <<- not value(<1, "|n’|j’|tu|t’|m’|s’|") ~>> ␣
        <<- __also__ =>> define(\1, [":G:R"])


__da_puis__
    puis
        <<- not value(<1, "|je|ne|n’|le|la|l’|les|lui|nous|vous|leur|") =>> =exclude(\1, ":V")

    [le|l’|mon|notre|votre|leur|mes|tes|ses|nos|vos|leurs|quel|quels|quelle|quelles] point
        <<- =>> select(\2, ":N")


__da_autre_chose_quelque_chose__
    quelque chose
        <<- =>> define(\2, [":N:m:s"])

    autre chose
        <<- not morph(<1, ">entre/|:D") ~>> ␣
        <<- =>> define(\1, [":G"])


__da_groupe_nominal__
    aucun  @:[NA].*:[me]
        <<- =>> exclude(\2, ":V")

    bac + ~^\d\d?$
        <<- ~>> ␣
        <<- =>> define(\1, [":N:e:i"])

    [de|d’]  @:¬:[YD]
        <<- =>> exclude(\2, ":(?:[123][sp]|P)")

    d’ [un|une]  *WORD
        <<- =>> exclude(\3, ":V")

    l’ [un|une]  *WORD
        <<- not value(\3, "|plus|") =>> select(\3, ":[123][sp]")

    l’ un comme l’ autre
        <<- ~>> ␣
        <<- =>> define(\1, [":LN:m:p"])

    l’ une comme l’ autre
        <<- ~>> ␣
        <<- =>> define(\1, [":LN:f:p"])

    [des|chaque|quelque|quelques|cet|cette|ces|mon|ma|ta|sa|mes|tes|ses|au|aux|notre|votre|nos|vos|leurs|aucun|aucune]  *WORD
        <<- =>> exclude(\2, ":V")

    les  ~.es$
        <<- not value(<1, "|tu|ne|n’|me|m’|te|t’|se|s’|nous|vous|") and morph(\2, ":V1.*Ip.*:2s") and not tag_before(\1, "_2s_") and not value(>1, "|tu|pas|jamais|")
        =>> exclude(\2, ":V")

        <<- =>> exclude(\2, ":V")

    m’ [dame|sieur]
        <<- ~>> ␣

    nombre  [de|d’|des]  [@:[NA]|<end>|,]
        <<- not morph(<1, ":D") >>>
        <<- morph(<1, ":A.*:[me]:[si]") =>> add_morph(\1, [">nombre/:G:D"])
        <<- __else__ =>> define(\1, [">nombre/:G:D"])

    par  *WORD
        <<- =>> exclude(\2, ":[123][sp]")

    plein  [de|d’]  @:[AN]
        <<- not morph(<1, ":D.*:m|>(?:être|(?:re|)devenir|rester|demeurer|sembler|para[iî]tre)/") =>> =define(\1, [":G"])

    source [de|d’]
        <<- morph(<1, ">(?:être|(?:re|)devenir|rester|demeurer|sembler|para[iî]tre)/") =>> define(\1, [":LV"])

    tout feu ?,¿ tout >flamme
        <<- ~>> ␣
        <<- =>> define(\1, [":A:e:i"])

    très  *WORD
        <<- =>> exclude(\2, ":[123][sp]")

TEST: il s’agit d’{{un}} {{anagramme}}
TEST: nul ne sait qui arriva à ce pauvre Paul surpris par la pluie.
TEST: elle finit par être très fière de son fils.

    le ou la  *WORD
    la ou le  *WORD
        <<- morph(\-1, ":[NA]") ~1:3>> ␣

    alors    [que|qu’]
    dès lors [que|qu’]
        <<- ~>> ␣
        <<- =>> define(\1, [":Cs"])

    quelqu’ [un|une]
        <<- ~>> ␣
        <<- =>> change_meta(\1, "WORD")


__fusions_noms_communs__
    au revoir
        <<- ~>> ␣
        <<- =>> define(\1, [":N:m:i"])

    n’ importe [qui|quoi|quel|quelle|quels|quelles|où|ou|lequel|laquelle|lesquels|lesquelles]
        <<- ~1:2>> ␣

    [cultural|gender] studies
        <<- ~>> ␣
        <<- =>> define(\1, [":N:f:p"])

    black [>bloc|>block]
    jet set
    machine [learning+s]
    nec plus ultra
    standing >ovation
    star [system+s]
    quantitative easing
        <<- ~>> ␣

    jusqu’ [au-boutiste+s|au-boutisme+s]
        <<- ~>> ␣

    notre père
        <<- morph(<1, ":D.*:[mp]") ~>> ␣
        <<- __also__ =>> define(\1, [":N:m:i"])

    presqu’ [>ile|>île]
        <<- ~>> ␣
        <<- =>> change_meta(\1, "WORD")

    *NUM : *NUM
        <<- space_after(\1, 0, 0) and space_after(\1, 0, 0) ~>> ␣

    *NUM  ~^h[0-9][0-9]$
        <<- space_after(\1, 0, 0) ~>> ␣


__fusions_noms_communs_séparés_slah__
    *WORD  /  *WORD
        <<- space_after(\1, 0, 0) and space_after(\2, 0, 0) and morph(\1, ":N") and morph(\-1, ":N") ~>> ␣
        <<- =>> define(\1, [":N:e:i"])


__fusions_noms_propres__
    d’ Alembert
    d’ Estaing
    de Gaulle
    de Broglie
    des Cars
    du Bellay
    du Guesclin
    La Bruyère
    La Fayette
    La Fontaine
        <<- ~>> ␣
        <<- =>> define(\1, [":M2:e:i"])

    cac  40
        <<- ~>> ␣

    France [2|3|4|5|0|O]
        <<- ~>> ␣

    Peugeot  ~^\d0\d\d?$
        <<- ~>> ␣
        <<- =>> define(\1, [":N:e:i"])

    Mai 68
        <<- ~>> ␣
        <<- =>> define(\1, [":N:m:i"])

    ~^[A-ZÀÂÉÈÊÎÔ].  ~^[A-ZÀÂÉÈÊÎÔ].
        <<- analyse_with_next(\1, " ", ":") ~>> ␣
        <<- __else__ and morph(\1, ":M") and morph(\2, ":V", ":[GM]") =>> define(\2, [":M2"])

    Me  ~^[A-ZÀÂÉÈÊÎÔ].
        <<- =>> define(\1, [":T"])
        <<- ~1>> *

    [la|cette]  ~^[A-ZÀÂÉÈÊÎÔ].  ?~^[A-ZÀÂÉÈÊÎÔ].¿  ?~^[A-ZÀÂÉÈÊÎÔ].¿  [Administration|Area|Army|Assocation|Avenue|Chamber|Church|City|Community|Court|Company|Corporation|Cup|Enterprise|Foundation|Fraternity|Gallery|Highway|House|Initiative|League|Library|Mansion|Nation|Navy|Organization|Reserve|Road|River|Sea|Society|Station|Sorority|Tavern|Tower|University|Valley]
        <<- ~2:0>> ␣
        <<- =>> define(\2, [":MP:f:s"])

    [le|au|du|ce]  ~^[A-ZÀÂÉÈÊÎÔ].  ?~^[A-ZÀÂÉÈÊÎÔ].¿  ?~^[A-ZÀÂÉÈÊÎÔ].¿  [Act|Building|Bureau|Casino|Castle|Center|Championship|Club|College|Comity|Consortium|Cottage|Covent|Day|Desert|Forum|Hall|Garden|Hospital|Hostel|Institute|Magazine|Manor|Monastery|Mount|Museum|News|Newspaper|Ocean|Office|Opera|Park|Party|Palace|Post|Restaurant|State|Theatre|Tournament]
        <<- ~2:0>> ␣
        <<- =>> define(\2, [":MP:m:s"])

    the  ~^[A-ZÀÂÉÈÊÎÔ].  ?~^[A-ZÀÂÉÈÊÎÔ].¿  ?~^[A-ZÀÂÉÈÊÎÔ].¿  [Administration|Area|Army|Assocation|Avenue|Chamber|Church|City|Community|Court|Company|Corporation|Cup|Enterprise|Foundation|Fraternity|Gallery|Highway|House|Initiative|League|Library|Mansion|Nation|Navy|Organization|Reserve|Road|River|Sea|Society|Station|Sorority|Tavern|Tower|University|Valley]
    the  ~^[A-ZÀÂÉÈÊÎÔ].  ?~^[A-ZÀÂÉÈÊÎÔ].¿  ?~^[A-ZÀÂÉÈÊÎÔ].¿  [Act|Building|Bureau|Casino|Castle|Center|Championship|Club|College|Comity|Consortium|Cottage|Covent|Day|Desert|Forum|Hall|Garden|Hospital|Hostel|Institute|Magazine|Manor|Monastery|Mount|Museum|News|Newspaper|Ocean|Office|Opera|Park|Party|Palace|Post|Restaurant|State|Theatre|Tournament]
        <<- ~2:0>> ␣
        <<- =>> define(\2, [":MP:e:s"])

    ~^[A-ZÀÂÉÈÊÎÔ]. Airways
        <<- ~>> ␣
        <<- =>> define(\2, [":MP:e:i"])


__immunités__
    il y a
    il n’ y a
        <<- !-1>>

__inte_rendez_vous__
    ne [le|la|les] [lui|leur]   rendez-vous
    ne me [le|la|les]           rendez-vous
    ne [lui|leur] en            rendez-vous
    ne [le|la|les|lui|leur]     rendez-vous
    [me|ne|nous|vous|lui]       rendez-vous
        <<- =>> define(\-1, [":VCi1:2p"])
        <<- !-1>>

#   [un|mon|ton|son|ce|mes|tes|ses|leurs] rendez-vous
#   rendez-vous seulement défini comme :N:m:i  dans le dictionnaire

__imp_verbes_composés_impératifs__
    ~\w-l(?:es?|a)-(?:[mt]oi|nous|leur)$

    in anima vili
    in cauda venenum
    in vino veritas
    sursum corda
    sic transit gloria mundi
        <<- ~>> ␣
        <<- =>> =define(\1, [":LP"])


__purge_locutions_incises__
    [<start>|,|(] [oui|non] [<end>|,|)]
    [<start>|,|(] ?oui¿ ou non [<end>|,|)]
    [<start>|,|(] et non l’ inverse [<end>|,|)]
    [<start>|,|(] fait remarquable [<end>|,|)]

    par l’ entremise                                                                                                    [de|du|d’|des]
    par manque                                                                                                          [de|d’]
    par habitude                                                                                                        [de|du|d’|des]
    sans distinction                                                                                                    [de|d’]
    sous la houlette                                                                                                    [de|du|d’|des]
    sous forme                                                                                                          [de|d’]
        <<- ~1:-2>> ␣
        <<- =>> define(\1, [":G:R:LR"])

    tout au [bout|long] [de|du|d’|des]
        <<- not morph(<1, ":R") ~1>> *

    à travers $:D
    à travers >différent
        <<- ~1:2>> ␣
        <<- =>> define(\1, [":G:R:LR"])

    ainsi
        <<- not value(>1, "|que|qu’|") ~>> *

    au moins  @:[DB]
        <<- ~1:2>> *

    l’ étrange impression [que|qu’]
    la [nette|bizarre] impression [que|qu’]
        <<- ~2:3>> _

    le pour et le contre
        <<- ~>> ␣
        <<- =>> define(\1, [":LN:m:p"])

    le [pressentiment|sentiment] [que|qu’]
        <<- ~1>> _

    ou bien
        <<- ~2>> *

    [les|des]   >numéro  [un|*NUM|$:B]  et  [*NUM|$:B]
        <<- ~3:0>> *

    la  >numéro  un
    la  >numéro  $:B
    la  >numéro  *NUM
        <<- =>> define(\2, [">numéro/:N:f:s"])
        <<- ~3>> *

    le  numéro  un  @:¬:N:[em]:[is]
        <<- ~3>> *

    >numéro  $:B
    >numéro  *NUM

TEST: cette femme-là {{étaient}} partout.


__simplification_des_nombres__
    [vingt|trente|quarante|cinquante|soixante|soixante-dix|septante|quatre-vingt|octante|huitante|quatre-vingt-dix|nonante|mille] et [un|une|onze]
        <<- ~>> \1-et-\3||
        <<- ~2:3>> *
        <<- =>> define(\1, [":B:e:p"])

    [deux|trois|quatre|cinq|six|sept|huit|neuf|onze|douze|treize|quatorze|quinze|seize|dix-sept|dix-huit|dix-neuf]  cents  @:[NAQ].*:[pi]¬:(?:G|3p)
        <<- ~1:2>> ␣
        <<- =>> define(\1, [":B:e:p"])

    [deux|trois|quatre|cinq|six|sept|huit|neuf] ?cent¿ mille
    cent mille
        <<- ~>> ␣
        <<- =>> define(\1, [":B:e:p"])


__purge_des_nombres__
    [les|des|ces|mes|tes|ses|nos|vos|leurs]  quelque  $:B:e @:[NA].*:[pi]¬:(?:G|3p)
    [les|des|ces|mes|tes|ses|nos|vos|leurs]  quelque  *NUM  @:[NA].*:[pi]¬:(?:G|3p)
        <<- ~2:3>> *

    noir    sur blanc
    rose    [bonbon|chair|corail]
    rouge   [anglais|brique|cardinal|carmin|cerise|cochenille|coquelicot|cuivré|écarlate|feu|fraise|grenat|groseille|incarnat|indien|rubis|sang|sanguin|tomate|vermeille|vermillon]
    vert    [bouteille|céladon|émeraude|épinard|impérial|lichen|olive|perroquet|pistache|poireau|pomme|prairie|printemps|sapin|sauge|tilleul]
    couleur sable
        <<- morph(<1, ":[NA]", ":D") ~>> *
        <<- __else__ and morph(<1, ":D|>(?:être|devenir|redevenir|rester|sembler|demeurer|para[îi]tre)") ~>> ␣
        <<- __also__ =>> define(\1, [":A:e:i"])


__simplification_noms_propres__
    don Juan
        <<- ~1>> *

    >cocktail Molotov

    [>être|>devenir|>rester] papa et maman
    [>être|>devenir|>rester] partie [intégrante|prenante]
    [>être|>devenir|>rester] peine perdue
    [>être|>devenir|>rester] pieds et poings liés
    [>être|>devenir|>rester] pieds nus
    [>être|>devenir|>rester] père et mère
        <<- ~2:0>> ␣
        <<- =>> define(\2, [":LV"])

    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] [bon|meilleur] marché
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] cousin et cousine
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] de passage
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] frère et sœur
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] mari et femme
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] mission impossible
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] monnaie courante
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] papa et maman
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] partie [intégrante|prenante]
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] peine perdue
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] pieds et poings liés
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] pieds nus
    [>être|>devenir|>rester] [pas|jamais|plus|guère|point] père et mère
        <<- ~2>> *
        <<- ~3:0>> ␣
        <<- =>> define(\3, [":LV"])

    [>être|>devenir|>rester] ?[pas|jamais|plus|guère|point]¿ avant tout
    [>être|>devenir|>rester] ?[pas|jamais|plus|guère|point]¿ du moins
    [>être|>devenir|>rester] ?[pas|jamais|plus|guère|point]¿ en partie
    [>être|>devenir|>rester] ?[pas|jamais|plus|guère|point]¿ somme toute
    [>être|>devenir|>rester] ?[pas|jamais|plus|guère|point]¿ sous peu
    [>être|>devenir|>rester] ?[pas|jamais|plus|guère|point]¿ [tous|toutes] [deux|trois]

    /_VCint_ papa et maman
    /_VCint_ partie [intégrante|prenante]
    /_VCint_ peine perdue
    /_VCint_ pieds et poings liés
    /_VCint_ pieds nus
    /_VCint_ père et mère
        <<- morphVC(\1, ">(?:être|devenir|rester)") ~2:0>> ␣
        <<- __also__ =>> define(\2, [":LV"])

    /_VCint_ [pas|jamais|plus|guère|point] [bon|meilleur] marché
    /_VCint_ [pas|jamais|plus|guère|point] cousin et cousine
    /_VCint_ [pas|jamais|plus|guère|point] de passage
    /_VCint_ [pas|jamais|plus|guère|point] frère et sœur
    /_VCint_ [pas|jamais|plus|guère|point] mari et femme
    /_VCint_ [pas|jamais|plus|guère|point] mission impossible
    /_VCint_ [pas|jamais|plus|guère|point] monnaie courante
    /_VCint_ [pas|jamais|plus|guère|point] papa et maman
    /_VCint_ [pas|jamais|plus|guère|point] partie [intégrante|prenante]
    /_VCint_ [pas|jamais|plus|guère|point] peine perdue
    /_VCint_ [pas|jamais|plus|guère|point] pieds et poings liés
    /_VCint_ [pas|jamais|plus|guère|point] pieds nus
    /_VCint_ [pas|jamais|plus|guère|point] père et mère
        <<- morphVC(\1, ">(?:être|devenir|rester)") ~2>> *
        <<- __also__ ~3:0>> ␣
        <<- __also__ =>> define(\3, [":LV"])

    /_VCint_ ?[pas|jamais|plus|guère|point]¿ avant tout
    /_VCint_ ?[pas|jamais|plus|guère|point]¿ du moins
    /_VCint_ ?[pas|jamais|plus|guère|point]¿ en partie
    /_VCint_ ?[pas|jamais|plus|guère|point]¿ somme toute
    /_VCint_ ?[pas|jamais|plus|guère|point]¿ sous peu
    /_VCint_ ?[pas|jamais|plus|guère|point]¿ [tous|toutes] [deux|trois]

    >avoir  bon [dos|fond]
    >avoir  bon pied ?,¿ bon œil
    >avoir  carte blanche
    >avoir  forme [humaine|animale]
    >avoir  partie [gagnée|liée]
    >avoir  voix au chapitre
        <<- ~2:0>> ␣
        <<- =>> define(\2, [":LV"])

    >avoir  [pas|jamais|plus|guère|point]  [besoin|confiance|connaissance|conscience|crainte|envie|faim|honte|peur|peine|pitié|soif|vent]
    >avoir  [pas|jamais|plus|guère|point]  bon [dos|fond]
    >avoir  [pas|jamais|plus|guère|point]  bon pied ?,¿ bon œil
    >avoir  [pas|jamais|plus|guère|point]  carte blanche
    >avoir  [pas|jamais|plus|guère|point]  forme [humaine|animale]
    >avoir  [pas|jamais|plus|guère|point]  gain de cause
    >avoir  [pas|jamais|plus|guère|point]  partie [gagnée|liée]
    >avoir  [pas|jamais|plus|guère|point]  quartier libre
    >avoir  [pas|jamais|plus|guère|point]  voix au chapitre
        <<- ~3:0>> ␣
        <<- =>> define(\3, [":LV"])

    >avoir  ?[pas|jamais|plus|guère|point]¿  [tous|toutes] les $:B:e:p  [besoin|confiance|connaissance|conscience|crainte|envie|faim|honte|peur|peine|pitié|soif|vent]
    >avoir  ?[pas|jamais|plus|guère|point]¿  [tous|toutes] les $:B:e:p  @:(?:Q|V1.*:Y)
        <<- ~2:-2>> *

    n’  >avoir  que  $:Q
        <<- ~3>> *

    /_VCint_  bon [dos|fond]
    /_VCint_  bon pied ?,¿ bon œil
    /_VCint_  carte blanche
    /_VCint_  forme [humaine|animale]
    /_VCint_  partie [gagnée|liée]
    /_VCint_  voix au chapitre
        <<- morphVC(\1, ":V0a") ~2:0>> ␣
        <<- __also__ =>> define(\2, [":LV"])

    /_VCint_  [pas|jamais|plus|guère|point]  [besoin|confiance|connaissance|conscience|crainte|envie|faim|honte|peur|peine|pitié|soif|vent]
    /_VCint_  [pas|jamais|plus|guère|point]  bon [dos|fond]
    /_VCint_  [pas|jamais|plus|guère|point]  bon pied ?,¿ bon œil
    /_VCint_  [pas|jamais|plus|guère|point]  carte blanche
    /_VCint_  [pas|jamais|plus|guère|point]  forme [humaine|animale]
    /_VCint_  [pas|jamais|plus|guère|point]  gain de cause
    /_VCint_  [pas|jamais|plus|guère|point]  partie [gagnée|liée]
    /_VCint_  [pas|jamais|plus|guère|point]  quartier libre
    /_VCint_  [pas|jamais|plus|guère|point]  voix au chapitre
        <<- morphVC(\1, ":V0a") ~3:0>> ␣
        <<- __also__ =>> define(\3, [":LV"])

    /_VCint_  ?[pas|jamais|plus|guère|point]¿  [tous|toutes] les $:B:e:p  [besoin|confiance|connaissance|conscience|crainte|envie|faim|honte|peur|peine|pitié|soif|vent]
    /_VCint_  ?[pas|jamais|plus|guère|point]¿  [tous|toutes] les $:B:e:p  @:(?:Q|V1.*:Y)
        <<- morphVC(\1, ":V0a") ~2:-2>> *


__purge_après_verbe__

    >trier sur le volet
    >trouver refuge
    >vendre à perte
    >venir à bout
    [>venir|>revenir] je [ne|n’] sais ?pas¿ ?trop¿ d’ où
    [>venir|>revenir] on [ne|n’] sait ?pas¿ ?trop¿ d’ où
        <<- ~2:0>> ␣
        <<- =>> define(\2, [":LV"])


__sgpl_faire_plaisir__
    >faire plaisirs
        <<- /sgpl/ --1>> plaisir        && Faire plaisir : dans cette locution, “plaisir” doit être au singulier.
        <<- ~-1>> *