Grammalecte  Check-in [cf8b5bf381]

        <<- =>> define(\1, [":N:f:p"])

    machine [learning|learnings]
    standing >ovation
    star [system|systems]
        <<- ~>> ␣

    *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_propres__
    cac  40
        <<- ~>> ␣

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

        <<- %2>>

    [comme|que|qu’|lorsque|lorsqu’|puisque|puisqu’|quand|pourquoi|qui|quoi]  ?[ne|n’]¿  ?[se|s’]¿  (*WORD)  ?à¿  [le|la|l’|les]  @:Y  @:M
        <<- morph(\1, ":V") %-2>>

    soit pour soit contre
        <<- %3>>



@@@@
@@@@
@@@@
@@@@
@@@@GRAPH: ocr                                                                                     _

    @:V  même
    @:[123]  bien [entendu|sûr]
    @:[123]  ?pas¿  juste
    @:[123]  ?pas¿  ensemble
    @:[123]  ?pas¿  ?[fort|très|super]¿  [bien|mal]
        <<- ~2:0>> *


    [>pouvoir|>savoir|>vouloir] mieux que personne @:[YG]
    >avoir mieux que personne @:[QYG]
    >être mieux que personne @:[QAYG]
        <<- ~2:5>> *


__purge_avant_adjectifs_adverbes__
    le  @:[NAQ].*:[me]¬:G  le  plus  @:A.*:[me]
        <<- ~3:4>> *

    la  @:[NAQ].*:[fe]¬:G  la  plus  @:A.*:[fe]
        <<- ~3:4>> *

    >jouer franc jeu
    >lâcher prise
    >laisser pour compte
    >marcher à rebours
    [>mettre|>remettre] à [bas|dos|flot|jour|niveau|nu|plat|terre]
    [>mettre|>remettre] l’ [écart|épreuve]
    [>mettre|>remettre] au [point|pas]
    [>mettre|>remettre] en [avant|branle|bouche|demeure|garde|jeu|lumière|mouvement|œuvre|place|scène|terre]
    >mourir jeune
    [>naître|>naitre] sous x
    >percer à jour
    >perdre [connaissance|conscience|raison]
    >perdre d’ avance
    >porter [assistance|atteinte|bonheur|caution|chance|malheur|plainte|préjudice|secours]
    >poser problème

TEST: Comme une montagne qui se construit à travers différentes couches de sédiments, la cathédrale évolue selon les ères qu’elle traverse.
TEST: Sous la coupole bleu et or construite il y a deux siècles, les jurés sont attentifs. Ils écoutent et observent tout.
TEST: À mes yeux, aucune cathédrale, pyramide, musée, arc de triomphe, Colisée, abbaye, chapelle, temple, synagogue, mosquée, joyaux architecturaux d’hier ou d’avant-hier ne valent la vie d’un être humain, quel qu’il soit, d’où qu’il vienne.
TEST: Ça fait sens.
TEST: il faut recruter des administratrices système
TEST: Cette politique spctacle est indigne de notre démocratie.
TEST: Ils sont vent debout contre cette politique de renoncement
TEST: qui sait mieux que personne orchestrer une campagne de promotion médiatique



@@@@
@@@@
@@@@
@@@@

TEST: Sois le pire des salopards.
TEST: L’Astrance brille de mille feux, écrit le Michelin 2010.


__imp_union_le_la_leur__
    *WORD  en
        <<- /imp/ space_after(\1, 1, 1)
            and morph(\1, ":E", ":[GM]|>(?:venir|aller|partir)") and morph(>1, ":|<end>|>,", ":(?:N|A|Q|Y|M|P|H|T|D)|>(?:pour|plus|moins|mieux|peu|plupart|trop|très|une?)/") and morph(<1, ":Cc|<start>|>,")
        ->> \1-\2                                       # S’il s’agit d’un impératif, mettez un trait d’union.|http://bdl.oqlf.gouv.qc.ca/bdl/gabarit_bdl.asp?id=4206

    ,  *WORD  en
        <<- /imp/ space_after(\1, 1, 1) and morph(\2, ":V(?:1.*:Ip.*:2s|[23].*:Ip.*:3s)", ":[GM]|>(?:venir|aller|partir)")
            and morph(>1, ":|<end>|>,", ":(?:N|A|Y|M|P|B|3[sp]|D|>(?:pour|plus|moins|mieux|peu|trop|très|en|y))")
        -2:3>> =suggVerbTense(\2, ":E", ":2s")+"-"+\3   # S’il s’agit d’un impératif, mettez un trait d’union.|http://bdl.oqlf.gouv.qc.ca/bdl/gabarit_bdl.asp?id=4206

TEST: {{restons en}} là.
TEST: Intercède en ma faveur
TEST: Même l’implacable guerrier-capitaine de la Fédération, James T. Kirk, apprend en rechignant à enterrer le phaser avec les bâtards Klingons qui ont tué son fils.
TEST: Terminons en réservant une place de choix à l’un des relais les plus fervents de la pensée


__imp_laisser_le_la_les_infi__
    >laisser  [le|la|les]  *WORD
        <<- /imp/ space_after(\1, 1, 1) and morph(\1, ":E") and morph(\3, ":(?:Y|X|Oo)", ":[NAB]") and not morph(<1, ":O[sv]")
        -1:2>> \1-\2                                    # S’il s’agit d’un impératif, mettez un trait d’union.|http://bdl.oqlf.gouv.qc.ca/bdl/gabarit_bdl.asp?id=4206