commit ec9c93d03c7abb2e64742d1db93754638a350f6a
Author: hectoralos <hectoralos@gmail.com>
Date:   Tue Aug 18 19:27:36 2020 +0300

    disamb mon/ton/son m/f

diff --git a/apertium-frp.frp.rlx b/apertium-frp.frp.rlx
index b457192..1ca7134 100644
--- a/apertium-frp.frp.rlx
+++ b/apertium-frp.frp.rlx
@@ -134,8 +134,9 @@ LIST L = "<l'>"i "<l’>"i;
 LIST LPre = "<'l>"i "<’l>"i;
 
 LIST unknown = ("\\*.*"r) ;
-LIST unknownMajIni = ("\\*[A-ZÀÁÈÉíÒÓÚÜÇ].*"r) ;
-LIST MajIni = ("\\<[A-ZÀÁÈÉíÒÓÚÜÇ].*\\>"r) ;
+LIST unknownMajIni = ("\\*[A-ZÀÁÈÉÊÍÒÓÔÚÜÇ].*"r) ;
+LIST MajIni = ("\\<[A-ZÀÁÈÉÊÍÒÓÔÚÜÇ].*\\>"r) ;
+LIST VowelIni = ("\\<[aâeèéêioôuAÂEÈÉÊÎOÔU].*\\>"r) ;
 LIST ChiffreRom = ("\\<[IVXLCM]*\\>"r) ;
 
 # verbes Vblex que typiquement impliquen subjonctif
@@ -281,6 +282,8 @@ REMOVE A IF (-1 Det + &&GenderNumber) (0 ("fin") + N + &&GenderNumber) ;		# a la
 SELECT Sg IF (NOT -1/* Pl_strict OR N) (0 ("Chablès")) (NOT 1 Pl_strict) ;
 SELECT Pl IF (-1/* Pl_strict) (0 ("Chablès")) ;
 
+REMOVE Fem IF (0 ("<mon>"i) OR ("<ton>"i) OR ("<son>"i)) (NOT 1 VowelIni + FemSg) ;
+
 # vbhaver / vblex
 
 SELECT Haver IF (0 Haver) (1 Adv OR CnjAdv) (2 PP) ;		# at pas chantâ