Grammalecte  Hex Artifact Content

Artifact 552bd476290989598e719067c0fff0fc55d9458b48c5823dcf29d646fb9b211e:


0000: 22 22 22 0a 47 72 61 6d 6d 61 6c 65 63 74 65 20  """.Grammalecte 
0010: 2d 20 43 6f 6d 70 69 6c 65 64 20 72 65 67 75 6c  - Compiled regul
0020: 61 72 20 65 78 70 72 65 73 73 69 6f 6e 73 0a 22  ar expressions."
0030: 22 22 0a 0a 69 6d 70 6f 72 74 20 72 65 0a 0a 23  ""..import re..#
0040: 23 23 23 20 4c 65 6d 6d 65 0a 4c 65 6d 6d 61 20  ### Lemme.Lemma 
0050: 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 72 22 5e  = re.compile(r"^
0060: 3e 28 5c 77 5b 5c 77 2d 5d 2a 29 22 29 0a 0a 23  >(\w[\w-]*)")..#
0070: 23 23 23 20 41 6e 61 6c 79 73 65 73 0a 47 65 6e  ### Analyses.Gen
0080: 64 65 72 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65  der = re.compile
0090: 28 22 3a 5b 6d 66 65 5d 22 29 0a 4e 75 6d 62 65  (":[mfe]").Numbe
00a0: 72 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22  r = re.compile("
00b0: 3a 5b 73 70 69 5d 22 29 0a 0a 23 23 23 23 20 4e  :[spi]")..#### N
00c0: 6f 6d 20 65 74 20 61 64 6a 65 63 74 69 66 0a 4e  om et adjectif.N
00d0: 41 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22  A = re.compile("
00e0: 3a 5b 4e 41 5d 22 29 0a 0a 23 23 20 6e 6f 6d 62  :[NA]")..## nomb
00f0: 72 65 0a 4e 41 73 20 3d 20 72 65 2e 63 6f 6d 70  re.NAs = re.comp
0100: 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 73 22 29  ile(":[NA].*:s")
0110: 0a 4e 41 70 20 3d 20 72 65 2e 63 6f 6d 70 69 6c  .NAp = re.compil
0120: 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 70 22 29 0a 4e  e(":[NA].*:p").N
0130: 41 69 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28  Ai = re.compile(
0140: 22 3a 5b 4e 41 5d 2e 2a 3a 69 22 29 0a 4e 41 73  ":[NA].*:i").NAs
0150: 69 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22  i = re.compile("
0160: 3a 5b 4e 41 5d 2e 2a 3a 5b 73 69 5d 22 29 0a 4e  :[NA].*:[si]").N
0170: 41 70 69 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65  Api = re.compile
0180: 28 22 3a 5b 4e 41 5d 2e 2a 3a 5b 70 69 5d 22 29  (":[NA].*:[pi]")
0190: 0a 0a 23 23 20 67 65 6e 72 65 0a 4e 41 6d 20 3d  ..## genre.NAm =
01a0: 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b 4e   re.compile(":[N
01b0: 41 5d 2e 2a 3a 6d 22 29 0a 4e 41 66 20 3d 20 72  A].*:m").NAf = r
01c0: 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d  e.compile(":[NA]
01d0: 2e 2a 3a 66 22 29 0a 4e 41 65 20 3d 20 72 65 2e  .*:f").NAe = re.
01e0: 63 6f 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a  compile(":[NA].*
01f0: 3a 65 22 29 0a 4e 41 6d 65 20 3d 20 72 65 2e 63  :e").NAme = re.c
0200: 6f 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a  ompile(":[NA].*:
0210: 5b 6d 65 5d 22 29 0a 4e 41 66 65 20 3d 20 72 65  [me]").NAfe = re
0220: 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e  .compile(":[NA].
0230: 2a 3a 5b 66 65 5d 22 29 0a 0a 23 23 20 6e 6f 6d  *:[fe]")..## nom
0240: 62 72 65 20 65 74 20 67 65 6e 72 65 0a 23 20 73  bre et genre.# s
0250: 69 6e 67 75 69 6c 69 65 72 0a 4e 41 6d 73 20 3d  inguilier.NAms =
0260: 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b 4e   re.compile(":[N
0270: 41 5d 2e 2a 3a 6d 2e 2a 3a 73 22 29 0a 4e 41 66  A].*:m.*:s").NAf
0280: 73 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22  s = re.compile("
0290: 3a 5b 4e 41 5d 2e 2a 3a 66 2e 2a 3a 73 22 29 0a  :[NA].*:f.*:s").
02a0: 4e 41 65 73 20 3d 20 72 65 2e 63 6f 6d 70 69 6c  NAes = re.compil
02b0: 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 65 2e 2a 3a 73  e(":[NA].*:e.*:s
02c0: 22 29 0a 4e 41 6d 65 73 20 3d 20 72 65 2e 63 6f  ").NAmes = re.co
02d0: 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 5b  mpile(":[NA].*:[
02e0: 6d 65 5d 2e 2a 3a 73 22 29 0a 4e 41 66 65 73 20  me].*:s").NAfes 
02f0: 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b  = re.compile(":[
0300: 4e 41 5d 2e 2a 3a 5b 66 65 5d 2e 2a 3a 73 22 29  NA].*:[fe].*:s")
0310: 0a 0a 23 20 73 69 6e 67 75 6c 69 65 72 20 65 74  ..# singulier et
0320: 20 69 6e 76 61 72 69 61 62 6c 65 0a 4e 41 6d 73   invariable.NAms
0330: 69 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22  i = re.compile("
0340: 3a 5b 4e 41 5d 2e 2a 3a 6d 2e 2a 3a 5b 73 69 5d  :[NA].*:m.*:[si]
0350: 22 29 0a 4e 41 66 73 69 20 3d 20 72 65 2e 63 6f  ").NAfsi = re.co
0360: 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 66  mpile(":[NA].*:f
0370: 2e 2a 3a 5b 73 69 5d 22 29 0a 4e 41 65 73 69 20  .*:[si]").NAesi 
0380: 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b  = re.compile(":[
0390: 4e 41 5d 2e 2a 3a 65 2e 2a 3a 5b 73 69 5d 22 29  NA].*:e.*:[si]")
03a0: 0a 4e 41 6d 65 73 69 20 3d 20 72 65 2e 63 6f 6d  .NAmesi = re.com
03b0: 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 5b 6d  pile(":[NA].*:[m
03c0: 65 5d 2e 2a 3a 5b 73 69 5d 22 29 0a 4e 41 66 65  e].*:[si]").NAfe
03d0: 73 69 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28  si = re.compile(
03e0: 22 3a 5b 4e 41 5d 2e 2a 3a 5b 66 65 5d 2e 2a 3a  ":[NA].*:[fe].*:
03f0: 5b 73 69 5d 22 29 0a 0a 23 20 70 6c 75 72 69 65  [si]")..# plurie
0400: 6c 0a 4e 41 6d 70 20 3d 20 72 65 2e 63 6f 6d 70  l.NAmp = re.comp
0410: 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 6d 2e 2a  ile(":[NA].*:m.*
0420: 3a 70 22 29 0a 4e 41 66 70 20 3d 20 72 65 2e 63  :p").NAfp = re.c
0430: 6f 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a  ompile(":[NA].*:
0440: 66 2e 2a 3a 70 22 29 0a 4e 41 65 70 20 3d 20 72  f.*:p").NAep = r
0450: 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d  e.compile(":[NA]
0460: 2e 2a 3a 65 2e 2a 3a 70 22 29 0a 4e 41 6d 65 70  .*:e.*:p").NAmep
0470: 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a   = re.compile(":
0480: 5b 4e 41 5d 2e 2a 3a 5b 6d 65 5d 2e 2a 3a 70 22  [NA].*:[me].*:p"
0490: 29 0a 4e 41 66 65 70 20 3d 20 72 65 2e 63 6f 6d  ).NAfep = re.com
04a0: 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 5b 6d  pile(":[NA].*:[m
04b0: 65 5d 2e 2a 3a 70 22 29 0a 0a 23 20 70 6c 75 72  e].*:p")..# plur
04c0: 69 65 6c 20 65 74 20 69 6e 76 61 72 69 61 62 6c  iel et invariabl
04d0: 65 0a 4e 41 6d 70 69 20 3d 20 72 65 2e 63 6f 6d  e.NAmpi = re.com
04e0: 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 6d 2e  pile(":[NA].*:m.
04f0: 2a 3a 5b 70 69 5d 22 29 0a 4e 41 66 70 69 20 3d  *:[pi]").NAfpi =
0500: 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b 4e   re.compile(":[N
0510: 41 5d 2e 2a 3a 66 2e 2a 3a 5b 70 69 5d 22 29 0a  A].*:f.*:[pi]").
0520: 4e 41 65 70 69 20 3d 20 72 65 2e 63 6f 6d 70 69  NAepi = re.compi
0530: 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 65 2e 2a 3a  le(":[NA].*:e.*:
0540: 5b 70 69 5d 22 29 0a 4e 41 6d 65 70 69 20 3d 20  [pi]").NAmepi = 
0550: 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 5b 4e 41  re.compile(":[NA
0560: 5d 2e 2a 3a 5b 6d 65 5d 2e 2a 3a 5b 70 69 5d 22  ].*:[me].*:[pi]"
0570: 29 0a 4e 41 66 65 70 69 20 3d 20 72 65 2e 63 6f  ).NAfepi = re.co
0580: 6d 70 69 6c 65 28 22 3a 5b 4e 41 5d 2e 2a 3a 5b  mpile(":[NA].*:[
0590: 66 65 5d 2e 2a 3a 5b 70 69 5d 22 29 0a 0a 23 20  fe].*:[pi]")..# 
05a0: 64 69 76 65 72 73 0a 41 44 20 3d 20 72 65 2e 63  divers.AD = re.c
05b0: 6f 6d 70 69 6c 65 28 22 3a 5b 41 42 5d 22 29 0a  ompile(":[AB]").
05c0: 0a 23 23 23 23 20 56 65 72 62 65 0a 56 63 6f 6e  .#### Verbe.Vcon
05d0: 6a 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22  j = re.compile("
05e0: 3a 5b 31 32 33 5d 5b 73 70 5d 22 29 0a 56 63 6f  :[123][sp]").Vco
05f0: 6e 6a 31 32 33 20 3d 20 72 65 2e 63 6f 6d 70 69  nj123 = re.compi
0600: 6c 65 28 22 3a 56 5b 31 32 33 5d 2e 2a 3a 5b 31  le(":V[123].*:[1
0610: 32 33 5d 5b 73 70 5d 22 29 0a 0a 23 23 23 23 20  23][sp]")..#### 
0620: 4e 6f 6d 20 7c 20 41 64 6a 65 63 74 69 66 20 7c  Nom | Adjectif |
0630: 20 56 65 72 62 65 0a 4e 56 63 6f 6e 6a 20 3d 20   Verbe.NVconj = 
0640: 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 28 3f 3a  re.compile(":(?:
0650: 4e 7c 5b 31 32 33 5d 5b 73 70 5d 29 22 29 0a 4e  N|[123][sp])").N
0660: 41 56 63 6f 6e 6a 20 3d 20 72 65 2e 63 6f 6d 70  AVconj = re.comp
0670: 69 6c 65 28 22 3a 28 3f 3a 4e 7c 41 7c 5b 31 32  ile(":(?:N|A|[12
0680: 33 5d 5b 73 70 5d 29 22 29 0a 0a 23 23 23 23 20  3][sp])")..#### 
0690: 53 70 c3 a9 63 69 66 69 71 75 65 0a 4e 6e 6f 74  Sp..cifique.Nnot
06a0: 41 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22  A = re.compile("
06b0: 3a 4e 28 3f 21 3a 41 29 22 29 0a 50 4e 6e 6f 74  :N(?!:A)").PNnot
06c0: 41 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22  A = re.compile("
06d0: 3a 28 3f 3a 4e 28 3f 21 3a 41 29 7c 51 29 22 29  :(?:N(?!:A)|Q)")
06e0: 0a 0a 23 23 23 23 20 4e 6f 6d 73 20 70 72 6f 70  ..#### Noms prop
06f0: 72 65 73 0a 4e 50 20 3d 20 72 65 2e 63 6f 6d 70  res.NP = re.comp
0700: 69 6c 65 28 22 3a 28 3f 3a 4d 5b 31 32 50 5d 7c  ile(":(?:M[12P]|
0710: 54 29 22 29 0a 4e 50 6d 20 3d 20 72 65 2e 63 6f  T)").NPm = re.co
0720: 6d 70 69 6c 65 28 22 3a 28 3f 3a 4d 5b 31 32 50  mpile(":(?:M[12P
0730: 5d 7c 54 29 3a 6d 22 29 0a 4e 50 66 20 3d 20 72  ]|T):m").NPf = r
0740: 65 2e 63 6f 6d 70 69 6c 65 28 22 3a 28 3f 3a 4d  e.compile(":(?:M
0750: 5b 31 32 50 5d 7c 54 29 3a 66 22 29 0a 4e 50 65  [12P]|T):f").NPe
0760: 20 3d 20 72 65 2e 63 6f 6d 70 69 6c 65 28 22 3a   = re.compile(":
0770: 28 3f 3a 4d 5b 31 32 50 5d 7c 54 29 3a 65 22 29  (?:M[12P]|T):e")
0780: 0a 0a 0a 23 23 23 23 20 46 4f 4e 43 54 49 4f 4e  ...#### FONCTION
0790: 53 0a 0a 64 65 66 20 67 65 74 4c 65 6d 6d 61 4f  S..def getLemmaO
07a0: 66 4d 6f 72 70 68 20 28 73 29 3a 0a 20 20 20 20  fMorph (s):.    
07b0: 22 72 65 74 75 72 6e 20 6c 65 6d 6d 61 20 69 6e  "return lemma in
07c0: 20 6d 6f 72 70 68 6f 6c 6f 67 79 20 3c 73 3e 22   morphology <s>"
07d0: 0a 20 20 20 20 72 65 74 75 72 6e 20 4c 65 6d 6d  .    return Lemm
07e0: 61 2e 73 65 61 72 63 68 28 73 29 2e 67 72 6f 75  a.search(s).grou
07f0: 70 28 31 29 0a 0a 64 65 66 20 61 67 72 65 65 6d  p(1)..def agreem
0800: 65 6e 74 20 28 6c 31 2c 20 6c 32 29 3a 0a 20 20  ent (l1, l2):.  
0810: 20 20 22 72 65 74 75 72 6e 73 20 54 72 75 65 20    "returns True 
0820: 69 66 20 61 67 72 65 65 6d 65 6e 74 20 69 6e 20  if agreement in 
0830: 67 65 6e 64 65 72 20 61 6e 64 20 6e 75 6d 62 65  gender and numbe
0840: 72 20 69 73 20 70 6f 73 73 69 62 6c 65 20 62 65  r is possible be
0850: 74 77 65 65 6e 20 6d 6f 72 70 68 6f 6c 6f 67 69  tween morphologi
0860: 65 73 20 3c 6c 31 3e 20 61 6e 64 20 3c 6c 32 3e  es <l1> and <l2>
0870: 22 0a 20 20 20 20 23 20 63 68 65 63 6b 20 6e 75  ".    # check nu
0880: 6d 62 65 72 20 61 67 72 65 65 6d 65 6e 74 0a 20  mber agreement. 
0890: 20 20 20 69 66 20 6e 6f 74 20 6d 62 49 6e 76 28     if not mbInv(
08a0: 6c 31 29 20 61 6e 64 20 6e 6f 74 20 6d 62 49 6e  l1) and not mbIn
08b0: 76 28 6c 32 29 3a 0a 20 20 20 20 20 20 20 20 69  v(l2):.        i
08c0: 66 20 6d 62 53 67 28 6c 31 29 20 61 6e 64 20 6e  f mbSg(l1) and n
08d0: 6f 74 20 6d 62 53 67 28 6c 32 29 3a 0a 20 20 20  ot mbSg(l2):.   
08e0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
08f0: 46 61 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66  False.        if
0900: 20 6d 62 50 6c 28 6c 31 29 20 61 6e 64 20 6e 6f   mbPl(l1) and no
0910: 74 20 6d 62 50 6c 28 6c 32 29 3a 0a 20 20 20 20  t mbPl(l2):.    
0920: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 46          return F
0930: 61 6c 73 65 0a 20 20 20 20 23 20 63 68 65 63 6b  alse.    # check
0940: 20 67 65 6e 64 65 72 20 61 67 72 65 65 6d 65 6e   gender agreemen
0950: 74 0a 20 20 20 20 69 66 20 6d 62 45 70 69 28 6c  t.    if mbEpi(l
0960: 31 29 20 6f 72 20 6d 62 45 70 69 28 6c 32 29 3a  1) or mbEpi(l2):
0970: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
0980: 54 72 75 65 0a 20 20 20 20 69 66 20 69 73 4d 61  True.    if isMa
0990: 73 28 6c 31 29 20 61 6e 64 20 6e 6f 74 20 6d 62  s(l1) and not mb
09a0: 4d 61 73 28 6c 32 29 3a 0a 20 20 20 20 20 20 20  Mas(l2):.       
09b0: 20 72 65 74 75 72 6e 20 46 61 6c 73 65 0a 20 20   return False.  
09c0: 20 20 69 66 20 69 73 46 65 6d 28 6c 31 29 20 61    if isFem(l1) a
09d0: 6e 64 20 6e 6f 74 20 6d 62 46 65 6d 28 6c 32 29  nd not mbFem(l2)
09e0: 3a 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e  :.        return
09f0: 20 46 61 6c 73 65 0a 20 20 20 20 72 65 74 75 72   False.    retur
0a00: 6e 20 54 72 75 65 0a 0a 64 65 66 20 63 68 65 63  n True..def chec
0a10: 6b 43 6f 6e 6a 56 65 72 62 20 28 6c 4d 6f 72 70  kConjVerb (lMorp
0a20: 68 2c 20 73 52 65 71 43 6f 6e 6a 29 3a 0a 20 20  h, sReqConj):.  
0a30: 20 20 22 72 65 74 75 72 6e 73 20 54 72 75 65 20    "returns True 
0a40: 69 66 20 3c 73 52 65 71 43 6f 6e 6a 3e 20 69 6e  if <sReqConj> in
0a50: 20 3c 6c 4d 6f 72 70 68 3e 22 0a 20 20 20 20 72   <lMorph>".    r
0a60: 65 74 75 72 6e 20 61 6e 79 28 73 52 65 71 43 6f  eturn any(sReqCo
0a70: 6e 6a 20 69 6e 20 73 20 20 66 6f 72 20 73 20 69  nj in s  for s i
0a80: 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64 65 66 20 67  n lMorph)..def g
0a90: 65 74 47 65 6e 64 65 72 20 28 6c 4d 6f 72 70 68  etGender (lMorph
0aa0: 29 3a 0a 20 20 20 20 22 72 65 74 75 72 6e 73 20  ):.    "returns 
0ab0: 67 65 6e 64 65 72 20 6f 66 20 77 6f 72 64 20 28  gender of word (
0ac0: 27 3a 6d 27 2c 20 27 3a 66 27 2c 20 27 3a 65 27  ':m', ':f', ':e'
0ad0: 20 6f 72 20 65 6d 70 74 79 20 73 74 72 69 6e 67   or empty string
0ae0: 29 2e 22 0a 20 20 20 20 73 47 65 6e 64 65 72 20  ).".    sGender 
0af0: 3d 20 22 22 0a 20 20 20 20 66 6f 72 20 73 4d 6f  = "".    for sMo
0b00: 72 70 68 20 69 6e 20 6c 4d 6f 72 70 68 3a 0a 20  rph in lMorph:. 
0b10: 20 20 20 20 20 20 20 6d 20 3d 20 47 65 6e 64 65         m = Gende
0b20: 72 2e 73 65 61 72 63 68 28 73 4d 6f 72 70 68 29  r.search(sMorph)
0b30: 0a 20 20 20 20 20 20 20 20 69 66 20 6d 3a 0a 20  .        if m:. 
0b40: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 6f             if no
0b50: 74 20 73 47 65 6e 64 65 72 3a 0a 20 20 20 20 20  t sGender:.     
0b60: 20 20 20 20 20 20 20 20 20 20 20 73 47 65 6e 64             sGend
0b70: 65 72 20 3d 20 6d 2e 67 72 6f 75 70 28 30 29 0a  er = m.group(0).
0b80: 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 69 66              elif
0b90: 20 73 47 65 6e 64 65 72 20 21 3d 20 6d 2e 67 72   sGender != m.gr
0ba0: 6f 75 70 28 30 29 3a 0a 20 20 20 20 20 20 20 20  oup(0):.        
0bb0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 22          return "
0bc0: 3a 65 22 0a 20 20 20 20 72 65 74 75 72 6e 20 73  :e".    return s
0bd0: 47 65 6e 64 65 72 0a 0a 64 65 66 20 67 65 74 4e  Gender..def getN
0be0: 75 6d 62 65 72 20 28 6c 4d 6f 72 70 68 29 3a 0a  umber (lMorph):.
0bf0: 20 20 20 20 22 72 65 74 75 72 6e 73 20 6e 75 6d      "returns num
0c00: 62 65 72 20 6f 66 20 77 6f 72 64 20 28 27 3a 73  ber of word (':s
0c10: 27 2c 20 27 3a 70 27 2c 20 27 3a 69 27 20 6f 72  ', ':p', ':i' or
0c20: 20 65 6d 70 74 79 20 73 74 72 69 6e 67 29 2e 22   empty string)."
0c30: 0a 20 20 20 20 73 4e 75 6d 62 65 72 20 3d 20 22  .    sNumber = "
0c40: 22 0a 20 20 20 20 66 6f 72 20 73 4d 6f 72 70 68  ".    for sMorph
0c50: 20 69 6e 20 6c 4d 6f 72 70 68 3a 0a 20 20 20 20   in lMorph:.    
0c60: 20 20 20 20 6d 20 3d 20 4e 75 6d 62 65 72 2e 73      m = Number.s
0c70: 65 61 72 63 68 28 73 4d 6f 72 70 68 29 0a 20 20  earch(sMorph).  
0c80: 20 20 20 20 20 20 69 66 20 6d 3a 0a 20 20 20 20        if m:.    
0c90: 20 20 20 20 20 20 20 20 69 66 20 6e 6f 74 20 73          if not s
0ca0: 4e 75 6d 62 65 72 3a 0a 20 20 20 20 20 20 20 20  Number:.        
0cb0: 20 20 20 20 20 20 20 20 73 4e 75 6d 62 65 72 20          sNumber 
0cc0: 3d 20 6d 2e 67 72 6f 75 70 28 30 29 0a 20 20 20  = m.group(0).   
0cd0: 20 20 20 20 20 20 20 20 20 65 6c 69 66 20 73 4e           elif sN
0ce0: 75 6d 62 65 72 20 21 3d 20 6d 2e 67 72 6f 75 70  umber != m.group
0cf0: 28 30 29 3a 0a 20 20 20 20 20 20 20 20 20 20 20  (0):.           
0d00: 20 20 20 20 20 72 65 74 75 72 6e 20 22 3a 69 22       return ":i"
0d10: 0a 20 20 20 20 72 65 74 75 72 6e 20 73 4e 75 6d  .    return sNum
0d20: 62 65 72 0a 0a 23 20 4e 4f 54 45 20 3a 20 20 69  ber..# NOTE :  i
0d30: 73 57 68 61 74 20 28 6c 4d 6f 72 70 68 29 20 20  sWhat (lMorph)  
0d40: 20 20 72 65 74 75 72 6e 73 20 54 72 75 65 20 20    returns True  
0d50: 20 69 66 20 6c 4d 6f 72 70 68 20 63 6f 6e 74 61   if lMorph conta
0d60: 69 6e 73 20 6e 6f 74 68 69 6e 67 20 65 6c 73 65  ins nothing else
0d70: 20 74 68 61 6e 20 57 68 61 74 0a 23 20 20 20 20   than What.#    
0d80: 20 20 20 20 20 6d 62 57 68 61 74 20 28 6c 4d 6f       mbWhat (lMo
0d90: 72 70 68 29 20 20 20 20 72 65 74 75 72 6e 73 20  rph)    returns 
0da0: 54 72 75 65 20 20 20 69 66 20 6c 4d 6f 72 70 68  True   if lMorph
0db0: 20 63 6f 6e 74 61 69 6e 73 20 57 68 61 74 20 61   contains What a
0dc0: 74 20 6c 65 61 73 74 20 6f 6e 63 65 0a 0a 23 23  t least once..##
0dd0: 20 69 73 58 58 58 20 3d 20 69 74 e2 80 99 73 20   isXXX = it...s 
0de0: 63 65 72 74 61 69 6e 0a 0a 64 65 66 20 69 73 4e  certain..def isN
0df0: 6f 6d 20 28 6c 4d 6f 72 70 68 29 3a 0a 20 20 20  om (lMorph):.   
0e00: 20 22 72 65 74 75 72 6e 73 20 54 72 75 65 20 69   "returns True i
0e10: 66 20 61 6c 6c 20 6d 6f 72 70 68 6f 6c 6f 67 69  f all morphologi
0e20: 65 73 20 61 72 65 20 e2 80 9c 6e 6f 6d e2 80 9d  es are ...nom...
0e30: 22 0a 20 20 20 20 72 65 74 75 72 6e 20 61 6c 6c  ".    return all
0e40: 28 22 3a 4e 22 20 69 6e 20 73 20 20 66 6f 72 20  (":N" in s  for 
0e50: 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64 65  s in lMorph)..de
0e60: 66 20 69 73 4e 6f 6d 4e 6f 74 41 64 6a 20 28 6c  f isNomNotAdj (l
0e70: 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22 72 65 74  Morph):.    "ret
0e80: 75 72 6e 73 20 54 72 75 65 20 69 66 20 61 6c 6c  urns True if all
0e90: 20 6d 6f 72 70 68 6f 6c 6f 67 69 65 73 20 61 72   morphologies ar
0ea0: 65 20 e2 80 9c 6e 6f 6d e2 80 9d 2c 20 62 75 74  e ...nom..., but
0eb0: 20 6e 6f 74 20 e2 80 9c 61 64 6a 65 63 74 69 66   not ...adjectif
0ec0: e2 80 9d 22 0a 20 20 20 20 72 65 74 75 72 6e 20  ...".    return 
0ed0: 61 6c 6c 28 4e 6e 6f 74 41 2e 73 65 61 72 63 68  all(NnotA.search
0ee0: 28 73 29 20 20 66 6f 72 20 73 20 69 6e 20 6c 4d  (s)  for s in lM
0ef0: 6f 72 70 68 29 0a 0a 64 65 66 20 69 73 41 64 6a  orph)..def isAdj
0f00: 20 28 6c 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22   (lMorph):.    "
0f10: 72 65 74 75 72 6e 73 20 54 72 75 65 20 69 66 20  returns True if 
0f20: 61 6c 6c 20 6d 6f 72 70 68 6f 6c 6f 67 69 65 73  all morphologies
0f30: 20 61 72 65 20 e2 80 9c 61 64 6a 65 63 74 69 66   are ...adjectif
0f40: e2 80 9d 22 0a 20 20 20 20 72 65 74 75 72 6e 20  ...".    return 
0f50: 61 6c 6c 28 22 3a 41 22 20 69 6e 20 73 20 20 66  all(":A" in s  f
0f60: 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a  or s in lMorph).
0f70: 0a 64 65 66 20 69 73 4e 6f 6d 41 64 6a 20 28 6c  .def isNomAdj (l
0f80: 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22 72 65 74  Morph):.    "ret
0f90: 75 72 6e 73 20 54 72 75 65 20 69 66 20 61 6c 6c  urns True if all
0fa0: 20 6d 6f 72 70 68 6f 6c 6f 67 69 65 73 20 61 72   morphologies ar
0fb0: 65 20 e2 80 9c 6e 6f 6d e2 80 9d 20 6f 72 20 e2  e ...nom... or .
0fc0: 80 9c 61 64 6a 65 63 74 69 66 e2 80 9d 22 0a 20  ..adjectif...". 
0fd0: 20 20 20 72 65 74 75 72 6e 20 61 6c 6c 28 4e 41     return all(NA
0fe0: 2e 73 65 61 72 63 68 28 73 29 20 20 66 6f 72 20  .search(s)  for 
0ff0: 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64 65  s in lMorph)..de
1000: 66 20 69 73 4e 6f 6d 56 63 6f 6e 6a 20 28 6c 4d  f isNomVconj (lM
1010: 6f 72 70 68 29 3a 0a 20 20 20 20 22 72 65 74 75  orph):.    "retu
1020: 72 6e 73 20 54 72 75 65 20 69 66 20 61 6c 6c 20  rns True if all 
1030: 6d 6f 72 70 68 6f 6c 6f 67 69 65 73 20 61 72 65  morphologies are
1040: 20 e2 80 9c 6e 6f 6d e2 80 9d 20 6f 72 20 e2 80   ...nom... or ..
1050: 9c 76 65 72 62 65 20 63 6f 6e 6a 75 67 75 c3 a9  .verbe conjugu..
1060: e2 80 9d 22 0a 20 20 20 20 72 65 74 75 72 6e 20  ...".    return 
1070: 61 6c 6c 28 4e 56 63 6f 6e 6a 2e 73 65 61 72 63  all(NVconj.searc
1080: 68 28 73 29 20 20 66 6f 72 20 73 20 69 6e 20 6c  h(s)  for s in l
1090: 4d 6f 72 70 68 29 0a 0a 64 65 66 20 69 73 49 6e  Morph)..def isIn
10a0: 76 20 28 6c 4d 6f 72 70 68 29 3a 0a 20 20 20 20  v (lMorph):.    
10b0: 22 72 65 74 75 72 6e 73 20 54 72 75 65 20 69 66  "returns True if
10c0: 20 61 6c 6c 20 6d 6f 72 70 68 6f 6c 6f 67 69 65   all morphologie
10d0: 73 20 61 72 65 20 e2 80 9c 69 6e 76 61 72 69 61  s are ...invaria
10e0: 62 6c 65 e2 80 9d 22 0a 20 20 20 20 72 65 74 75  ble...".    retu
10f0: 72 6e 20 61 6c 6c 28 22 3a 69 22 20 69 6e 20 73  rn all(":i" in s
1100: 20 20 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70    for s in lMorp
1110: 68 29 0a 0a 64 65 66 20 69 73 53 67 20 28 6c 4d  h)..def isSg (lM
1120: 6f 72 70 68 29 3a 0a 20 20 20 20 22 72 65 74 75  orph):.    "retu
1130: 72 6e 73 20 54 72 75 65 20 69 66 20 61 6c 6c 20  rns True if all 
1140: 6d 6f 72 70 68 6f 6c 6f 67 69 65 73 20 61 72 65  morphologies are
1150: 20 e2 80 9c 73 69 6e 67 75 6c 69 65 72 e2 80 9d   ...singulier...
1160: 22 0a 20 20 20 20 72 65 74 75 72 6e 20 61 6c 6c  ".    return all
1170: 28 22 3a 73 22 20 69 6e 20 73 20 20 66 6f 72 20  (":s" in s  for 
1180: 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64 65  s in lMorph)..de
1190: 66 20 69 73 50 6c 20 28 6c 4d 6f 72 70 68 29 3a  f isPl (lMorph):
11a0: 0a 20 20 20 20 22 72 65 74 75 72 6e 73 20 54 72  .    "returns Tr
11b0: 75 65 20 69 66 20 61 6c 6c 20 6d 6f 72 70 68 6f  ue if all morpho
11c0: 6c 6f 67 69 65 73 20 61 72 65 20 e2 80 9c 70 6c  logies are ...pl
11d0: 75 72 69 65 6c e2 80 9d 22 0a 20 20 20 20 72 65  uriel...".    re
11e0: 74 75 72 6e 20 61 6c 6c 28 22 3a 70 22 20 69 6e  turn all(":p" in
11f0: 20 73 20 20 66 6f 72 20 73 20 69 6e 20 6c 4d 6f   s  for s in lMo
1200: 72 70 68 29 0a 0a 64 65 66 20 69 73 45 70 69 20  rph)..def isEpi 
1210: 28 6c 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22 72  (lMorph):.    "r
1220: 65 74 75 72 6e 73 20 54 72 75 65 20 69 66 20 61  eturns True if a
1230: 6c 6c 20 6d 6f 72 70 68 6f 6c 6f 67 69 65 73 20  ll morphologies 
1240: 61 72 65 20 e2 80 9c c3 a9 70 69 63 c3 a8 6e 65  are .....pic..ne
1250: e2 80 9d 22 0a 20 20 20 20 72 65 74 75 72 6e 20  ...".    return 
1260: 61 6c 6c 28 22 3a 65 22 20 69 6e 20 73 20 20 66  all(":e" in s  f
1270: 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a  or s in lMorph).
1280: 0a 64 65 66 20 69 73 4d 61 73 20 28 6c 4d 6f 72  .def isMas (lMor
1290: 70 68 29 3a 0a 20 20 20 20 22 72 65 74 75 72 6e  ph):.    "return
12a0: 73 20 54 72 75 65 20 69 66 20 61 6c 6c 20 6d 6f  s True if all mo
12b0: 72 70 68 6f 6c 6f 67 69 65 73 20 61 72 65 20 e2  rphologies are .
12c0: 80 9c 6d 61 73 63 75 6c 69 6e e2 80 9d 22 0a 20  ..masculin...". 
12d0: 20 20 20 72 65 74 75 72 6e 20 61 6c 6c 28 22 3a     return all(":
12e0: 6d 22 20 69 6e 20 73 20 20 66 6f 72 20 73 20 69  m" in s  for s i
12f0: 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64 65 66 20 69  n lMorph)..def i
1300: 73 46 65 6d 20 28 6c 4d 6f 72 70 68 29 3a 0a 20  sFem (lMorph):. 
1310: 20 20 20 22 72 65 74 75 72 6e 73 20 54 72 75 65     "returns True
1320: 20 69 66 20 61 6c 6c 20 6d 6f 72 70 68 6f 6c 6f   if all morpholo
1330: 67 69 65 73 20 61 72 65 20 e2 80 9c 66 c3 a9 6d  gies are ...f..m
1340: 69 6e 69 6e e2 80 9d 22 0a 20 20 20 20 72 65 74  inin...".    ret
1350: 75 72 6e 20 61 6c 6c 28 22 3a 66 22 20 69 6e 20  urn all(":f" in 
1360: 73 20 20 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72  s  for s in lMor
1370: 70 68 29 0a 0a 0a 23 23 20 6d 62 58 58 58 20 3d  ph)...## mbXXX =
1380: 20 4d 41 59 42 45 20 58 58 58 0a 0a 64 65 66 20   MAYBE XXX..def 
1390: 6d 62 4e 6f 6d 20 28 6c 4d 6f 72 70 68 29 3a 0a  mbNom (lMorph):.
13a0: 20 20 20 20 22 72 65 74 75 72 6e 73 20 54 72 75      "returns Tru
13b0: 65 20 69 66 20 6f 6e 65 20 6d 6f 72 70 68 6f 6c  e if one morphol
13c0: 6f 67 79 20 69 73 20 e2 80 9c 6e 6f 6d e2 80 9d  ogy is ...nom...
13d0: 22 0a 20 20 20 20 72 65 74 75 72 6e 20 61 6e 79  ".    return any
13e0: 28 22 3a 4e 22 20 69 6e 20 73 20 20 66 6f 72 20  (":N" in s  for 
13f0: 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64 65  s in lMorph)..de
1400: 66 20 6d 62 41 64 6a 20 28 6c 4d 6f 72 70 68 29  f mbAdj (lMorph)
1410: 3a 0a 20 20 20 20 22 72 65 74 75 72 6e 73 20 54  :.    "returns T
1420: 72 75 65 20 69 66 20 6f 6e 65 20 6d 6f 72 70 68  rue if one morph
1430: 6f 6c 6f 67 79 20 69 73 20 e2 80 9c 61 64 6a 65  ology is ...adje
1440: 63 74 69 66 e2 80 9d 22 0a 20 20 20 20 72 65 74  ctif...".    ret
1450: 75 72 6e 20 61 6e 79 28 22 3a 41 22 20 69 6e 20  urn any(":A" in 
1460: 73 20 20 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72  s  for s in lMor
1470: 70 68 29 0a 0a 64 65 66 20 6d 62 41 64 6a 4e 62  ph)..def mbAdjNb
1480: 20 28 6c 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22   (lMorph):.    "
1490: 72 65 74 75 72 6e 73 20 54 72 75 65 20 69 66 20  returns True if 
14a0: 6f 6e 65 20 6d 6f 72 70 68 6f 6c 6f 67 79 20 69  one morphology i
14b0: 73 20 e2 80 9c 61 64 6a 65 63 74 69 66 e2 80 9d  s ...adjectif...
14c0: 20 6f 72 20 e2 80 9c 6e 6f 6d 62 72 65 e2 80 9d   or ...nombre...
14d0: 22 0a 20 20 20 20 72 65 74 75 72 6e 20 61 6e 79  ".    return any
14e0: 28 41 44 2e 73 65 61 72 63 68 28 73 29 20 20 66  (AD.search(s)  f
14f0: 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a  or s in lMorph).
1500: 0a 64 65 66 20 6d 62 4e 6f 6d 41 64 6a 20 28 6c  .def mbNomAdj (l
1510: 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22 72 65 74  Morph):.    "ret
1520: 75 72 6e 73 20 54 72 75 65 20 69 66 20 6f 6e 65  urns True if one
1530: 20 6d 6f 72 70 68 6f 6c 6f 67 79 20 69 73 20 e2   morphology is .
1540: 80 9c 6e 6f 6d e2 80 9d 20 6f 72 20 e2 80 9c 61  ..nom... or ...a
1550: 64 6a 65 63 74 69 66 e2 80 9d 22 0a 20 20 20 20  djectif...".    
1560: 72 65 74 75 72 6e 20 61 6e 79 28 4e 41 2e 73 65  return any(NA.se
1570: 61 72 63 68 28 73 29 20 20 66 6f 72 20 73 20 69  arch(s)  for s i
1580: 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64 65 66 20 6d  n lMorph)..def m
1590: 62 4e 6f 6d 4e 6f 74 41 64 6a 20 28 6c 4d 6f 72  bNomNotAdj (lMor
15a0: 70 68 29 3a 0a 20 20 20 20 22 72 65 74 75 72 6e  ph):.    "return
15b0: 73 20 54 72 75 65 20 69 66 20 6f 6e 65 20 6d 6f  s True if one mo
15c0: 72 70 68 6f 6c 6f 67 79 20 69 73 20 e2 80 9c 6e  rphology is ...n
15d0: 6f 6d e2 80 9d 2c 20 62 75 74 20 6e 6f 74 20 e2  om..., but not .
15e0: 80 9c 61 64 6a 65 63 74 69 66 e2 80 9d 22 0a 20  ..adjectif...". 
15f0: 20 20 20 62 52 65 73 75 6c 74 20 3d 20 46 61 6c     bResult = Fal
1600: 73 65 0a 20 20 20 20 66 6f 72 20 73 20 69 6e 20  se.    for s in 
1610: 6c 4d 6f 72 70 68 3a 0a 20 20 20 20 20 20 20 20  lMorph:.        
1620: 69 66 20 22 3a 41 22 20 69 6e 20 73 3a 0a 20 20  if ":A" in s:.  
1630: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
1640: 20 46 61 6c 73 65 0a 20 20 20 20 20 20 20 20 69   False.        i
1650: 66 20 22 3a 4e 22 20 69 6e 20 73 3a 0a 20 20 20  f ":N" in s:.   
1660: 20 20 20 20 20 20 20 20 20 62 52 65 73 75 6c 74           bResult
1670: 20 3d 20 54 72 75 65 0a 20 20 20 20 72 65 74 75   = True.    retu
1680: 72 6e 20 62 52 65 73 75 6c 74 0a 0a 64 65 66 20  rn bResult..def 
1690: 6d 62 50 70 61 73 4e 6f 6d 4e 6f 74 41 64 6a 20  mbPpasNomNotAdj 
16a0: 28 6c 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22 72  (lMorph):.    "r
16b0: 65 74 75 72 6e 73 20 54 72 75 65 20 69 66 20 6f  eturns True if o
16c0: 6e 65 20 6d 6f 72 70 68 6f 6c 6f 67 79 20 69 73  ne morphology is
16d0: 20 e2 80 9c 6e 6f 6d e2 80 9d 20 6f 72 20 e2 80   ...nom... or ..
16e0: 9c 70 61 72 74 69 63 69 70 65 20 70 61 73 73 c3  .participe pass.
16f0: a9 e2 80 9d 2c 20 62 75 74 20 6e 6f 74 20 e2 80  ...., but not ..
1700: 9c 61 64 6a 65 63 74 69 66 e2 80 9d 22 0a 20 20  .adjectif...".  
1710: 20 20 72 65 74 75 72 6e 20 61 6e 79 28 50 4e 6e    return any(PNn
1720: 6f 74 41 2e 73 65 61 72 63 68 28 73 29 20 20 66  otA.search(s)  f
1730: 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a  or s in lMorph).
1740: 0a 64 65 66 20 6d 62 56 63 6f 6e 6a 20 28 6c 4d  .def mbVconj (lM
1750: 6f 72 70 68 29 3a 0a 20 20 20 20 22 72 65 74 75  orph):.    "retu
1760: 72 6e 73 20 54 72 75 65 20 69 66 20 6f 6e 65 20  rns True if one 
1770: 6d 6f 72 70 68 6f 6c 6f 67 79 20 69 73 20 e2 80  morphology is ..
1780: 9c 6e 6f 6d e2 80 9d 20 6f 72 20 e2 80 9c 76 65  .nom... or ...ve
1790: 72 62 65 20 63 6f 6e 6a 75 67 75 c3 a9 e2 80 9d  rbe conjugu.....
17a0: 22 0a 20 20 20 20 72 65 74 75 72 6e 20 61 6e 79  ".    return any
17b0: 28 56 63 6f 6e 6a 2e 73 65 61 72 63 68 28 73 29  (Vconj.search(s)
17c0: 20 20 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70    for s in lMorp
17d0: 68 29 0a 0a 64 65 66 20 6d 62 56 63 6f 6e 6a 31  h)..def mbVconj1
17e0: 32 33 20 28 6c 4d 6f 72 70 68 29 3a 0a 20 20 20  23 (lMorph):.   
17f0: 20 22 72 65 74 75 72 6e 73 20 54 72 75 65 20 69   "returns True i
1800: 66 20 6f 6e 65 20 6d 6f 72 70 68 6f 6c 6f 67 79  f one morphology
1810: 20 69 73 20 e2 80 9c 6e 6f 6d e2 80 9d 20 6f 72   is ...nom... or
1820: 20 e2 80 9c 76 65 72 62 65 20 63 6f 6e 6a 75 67   ...verbe conjug
1830: 75 c3 a9 e2 80 9d 20 28 62 75 74 20 6e 6f 74 20  u..... (but not 
1840: e2 80 9c 61 76 6f 69 72 e2 80 9d 20 6f 72 20 e2  ...avoir... or .
1850: 80 9c c3 aa 74 72 65 e2 80 9d 29 22 0a 20 20 20  ....tre...)".   
1860: 20 72 65 74 75 72 6e 20 61 6e 79 28 56 63 6f 6e   return any(Vcon
1870: 6a 31 32 33 2e 73 65 61 72 63 68 28 73 29 20 20  j123.search(s)  
1880: 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70 68 29  for s in lMorph)
1890: 0a 0a 64 65 66 20 6d 62 4d 47 20 28 6c 4d 6f 72  ..def mbMG (lMor
18a0: 70 68 29 3a 0a 20 20 20 20 22 72 65 74 75 72 6e  ph):.    "return
18b0: 73 20 54 72 75 65 20 69 66 20 6f 6e 65 20 6d 6f  s True if one mo
18c0: 72 70 68 6f 6c 6f 67 79 20 69 73 20 e2 80 9c 6d  rphology is ...m
18d0: 6f 74 20 67 72 61 6d 6d 61 74 69 63 61 6c e2 80  ot grammatical..
18e0: 9d 22 0a 20 20 20 20 72 65 74 75 72 6e 20 61 6e  .".    return an
18f0: 79 28 22 3a 47 22 20 69 6e 20 73 20 20 66 6f 72  y(":G" in s  for
1900: 20 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64   s in lMorph)..d
1910: 65 66 20 6d 62 49 6e 76 20 28 6c 4d 6f 72 70 68  ef mbInv (lMorph
1920: 29 3a 0a 20 20 20 20 22 72 65 74 75 72 6e 73 20  ):.    "returns 
1930: 54 72 75 65 20 69 66 20 6f 6e 65 20 6d 6f 72 70  True if one morp
1940: 68 6f 6c 6f 67 79 20 69 73 20 e2 80 9c 69 6e 76  hology is ...inv
1950: 61 72 69 61 62 6c 65 e2 80 9d 22 0a 20 20 20 20  ariable...".    
1960: 72 65 74 75 72 6e 20 61 6e 79 28 22 3a 69 22 20  return any(":i" 
1970: 69 6e 20 73 20 20 66 6f 72 20 73 20 69 6e 20 6c  in s  for s in l
1980: 4d 6f 72 70 68 29 0a 0a 64 65 66 20 6d 62 53 67  Morph)..def mbSg
1990: 20 28 6c 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22   (lMorph):.    "
19a0: 72 65 74 75 72 6e 73 20 54 72 75 65 20 69 66 20  returns True if 
19b0: 6f 6e 65 20 6d 6f 72 70 68 6f 6c 6f 67 79 20 69  one morphology i
19c0: 73 20 e2 80 9c 73 69 6e 67 75 6c 69 65 72 e2 80  s ...singulier..
19d0: 9d 22 0a 20 20 20 20 72 65 74 75 72 6e 20 61 6e  .".    return an
19e0: 79 28 22 3a 73 22 20 69 6e 20 73 20 20 66 6f 72  y(":s" in s  for
19f0: 20 73 20 69 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64   s in lMorph)..d
1a00: 65 66 20 6d 62 50 6c 20 28 6c 4d 6f 72 70 68 29  ef mbPl (lMorph)
1a10: 3a 0a 20 20 20 20 22 72 65 74 75 72 6e 73 20 54  :.    "returns T
1a20: 72 75 65 20 69 66 20 6f 6e 65 20 6d 6f 72 70 68  rue if one morph
1a30: 6f 6c 6f 67 79 20 69 73 20 e2 80 9c 70 6c 75 72  ology is ...plur
1a40: 69 65 6c e2 80 9d 22 0a 20 20 20 20 72 65 74 75  iel...".    retu
1a50: 72 6e 20 61 6e 79 28 22 3a 70 22 20 69 6e 20 73  rn any(":p" in s
1a60: 20 20 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70    for s in lMorp
1a70: 68 29 0a 0a 64 65 66 20 6d 62 45 70 69 20 28 6c  h)..def mbEpi (l
1a80: 4d 6f 72 70 68 29 3a 0a 20 20 20 20 22 72 65 74  Morph):.    "ret
1a90: 75 72 6e 73 20 54 72 75 65 20 69 66 20 6f 6e 65  urns True if one
1aa0: 20 6d 6f 72 70 68 6f 6c 6f 67 79 20 69 73 20 e2   morphology is .
1ab0: 80 9c c3 a9 70 69 63 c3 a8 6e 65 e2 80 9d 22 0a  ....pic..ne...".
1ac0: 20 20 20 20 72 65 74 75 72 6e 20 61 6e 79 28 22      return any("
1ad0: 3a 65 22 20 69 6e 20 73 20 20 66 6f 72 20 73 20  :e" in s  for s 
1ae0: 69 6e 20 6c 4d 6f 72 70 68 29 0a 0a 64 65 66 20  in lMorph)..def 
1af0: 6d 62 4d 61 73 20 28 6c 4d 6f 72 70 68 29 3a 0a  mbMas (lMorph):.
1b00: 20 20 20 20 22 72 65 74 75 72 6e 73 20 54 72 75      "returns Tru
1b10: 65 20 69 66 20 6f 6e 65 20 6d 6f 72 70 68 6f 6c  e if one morphol
1b20: 6f 67 79 20 69 73 20 e2 80 9c 6d 61 73 63 75 6c  ogy is ...mascul
1b30: 69 6e e2 80 9d 22 0a 20 20 20 20 72 65 74 75 72  in...".    retur
1b40: 6e 20 61 6e 79 28 22 3a 6d 22 20 69 6e 20 73 20  n any(":m" in s 
1b50: 20 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70 68   for s in lMorph
1b60: 29 0a 0a 64 65 66 20 6d 62 46 65 6d 20 28 6c 4d  )..def mbFem (lM
1b70: 6f 72 70 68 29 3a 0a 20 20 20 20 22 72 65 74 75  orph):.    "retu
1b80: 72 6e 73 20 54 72 75 65 20 69 66 20 6f 6e 65 20  rns True if one 
1b90: 6d 6f 72 70 68 6f 6c 6f 67 79 20 69 73 20 e2 80  morphology is ..
1ba0: 9c 66 c3 a9 6d 69 6e 69 6e e2 80 9d 22 0a 20 20  .f..minin...".  
1bb0: 20 20 72 65 74 75 72 6e 20 61 6e 79 28 22 3a 66    return any(":f
1bc0: 22 20 69 6e 20 73 20 20 66 6f 72 20 73 20 69 6e  " in s  for s in
1bd0: 20 6c 4d 6f 72 70 68 29 0a 0a 64 65 66 20 6d 62   lMorph)..def mb
1be0: 4e 70 72 20 28 6c 4d 6f 72 70 68 29 3a 0a 20 20  Npr (lMorph):.  
1bf0: 20 20 22 72 65 74 75 72 6e 73 20 54 72 75 65 20    "returns True 
1c00: 69 66 20 6f 6e 65 20 6d 6f 72 70 68 6f 6c 6f 67  if one morpholog
1c10: 79 20 69 73 20 e2 80 9c 6e 6f 6d 20 70 72 6f 70  y is ...nom prop
1c20: 72 65 e2 80 9d 20 6f 72 20 e2 80 9c 74 69 74 72  re... or ...titr
1c30: 65 20 64 65 20 63 69 76 69 6c 69 74 c3 a9 e2 80  e de civilit....
1c40: 9d 22 0a 20 20 20 20 72 65 74 75 72 6e 20 61 6e  .".    return an
1c50: 79 28 4e 50 2e 73 65 61 72 63 68 28 73 29 20 20  y(NP.search(s)  
1c60: 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70 68 29  for s in lMorph)
1c70: 0a 0a 64 65 66 20 6d 62 4e 70 72 4d 61 73 4e 6f  ..def mbNprMasNo
1c80: 74 46 65 6d 20 28 6c 4d 6f 72 70 68 29 3a 0a 20  tFem (lMorph):. 
1c90: 20 20 20 22 72 65 74 75 72 6e 73 20 54 72 75 65     "returns True
1ca0: 20 69 66 20 6f 6e 65 20 6d 6f 72 70 68 6f 6c 6f   if one morpholo
1cb0: 67 79 20 69 73 20 e2 80 9c 6e 6f 6d 20 70 72 6f  gy is ...nom pro
1cc0: 70 72 65 20 6d 61 73 63 75 6c 69 6e e2 80 9d 20  pre masculin... 
1cd0: 62 75 74 20 6e 6f 74 20 e2 80 9c 66 c3 a9 6d 69  but not ...f..mi
1ce0: 6e 69 6e e2 80 9d 22 0a 20 20 20 20 69 66 20 61  nin...".    if a
1cf0: 6e 79 28 4e 50 66 2e 73 65 61 72 63 68 28 73 29  ny(NPf.search(s)
1d00: 20 20 66 6f 72 20 73 20 69 6e 20 6c 4d 6f 72 70    for s in lMorp
1d10: 68 29 3a 0a 20 20 20 20 20 20 20 20 72 65 74 75  h):.        retu
1d20: 72 6e 20 46 61 6c 73 65 0a 20 20 20 20 72 65 74  rn False.    ret
1d30: 75 72 6e 20 61 6e 79 28 4e 50 6d 2e 73 65 61 72  urn any(NPm.sear
1d40: 63 68 28 73 29 20 20 66 6f 72 20 73 20 69 6e 20  ch(s)  for s in 
1d50: 6c 4d 6f 72 70 68 29 0a                          lMorph).