Grammalecte  Check-in [4880a11e5e]

    [elles|iels] [le|la|l’|les|leur|y]
        <<- not morph(<1, ":(?:3p|R)") =>> select(\2, ":Ov")

    [ne|n’|me|m’|te|t’|se|s’]  [le|la|l’|les|leur|en|y]
        <<- =>> select(\2, ":Ov")

    l’  *WORD
        <<- not value(<1, "|je|j’|il|on|elle|nous|vous|ils|elles|iel|iels|ne|n’|me|m’|te|t’|se|s’|") and (morph(\2, ":[NABWM]", "*") or value(\2, "|plus|moins|")) =>> select(\1, ":D")
        <<- __else__ and morph(\2, ":(?:[123][sp]|P|Y)", "*") =>> select(\1, ":Ov")

    le  *WORD
        <<- not value(<1, "|je|j’|il|on|elle|nous|vous|ils|elles|iel|iels|ne|n’|me|m’|te|t’|se|s’|") and (morph(\2, ":[NABWM]", "*") or value(\2, "|plus|moins|")) =>> select(\1, ":D")
        <<- __else__ and morph(\2, ":(?:[123][sp]|P|Y)", "*") =>> select(\1, ":Ov")

    la  *WORD
        <<- not value(<1, "|je|j’|il|on|elle|nous|vous|ils|elles|iel|iels|ne|n’|me|m’|te|t’|se|s’|") and (morph(\2, ":[NABWM]", "*") or value(\2, "|plus|moins|")) =>> select(\1, ":D")
        <<- __else__ and morph(\2, ":(?:[123][sp]|P|Y)", "*") =>> select(\1, ":Ov")
        <<- __else__ and not value(<1, "|le|ce|du|") =>> exclude(\1, ":N")

    les *WORD
        <<- not value(<1, "|je|j’|il|on|elle|nous|vous|ils|elles|iel|iels|ne|n’|me|m’|te|t’|se|s’|") and (morph(\2, ":[NABWM]", "*") or value(\2, "|plus|moins|")) =>> select(\1, ":D")
        <<- __else__ and morph(\2, ":(?:[123][sp]|P|Y)", "*") =>> select(\1, ":Ov")

    leur    *WORD
        <<- not value(<1, "|le|du|") =>> exclude(\1, ":N")
        <<- not value(<1, "|je|j’|il|on|elle|nous|vous|ils|elles|iel|iels|ne|n’|me|m’|te|t’|se|s’|") and (morph(\2, ":[NABWM]", "*") or value(\2, "|plus|moins|")) =>> select(\1, ":D")
        <<- __else__ and morph(\2, ":(?:[123][sp]|P|Y)", "*") =>> select(\1, ":Ov")

    leurs   *WORD
        <<- not value(<1, "|les|des|") =>> exclude(\1, ":N")

    en  [*NUM|*HOUR]
        <<- =>> select(\1, ":R")

