commit ad9928034fbd03dea146bbd2983458a9fdd8bf7f
Author: hectoralos <hectoralos@gmail.com>
Date:   Wed Aug 19 22:17:59 2020 +0300

    +accord suject-attribut

diff --git a/apertium-fra-frp.fra-frp.t1x b/apertium-fra-frp.fra-frp.t1x
index 8766ceb..2273cb6 100644
--- a/apertium-fra-frp.fra-frp.t1x
+++ b/apertium-fra-frp.fra-frp.t1x
@@ -3126,10 +3126,11 @@
         <call-macro n="f_chunk_tags">
           <with-param pos="1"/>
         </call-macro>
+        <let><var n="lemma"/><clip pos="1" side="tl" part="lem"/></let>
         <out>
-          <chunk name="pp">
+          <chunk namefrom="lemma">
             <tags>
-              <tag><lit-tag v="SA"/></tag>
+              <tag><lit-tag v="SA_pp"/></tag>
               <tag><clip pos="1" side="tl" part="gen"/></tag>
               <tag><clip pos="1" side="tl" part="nbr"/></tag>
               <tag><var n="genero_sl"/></tag>
@@ -3524,11 +3525,12 @@
             </call-macro>
           </otherwise>
         </choose>
+        <let><var n="lemma"/><clip pos="2" side="tl" part="lem"/></let>
         <out>
           <b pos="1"/>
-          <chunk name="pp">
+          <chunk namefrom="lemma">
             <tags>
-              <tag><lit-tag v="SA"/></tag>
+              <tag><lit-tag v="SA_pp"/></tag>
               <tag><clip pos="2" side="tl" part="gen"/></tag>
               <tag><clip pos="2" side="tl" part="nbr"/></tag>
               <tag><var n="genero_sl"/></tag>
diff --git a/apertium-fra-frp.fra-frp.t2x b/apertium-fra-frp.fra-frp.t2x
index e2aff69..94967d4 100644
--- a/apertium-fra-frp.fra-frp.t2x
+++ b/apertium-fra-frp.fra-frp.t2x
@@ -9,15 +9,21 @@
       <cat-item tags="SA"/>
       <cat-item tags="SA.*"/>
       <cat-item tags="SAcomp.*"/>
+      <cat-item tags="SA_pp.*"/>
+    </def-cat>
+    <def-cat n="SAcomp">
+      <cat-item tags="SAcomp.*"/>
     </def-cat>
     <def-cat n="PP">
       <cat-item lemma="pp" tags="SA.*"/>
+      <cat-item tags="SA_pp.*"/>
     </def-cat>
     <def-cat n="PP_pl">
       <cat-item lemma="pp" tags="SA.*.pl.*"/>
+      <cat-item tags="SA_pp.*.pl.*"/>
     </def-cat>
-    <def-cat n="SAcomp">
-      <cat-item tags="SAcomp.*"/>
+    <def-cat n="PP_etre">
+      <cat-item lemma="étre" tags="SA_pp.*"/>
     </def-cat>
     <def-cat n="SN_SA">
       <cat-item tags="SN"/>
@@ -45,6 +51,11 @@
     <def-cat n="SV_vbser">
       <cat-item tags="SV.vbser"/>
       <cat-item tags="SV.vbser.*"/>
+      <cat-item tags="SVpp.vbser.*"/>
+    </def-cat>
+    <def-cat n="SV_vbhaver">
+      <cat-item tags="SV.vbhaver"/>
+      <cat-item tags="SV.vbhaver.*"/>
     </def-cat>
     <def-cat n="PREP">
       <cat-item tags="PREP"/>
@@ -263,7 +274,7 @@
 
     <!-- REGLAS PER L'ATRIBUT -->
 
-    <rule comment="REGLA: PREP SN SV_vbser SA: aquesta regla inhibeix la concodança de les regles que segueixen si hi ha una prep al davant del subjecte putatiu">
+    <rule comment="REGLA: PREP SN SV_vbser SA: aquesta regla inhibeix la concordança de les regles que segueixen si hi ha una prep al davant del subjecte putatiu">
       <pattern>
         <pattern-item n="PREP"/>
         <pattern-item n="SN"/>
@@ -299,7 +310,7 @@
       </action>
     </rule>
 
-    <rule comment="REGLA: SN SV_vbser SA: concordance en genre entre suject et attibut: la maison est grande > l'ostal es grand">
+    <rule comment="REGLA: SN SV_vbser SA: accord en genre entre sujet et attribut: la maison est grande > l'ostal es grand">
       <pattern>
         <pattern-item n="SN"/>
         <pattern-item n="SV_vbser"/>
@@ -350,7 +361,7 @@
       </action>
     </rule>
 
