commit 9e55f1784973fe9f7d99af6d96d2eda5f1833345
Author: hectoralos <hectoralos@gmail.com>
Date:   Fri Jul 10 20:04:07 2020 +0300

    disamb np

diff --git a/apertium-frp.frp.rlx b/apertium-frp.frp.rlx
index 5de3dd9..9002f46 100644
--- a/apertium-frp.frp.rlx
+++ b/apertium-frp.frp.rlx
@@ -43,7 +43,10 @@ LIST N = n ;
 LIST NP = np ;
 LIST Top = top ;
 LIST Ant = ant ;
-LIST Cog = Cog ;
+LIST Cog = cog ;
+SET Ant_Cog = Ant OR Cog ;
+LIST Al = al ;
+LIST Acr = acr ;
 
 LIST Fin = pri prs pii ifi pis cni imp ;
 LIST Ind = pri pii ifi ;
@@ -169,8 +172,11 @@ SELECT Prep IF (0 ("devant")) (1 Det + &&GenderNumber) (2 A + &&GenderNumber) ;
 SELECT Prep IF (0 ("devant")) (1 Num + &&Gender) (2 N + &&Gender + Pl ) ;
 SELECT Prep IF (0 ("devant")) (1 Num + &&Gender) (2 A + &&Gender + Pl ) ;
 
-REMOVE Top IF (-1 BOS) (0 ("en")) ;
-REMOVE Top IF (-1 BOS) (0 ("nion")) ;
+REMOVE Top IF (-1 BOS OR Sent) (0 ("en")) ;
+REMOVE Top IF (-1 BOS OR Sent) (0 ("nion")) ;
+
+REMOVE Cog IF (-1 BOS OR Sent) (0 ("mas")) ;
+REMOVE Cog IF (-1 BOS OR Sent) (0 ("pou")) ;
 
 SELECT N IF (-1 Def + FemSg) (0 ("<Mar>")) ;
 
@@ -209,8 +215,8 @@ REMOVE CnjSub IF (-1 PP LINK NOT -1 Haver OR Ser OR Adv ) ;
 
 # itg / rel, adj, cnjadv
 
-SELECT Itg IF (-1 BOS) (0C Itg OR Rel OR A) ;				# Qui ; Quint mâl at-il fêt ?
-SELECT Itg IF (-2 BOS) (-1 Prep) (0C Itg OR Rel OR A) ;			# A qui s'adresse
+SELECT Itg IF (-1 BOS OR Sent) (0C Itg OR Rel OR A) ;			# Qui ; Quint mâl at-il fêt ?
+SELECT Itg IF (-2 BOS OR Sent) (-1 Prep) (0C Itg OR Rel OR A) ;		# A qui s'adresse
 SELECT Itg IF (-1C Verb LINK NOT 0 PP) (0C Itg OR Rel OR A) ;		## je demando qui
 SELECT Itg IF (-2C Verb LINK NOT 0 PP) (-1 Prep) (0C Itg OR Rel OR A) ;	## je demando avouéc qui
 SELECT Itg IF (-2C Verb LINK NOT 0 PP) (-1 Adv) (0C Itg OR Rel OR A) ;	## je demando pas qui
@@ -331,7 +337,44 @@ SELECT N IF (-1 Num) (0 ("franc")) ;
 
 # n / np
 
-SELECT NP IF (0 MajIni);	# VERIFY (il faut des tas plus de règles)
+REMOVE Ant IF (-1 ("en")) (0 Ant OR Cog) ;
+
+REMOVE NP IF (-1 Det + &&GenderNumber) (0 Noun_Adj + &&GenderNumber) ;
+REMOVE NP IF (-1/* Det + &&GenderNumber) (0 Noun_Adj + &&GenderNumber) ;	# Jèsus u Jardin des Oliviérs
+REMOVE NP IF (-1 BOS OR Sent) (NOT 1 NP OR Adv OR P3) ;
+
+SELECT NP IF (0 N OR NP) (1 NP) (0 (META:/-/r)) (NOT 0 ("bâs") OR ("hôt") OR ("hiôt")) ;
+	# Pierre-Michel
+SELECT Ant IF (0 Ant) (1C Ant) (0 (META:/-/r)) ;
+	# Jean-René
+SELECT Ant IF (-1C Ant) (0 Ant) (-1 (META:/-/r)) ;
+SELECT Cog IF (0 Cog) (1C Cog) (0 (META:/-/r)) ;
+SELECT Cog IF (-1C Cog) (0 Cog) (-1 (META:/-/r)) ;
+SELECT Cog IF (0 Cog OR Ant) (-1C Ant) ;
+SELECT Ant_Cog IF (0 Cog OR Ant) (1C Cog) ;
+SELECT Ant IF (0C Ant OR Cog) (1 Ant) (0 (META:/-/r)) ;
+	# Charles-Michel
+
+SELECT Masc_strict IF (0 ("Camille")) (1 ("Pissarro")) ;
+SELECT Cog IF (-1 ("Édouard")) (0 ("Philippe")) ;
+SELECT Ant IF (0 ("Édouard")) (1 ("Philippe")) ;
+
+SELECT Top IF (-2C Ant) (-1 ("<de>")) (0C Cog OR Ant OR Top) ;
+SELECT Ant IF (0C Cog OR Ant OR Top) (1 ("<de>")) (2C Top) ;	# Maurice de Saxe
+REMOVE Top IF (0 Cog OR Ant OR Top) (1 unknown) (NOT -1 ("de")) ;
+SELECT Ant IF (NOT -1 Cog OR Ant) (0C Cog OR Ant) (1 unknown) ;
+	## Léon Verguet
+REMOVE (cog) IF (0C NP) (0 (cog)) (0 (top)) (NOT 1 (ant) OR (cog)) (-1 BOS); #Orihuela, Vilallonga
+
+REMOVE Al IF (-1 Ant OR Cog) (0 Ant OR Cog) ;
+REMOVE Top IF (-1 Ant OR Cog) (0 Ant OR Cog) ;
+REMOVE Al IF (0 Ant OR Cog) (1 Ant OR Cog) ;
+REMOVE Top IF (0 Ant OR Cog) (1 Ant OR Cog) ;
+
+SELECT Top IF (-2 ("vela") OR ("vila") OR ("viala") OR ("aèrogâra") OR ("gâra") OR ("stacion") OR ("pôrt")
+	OR ("royômo") OR ("principauté") OR ("grant-ducât") OR ("grand-ducât") OR ("ducât") OR ("marquisat") OR ("comtât") OR ("baronnie") OR ("sègnorerie") OR ("archèvèchiê") OR ("archèvèco") OR ("èvèchiê") OR ("èvèco")) (-1 ("de")) (0 Cog OR Ant) ;
+ 
+SELECT NP IF (NOT -1 BOS OR Sent) (0 MajIni) ;	# VERIFY (il faut des tas plus de règles)
 
 #
 # Verbos