__da_préverbes_verbes__
    [ne|n’]  ?[le|la|l’|les|nous|vous|lui|leur]¿  @:¬:[OX]
    [ne|n’]  [nous|vous]     [le|la|l’|les|en]    @:¬:[OX]
    [ne|n’]  [le|la|l’|les]  [lui|leur|en]        @:¬:[OX]
    [ne|n’]  [lui|leur]      en                   @:¬:[OX]
    n’       ?[en|y]¿  @:¬:[OX]
        <<- =>> select(\-1, ":[ISKYPE]")
        <<- /-1>> neg

    [ne|n’]                 [lui|en|leur|le|la|l’|les|nous|vous|y]
    [me|m’|te|t’|se|s’]     [en|le|la|l’|les|y]
        <<- =>> select(\2, ":Ov")

    lui @:[ISKQYP]¬:3s
        <<- =>> select(\1, ":Ov")

    lui
        <<- morph(<1, ":R") =>> exclude(\1, ":(?:Q|Os)")

    [me|m’|te]  ?[le|la|l’|les|en|y]¿  @:¬:[OX]
        <<- =>> select(\-1, ":[ISKYPE]")

    [se|s’]  ?[le|la|l’|les|en|y]¿  @:¬:[OX]
        <<- =>> select(\-1, ":[ISKYP]")

    c’  ?[en|y]¿  @:¬:[OX]
        <<- =>> select(\-1, ":V")

    s’  *WORD
        <<- not value(\2, "|il|ils|iel|iels") =>> select(\1, ":Ov")
        <<- __else__ =>> select(\1, ":C")

    t’  [le|la|l’|les|en|y]  @:(?:[123][sp]|P|Y)¬:X|>rien/
        <<- =>> select(\3, ":[ISKYPE]")

    t’  @:¬:X|>(?:rien|ie?ls?|elles?|on)/
        <<- =>> select(\2, ":[ISKYPE]")

    y  @:¬:[OX]
        <<- =>> select(\2, ":[ISKYPE]")

    [je|j’|il|ils|on]  ?[ne|n’]¿   ?[le|la|l’|les|en|me|m’|te|t’|se|s’|nous|vous|lui|leur|y]¿   @:¬:[OX]
    [je|j’|il|ils|on]  ?[ne|n’]¿   [me|m’|te|t’|se|s’|nous|vous]   [le|la|l’|les|en|y]          @:¬:[OX]
    [je|j’|il|ils|on]  ?[ne|n’]¿   [le|la|l’|les]                  [lui|leur|en|y]              @:¬:[OX]
    [je|j’|il|ils|on]  ?[ne|n’]¿   [lui|leur|y]                    en                           @:¬:[OX]
        <<- =>> select(\-1, ":[ISKP]")

    lui             en                 @:¬:[OXW]
        <<- not morph(<1, ":R") =>> select(\3, ":(?:[123][sp]|P|Y)")

    [le|la|l’|les]  [lui|leur|en]      @:¬:[OXW]
    leur            en                 @:¬:[OXW]
        <<- =>> select(\2, ":(?:[123][sp]|P|Y)")

    nous @:[ISKYPE]¬:1p
        <<- =>> select(\1, ":Ov")

    vous @:[ISKYPE]¬:2p
        <<- =>> select(\1, ":Ov")

    $:M  @:[123]s¬:[QWA]
        <<- \2.islower() and morph(<1, ":Cs|<start>") =>> select(\2, ":[123][sp]")

    <start>  $:M  @:(?:[123]s|Ov)¬:A
        <<- =>> =select(\2, ":M")

    [que|qu’|combien|pourquoi|qui|quand|où]  ?[en|y]¿  *WORD
        <<- =>> exclude(\-1, ":E")

    après avoir $:Q
        <<- =>> exclude(\2, ":N")

    autour [de|du|d’|des]
        <<- not morph(<1, ":D.*:[me]") =>> exclude(\1, ":N")

    avant [que|qu’|$:D]
        <<- not value(<1, "|l’|quel|cet|un|mon|ton|son|notre|votre|leur|") =>> select(\1, ":R")

    c’  [>avoir|>être]
        <<- =>> select(\1, ":O")

    ce  @:[NA].*:[me]:[si]¬:V0e
        <<- not value(<1, "|il|ils|on|ne|n’|") =>> select(\1, ":D") and select(\2, ":[NA]")

    [<start>|,|(]  cela  [le|la|l’|les|en|nous|vous|lui|leur|y]  @:(?:[123]s|P)
    [<start>|,|(]  cela  [nous|vous]     [le|la|l’|les|en|y]     @:(?:[123]s|P)
    [<start>|,|(]  cela  [le|la|l’|les]  [lui|leur|en|y]         @:(?:[123]s|P)
    [<start>|,|(]  cela  [lui|leur|y]    en                      @:(?:[123]s|P)
    [<start>|,|(]  cela  @:(?:[123]s|P)
        <<- =>> exclude(\2, ":V")

    certains  @:[NA].*:[me]:[pi]¬:(?:G|3[sp])
        <<- =>> exclude(\1, ":O")

    certaines  @:[NA].*:[fe]:[pi]¬:(?:G|3[sp])
        <<- =>> exclude(\1, ":O")

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

    [de|d’] [me|m’|te|t’|se|s’|en|y|nous|vous|moi|toi|soi|lui|elle|iel|eux|elles|iels]
    [de|d’] @:[MYB]
    [de|d’] *NUM
    [de|d’] [un|une|le|la|l’|les|ce|cet|cette|ces|ma|ta|sa|mon|notre|votre|leur|mes|tes|ses|nos|vos|leurs|quelque|quelques|plusieurs|certains|certaines|maints|maintes]
        <<- =>> select(\1, ":R")

    [de|d’] @:[NA]¬:[YMGB]
        <<- not \2[0:1].isupper() =>> select(\1, ":D")

    [devant|derrière] $:D
        <<- morph(<1, ":V|<start>|>,", ":G") =>> select(\1, ":R")

    entre  *WORD  et  *WORD
        <<- (morph(\2, ":[NA]") and morph(\4, ":[NA]"))
            or (morph(\2, ":Y") and morph(\4, ":Y"))
            or (morph(\2, ":M") and morph(\4, ":M")) =>> define(\1, ":R")

    entre  $:D¬:R  *WORD  et  $:D¬:R  *WORD
        <<- morph(\3, ":[NA]") and morph(\6, ":[NA]") =>> define(\1, ":R")

    même $:D
        <<- morph(<1, "<start>|>,|:[ISKYP]", "*") =>> select(\1, ":W")

    [le|la|l’|les|du|chaque|ces|des|mes|tes|ses|nos|vos|leurs|quelques|quels|quelles] même
        <<- =>> select(\2, ":A")

    en outre
        <<- not value(<1, "|il|on|elle|iel|n’|l’|") =>> select(\1, ":R") and select(\2, ":N")

    [une|cette|quelle|mon|notre|votre] outre
        <<- =>> select(\2, ":N")

    outre $:D
        <<- morph(<1, ":V", ":[GA]") =>> select(\1, ":R")

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

    nos @¬:B
        <<- =>> select(\1, ":D")

    parmi *WORD
        <<- =>> select(\1, ":R")

    [plus|moins]
        <<- value(<1, "|le|la|l’|les|leur|") =>> select(\1, ":[NW]")
        <<- __else__ and morph(<1, ":V") =>> select(\1, ":W")

    plus ou moins
        <<- =>> select(\1, ":W") and select(\-1, ":W")

    [plus|moins] @:[WA]
        <<- morph(<1, ":N", ":Ov") =>> select(\1, ":W")

    [plus|moins]  @:[WA] [que|qu’]
        <<- not value(<1, "|je|ne|n’|") =>> select(\1, ":W")

    [un|une|des|le|la|l’|les|mon|ton|son|ma|ta|sa|notre|votre|leur|mes|tes|ses|nos|vos|leurs] [plus|moins] @:[AW]¬:G
        <<- =>> select(\2, ":W")

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

    pas
        <<- morph(<1, ":[VWX]") =>> exclude(\1, ":N")

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

    personne [ne|n’]
        <<- not morph(<1, ":[DA].*:[fe]:[si]") =>> select(\1, ":O")

    pourvu
        <<- not value(>1, "|que|qu’|") =>> exclude(\1, ":G")

    SA
        <<- morph(<1, ":D") =>> exclude(\1, ":D")

    selon @:(?:[DBM]|Oo)
        <<- =>> select(\1, ":R")

    selon [,|<end>]
        <<- =>> select(\1, ":W")

    si @:[OD]
    s’ [il|ils]
        <<- =>> select(\1, ":C")


    sur @:[BD]
        <<- morph(<1, "<start>|>,|:(?:V|N.*:f)", ":V[0123]e") =>> select(\1, ":R")

    tous @:N.*:[me]:[pi]¬:(?:[AGW]|3p)
        <<- =>> select(\1, ":D")

        <<- __else__ />> _Tit_



!!!! Fusions et immunités                                                                         !!

__fusions_mots_grammaticaux__
    c’ est-à-dire
        <<- ~>> ␣
        <<- =>> setmeta(\1, "WORD")

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

    alors    [que|qu’]
    dès lors [que|qu’]
        <<- ~>> ␣

__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>> ␣
        <<- =>> setmeta(\1, "WORD") and define(\1, ":ÉO")

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

    black [>bloc|block+s]
    drag >queen

    [<start>|,]  [“|”|"]    *SIGN       [“|”|"]    est [un|le]     signe
    [<start>|,]  «          *SIGN       »          est [un|le]     signe
    [<start>|,]  [‘|'|’|`]  *SIGN       [‘|'|’|`]  est [un|le]     signe
    [<start>|,]  ‹          *SIGN       ›          est [un|le]     signe
        <<- !3>>
        <<- !5>>

    [<start>|,|s’]  >écrire  [“|”|"]   ?*WORDELD¿ *WORD  [“|”|"]
    [<start>|,|s’]  >écrire  «         ?*WORDELD¿ *WORD  »
    [<start>|,|s’]  >écrire  [‘|'|’|`] ?*WORDELD¿ *WORD  [‘|'|’|`]
    [<start>|,|s’]  >écrire  ‹         ?*WORDELD¿ *WORD  ›
        <<- !-2>>

TEST: New York {{étaient}} {{devenue}} la plaque tournante de tous les trafics.
TEST: de Bordeaux ou de n’importe où
TEST: il n’y a pas faute.
TEST: une séparation hommes/femmes
TEST: le mot “amie” ne veut plus rien dire

@@@@
@@@@GRAPH: graphe2|g2                                                                              _
@@@@
@@@@
@@@@
@@@@



!!
!!
!!!! Désambiguïsation                                                                             !!
!!
!!

__da_formes_verbales__
    >avoir été $:Q¬:G
        <<- =>> select(\2, ":Q") and select(\3, ":Q")

    [>falloir|>imaginer|>penser|>pouvoir|>savoir|>vouloir] [aller|avoir|être|dire|savoir|manger]
        <<- =>> select(\2, ":Y")


!!
!!
!!!! Confusions                                                                                   !!
!!
!!