-    <rule comment="REGLA: SN SV_vbser SAdv SA: concordance en genre entre suject et attibut: la maison est très grande > l'ostal es força grand">
+    <rule comment="REGLA: SN SV_vbser SAdv SA: accord en genre entre sujet et attribut: la maison est très grande > l'ostal es força grand">
       <pattern>
         <pattern-item n="SN"/>
         <pattern-item n="SV_vbser"/>
@@ -408,7 +419,7 @@
       </action>
     </rule>
 
-    <rule comment="REGLA: SN SV_vbser DET SA: concordance en genre entre suject et attibut: la maison est la grande > l'ostal es lo grand">
+    <rule comment="REGLA: SN SV_vbser DET SA: accord en genre entre sujet et attribut: la maison est la grande > l'ostal es lo grand">
       <pattern>
         <pattern-item n="SN"/>
         <pattern-item n="SV_vbser"/>
@@ -468,6 +479,230 @@
       </action>
     </rule>
 
+    <rule comment="REGLA: PREP SN SV_vbhaver PP_etre SA: aquesta regla inhibeix la concordança de les regles que segueixen si hi ha una prep al davant del subjecte putatiu">
+      <pattern>
+        <pattern-item n="PREP"/>
+        <pattern-item n="SN"/>
+        <pattern-item n="SV_vbhaver"/>
+        <pattern-item n="PP_etre"/>
+      </pattern>
+      <action>
+        <out>
+          <chunk>
+            <clip pos="1" part="lem"/>
+            <clip pos="1" part="tags"/>
+            <clip pos="1" part="chcontent"/>
+          </chunk>
+          <b pos="1"/>
+          <chunk>
+            <clip pos="2" part="lem"/>
+            <clip pos="2" part="tags"/>
+            <clip pos="2" part="chcontent"/>
+          </chunk>
+          <b pos="2"/>
+          <chunk>
+            <clip pos="3" part="lem"/>
+            <clip pos="3" part="tags"/>
+            <clip pos="3" part="chcontent"/>
+          </chunk>
+          <b pos="3"/>
+          <chunk>
+            <clip pos="4" part="lem"/>
+            <clip pos="4" part="tags"/>
+            <clip pos="4" part="chcontent"/>
+          </chunk>
+        </out>
+      </action>
+    </rule>
+
+    <rule comment="REGLA: SN SV_vbhaver PP_etre SA: accord en genre entre sujet et attribut: ces musaraignes ont été redécouvertes > cetos musèts ant étâ redècuvèrts">
+      <pattern>
+        <pattern-item n="SN"/>
+        <pattern-item n="SV_vbhaver"/>
+        <pattern-item n="PP_etre"/>
+        <pattern-item n="SA"/>
+      </pattern>
+      <action>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <equal><clip pos="1" part="gen"/><lit-tag v="m"/></equal>
+              <equal><clip pos="4" part="gen"/><lit-tag v="f"/></equal>
+              <equal><clip pos="1" part="sl_gen"/><lit-tag v="sl_f"/></equal>
+            </and>
+          </test>
+          <let><clip pos="4" part="gen"/><lit-tag v="m"/></let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal><clip pos="1" part="gen"/><lit-tag v="f"/></equal>
+              <equal><clip pos="4" part="gen"/><lit-tag v="m"/></equal>
+              <equal><clip pos="1" part="sl_gen"/><lit-tag v="sl_m"/></equal>
+            </and>
+          </test>
+          <let><clip pos="4" part="gen"/><lit-tag v="f"/></let>
+        </when>
+      </choose>
+        <out>
+          <chunk>
+            <clip pos="1" part="lem"/>
+            <clip pos="1" part="tags"/>
+            <clip pos="1" part="chcontent"/>
+          </chunk>
+          <b pos="1"/>
+          <chunk>
+            <clip pos="2" part="lem"/>
+            <clip pos="2" part="tags"/>
+            <clip pos="2" part="chcontent"/>
+          </chunk>
+          <b pos="2"/>
+          <chunk>
+            <clip pos="3" part="lem"/>
+            <clip pos="3" part="tags"/>
+            <clip pos="3" part="chcontent"/>
+          </chunk>
+          <b pos="3"/>
+          <chunk>
+            <clip pos="4" part="lem"/>
+            <clip pos="4" part="tags"/>
+            <clip pos="4" part="chcontent"/>
+          </chunk>
+        </out>
+      </action>
+    </rule>
+
+    <rule comment="REGLA: SN SV_vbhaver PP_etre SVAdv SA: accord en genre entre sujet et attribut: ces musaraignes ont été redécouvertes > cetos musèts ant étâ redècuvèrts">
+      <pattern>
+        <pattern-item n="SN"/>
+        <pattern-item n="SV_vbhaver"/>
+        <pattern-item n="PP_etre"/>
+        <pattern-item n="SAdv"/>
+        <pattern-item n="SA"/>
+      </pattern>
+      <action>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <equal><clip pos="1" part="gen"/><lit-tag v="m"/></equal>
+              <equal><clip pos="5" part="gen"/><lit-tag v="f"/></equal>
+              <equal><clip pos="1" part="sl_gen"/><lit-tag v="sl_f"/></equal>
+            </and>
+          </test>
+          <let><clip pos="5" part="gen"/><lit-tag v="m"/></let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal><clip pos="1" part="gen"/><lit-tag v="f"/></equal>
+              <equal><clip pos="5" part="gen"/><lit-tag v="m"/></equal>
+              <equal><clip pos="1" part="sl_gen"/><lit-tag v="sl_m"/></equal>
+            </and>
+          </test>
+          <let><clip pos="5" part="gen"/><lit-tag v="f"/></let>
+        </when>
+      </choose>
+        <out>
+          <chunk>
+            <clip pos="1" part="lem"/>
+            <clip pos="1" part="tags"/>
+            <clip pos="1" part="chcontent"/>
+          </chunk>
+          <b pos="1"/>
+          <chunk>
+            <clip pos="2" part="lem"/>
+            <clip pos="2" part="tags"/>
+            <clip pos="2" part="chcontent"/>
+          </chunk>
+          <b pos="2"/>
+          <chunk>
+            <clip pos="3" part="lem"/>
+            <clip pos="3" part="tags"/>
+            <clip pos="3" part="chcontent"/>
+          </chunk>
+          <b pos="3"/>
+          <chunk>
+            <clip pos="4" part="lem"/>
+            <clip pos="4" part="tags"/>
+            <clip pos="4" part="chcontent"/>
+          </chunk>
+          <b pos="4"/>
+          <chunk>
+            <clip pos="5" part="lem"/>
+            <clip pos="5" part="tags"/>
+            <clip pos="5" part="chcontent"/>
+          </chunk>
+        </out>
+      </action>
+    </rule>
+
+    <rule comment="REGLA: SN SV_vbhaver SVAdv PP_etre SA: accord en genre entre sujet et attribut: ces musaraignes ont été redécouvertes > cetos musèts ant étâ redècuvèrts">
+      <pattern>
+        <pattern-item n="SN"/>
+        <pattern-item n="SV_vbhaver"/>
+        <pattern-item n="SAdv"/>
+        <pattern-item n="PP_etre"/>
+        <pattern-item n="SA"/>
+      </pattern>
+      <action>
+      <choose>
+        <when>
+          <test>
+            <and>
+              <equal><clip pos="1" part="gen"/><lit-tag v="m"/></equal>
+              <equal><clip pos="5" part="gen"/><lit-tag v="f"/></equal>
+              <equal><clip pos="1" part="sl_gen"/><lit-tag v="sl_f"/></equal>
+            </and>
+          </test>
+          <let><clip pos="5" part="gen"/><lit-tag v="m"/></let>
+        </when>
+        <when>
+          <test>
+            <and>
+              <equal><clip pos="1" part="gen"/><lit-tag v="f"/></equal>
+              <equal><clip pos="5" part="gen"/><lit-tag v="m"/></equal>
+              <equal><clip pos="1" part="sl_gen"/><lit-tag v="sl_m"/></equal>
+            </and>
+          </test>
+          <let><clip pos="5" part="gen"/><lit-tag v="f"/></let>
+        </when>
+      </choose>
+        <out>
+          <chunk>
+            <clip pos="1" part="lem"/>
+            <clip pos="1" part="tags"/>
+            <clip pos="1" part="chcontent"/>
+          </chunk>
+          <b pos="1"/>
+          <chunk>
+            <clip pos="2" part="lem"/>
+            <clip pos="2" part="tags"/>
+            <clip pos="2" part="chcontent"/>
+          </chunk>
+          <b pos="2"/>
+          <chunk>
+            <clip pos="3" part="lem"/>
+            <clip pos="3" part="tags"/>
+            <clip pos="3" part="chcontent"/>
+          </chunk>
+          <b pos="3"/>
+          <chunk>
+            <clip pos="4" part="lem"/>
+            <clip pos="4" part="tags"/>
+            <clip pos="4" part="chcontent"/>
+          </chunk>
+          <b pos="4"/>
+          <chunk>
+            <clip pos="5" part="lem"/>
+            <clip pos="5" part="tags"/>
+            <clip pos="5" part="chcontent"/>
+          </chunk>
+        </out>
+      </action>
+    </rule>
+
     <!-- FIN REGLAS PER L'ATRIBUT -->
 
     <!-- REGLAS PEL PARTITIU -->