commit e819a21cd9b83ef00667318c7d3986f0563748c7
Author: Hèctor Alòs i Font <hectoralos@gmail.com>
Date:   Fri Apr 12 11:07:00 2019 +0300

    + regles concordància, correcció macro

diff --git a/apertium-cat-ita.cat-ita.t1x b/apertium-cat-ita.cat-ita.t1x
index 696bf24..adb6610 100644
--- a/apertium-cat-ita.cat-ita.t1x
+++ b/apertium-cat-ita.cat-ita.t1x
@@ -5,10 +5,21 @@
       <cat-item tags="prn.*"/>
     </def-cat>
 
+    <def-cat n="prnenc">
+      <cat-item tags="prn.enc.*"/>
+    </def-cat>
+
     <def-cat n="nom">
       <cat-item tags="n.*"/>
     </def-cat>
 
+    <def-cat n="top_ant">
+      <cat-item tags="np.top.*"/>
+      <cat-item tags="np.ant.*"/>
+      <cat-item tags="np.cog.*"/>
+      <cat-item tags="np.al.*"/>
+    </def-cat>
+
     <def-cat n="adjec">
       <cat-item tags="adj.m.*"/>
       <cat-item tags="adj.f.*"/>
@@ -125,6 +136,8 @@
       <attr-item tags="n.unc"/>
       <attr-item tags="np.top"/>
       <attr-item tags="np.ant"/>
+      <attr-item tags="np.loc"/>
+      <attr-item tags="np.al"/>
     </def-attr>
 
     <def-attr n="a_adj">
@@ -222,8 +235,9 @@
     <def-var n="caseFirstWord"/>
     <def-var n="concPrimero"/>
     <def-var n="EOS"/>
-    <def-var n="genero"/>
-    <def-var n="numero"/>
+    <def-var n="genero" v="&lt;m&gt;"/>
+    <def-var n="numero" v="&lt;sg&gt;"/>
+
   </section-def-vars>
 <section-def-lists>
 		<def-list n="vbambser">
@@ -971,14 +985,46 @@
 					<clip pos="1" side="tl" part="a_verb"/>
 					<lit-tag v="vbser"/>
 				</let>
-				<let> <!-- suposem que el suj s l'ltim sn-->
-					<clip pos="2" side="tl" part="gen"/>
-					<var n="genero"/>
-				</let>
-				<let>
-					<clip pos="2" side="tl" part="nbr"/>
-					<var n="numero"/>
-				</let>
+				<choose>
+					<when>
+						<test>
+							<or>
+								<equal><var n="genero"/><lit-tag v="m"/></equal>
+								<equal><var n="genero"/><lit-tag v="f"/></equal>
+							</or>
+						</test>
+						<let> <!-- suposem que el suj és l'últim sn-->
+							<clip pos="2" side="tl" part="gen"/>
+							<var n="genero"/>
+						</let>
+					</when>
+					<otherwise>
+						<let>
+							<clip pos="2" side="tl" part="gen"/>
+              				<lit-tag v="m"/>
+						</let>
+					</otherwise>
+				</choose>
+				<choose>
+					<when>
+						<test>
+							<or>
+								<equal><var n="numero"/><lit-tag v="sg"/></equal>
+								<equal><var n="numero"/><lit-tag v="pl"/></equal>
+							</or>
+						</test>
+						<let> <!-- suposem que el suj és l'últim sn-->
+							<clip pos="2" side="tl" part="nbr"/>
+							<var n="numero"/>
+						</let>
+					</when>
+					<otherwise>
+						<let>
+							<clip pos="2" side="tl" part="nbr"/>
+              				<lit-tag v="sg"/>
+						</let>
+					</otherwise>
+				</choose>
 			</when>
 		</choose>
 
@@ -1153,6 +1199,37 @@
     </rule>
 
 
+    <rule comment="REGLA: TOP">
+      <pattern>
+	<pattern-item n="top_ant"/>
+      </pattern>
+      <action>
+	<call-macro n="firstWord">
+	  <with-param pos="1"/>
+	</call-macro>
+	<call-macro n="f_concord1">
+	  <with-param pos="1"/>
+	</call-macro>
+	<out>
+	  <chunk name="top" case="caseFirstWord">
+	    <tags>
+	      <tag><lit-tag v="SN"/></tag>
+	      <tag><var n="genero"/></tag>
+	      <tag><var n="numero"/></tag>
+	    </tags>
+	    <lu>
+	      <clip pos="1" side="tl" part="lemh"/> 
+	      <clip pos="1" side="tl" part="a_nom"/>
+	      <clip pos="1" side="tl" part="gen"/>
+	      <clip pos="1" side="tl" part="nbr"/>
+	      <clip pos="1" side="tl" part="lemq"/>
+	    </lu>
+	  </chunk>
+	</out>
+      </action>
+    </rule>
+
+
     <rule comment="REGLA: NOM (quan no acompanya res o va amb desconeguda)">
       <pattern>
 	<pattern-item n="nom"/>
@@ -1348,5 +1425,291 @@
       </action>
     </rule>
 
+    <!-- pronoms enclítics -->
+
+    <rule comment="ger prnenc">
+	    <pattern>
+		    <pattern-item n="ger"/>
+		    <pattern-item n="prnenc"/>
+	    </pattern>
+	    <action>
+		    <call-macro n="f_concord1">
+			    <with-param pos="2"/>
+		    </call-macro>
+		    <!--<call-macro n="tipus_verb">
+			<with-param pos="1"/>
+		    </call-macro>-->
+		    <call-macro n="firstWord">
+			    <with-param pos="1"/>
+		    </call-macro>
+		    <out>
+			    <chunk name="ger_enc" case="caseFirstWord">
+				    <tags>
+					    <tag><lit-tag v="SV"/></tag>
+					    <tag><clip pos="1" side="tl" part="a_verb"/></tag>
+					    <tag><clip pos="1" side="tl" part="temps"/></tag>
+					    <!--<tag><var n="tipusverb"/></tag>
+					    <tag><var n="cv_verb"/></tag>-->
+				    </tags>
+				    <mlu>
+					    <lu>
+						    <clip pos="1" side="tl" part="lemh"/>
+						    <clip pos="1" side="tl" part="a_verb"/>
+						    <clip pos="1" side="tl" part="temps"/>
+					    </lu>
+					    <lu>
+						    <clip pos="2" side="tl" part="whole"/>
+						    <clip pos="1" side="tl" part="lemq"/>
+					    </lu>
+				    </mlu>
+			    </chunk>
+		    </out>
+		    <let>
+			    <var n="caseFirstWord"/>
+			    <lit v="aa"/>
+		    </let>
+	    </action>
+    </rule>
+    
+    <rule comment="ger prnenc prnenc">
+	    <pattern>
+		    <pattern-item n="ger"/>
+		    <pattern-item n="prnenc"/>
+		    <pattern-item n="prnenc"/>
+	    </pattern>
+	    <action>
+		    <call-macro n="f_concord1">
+			    <with-param pos="2"/>
+		    </call-macro>
+		    <call-macro n="f_concord1">
+			    <with-param pos="3"/>
+		    </call-macro>
+		    <call-macro n="firstWord">
+			    <with-param pos="1"/>
+		    </call-macro>
+		    <out>
+			    <chunk name="ger_enc" case="caseFirstWord">
+				    <tags>
+					    <tag><lit-tag v="SV"/></tag>
+					    <tag><clip pos="1" side="tl" part="a_verb"/></tag>
+					    <tag><clip pos="1" side="tl" part="temps"/></tag>
+				    </tags>
+				    <mlu>
+					    <lu>
+						    <clip pos="1" side="tl" part="lemh"/>
+						    <clip pos="1" side="tl" part="a_verb"/>
+						    <clip pos="1" side="tl" part="temps"/>
+					    </lu>
+					    <lu>
+						    <clip pos="2" side="tl" part="whole"/>
+					    </lu>
+					    <lu>
+						    <clip pos="3" side="tl" part="whole"/>
+						    <clip pos="1" side="tl" part="lemq"/>
+					    </lu>
+				    </mlu>
+			    </chunk>
+		    </out>
+		    <let>
+			    <var n="caseFirstWord"/>
+			    <lit v="aa"/>
+		    </let>
+	    </action>
+    </rule>
+
+
+        <rule comment="imp prnenc">
+                <pattern>
+                        <pattern-item n="imp"/>
+                        <pattern-item n="prnenc"/>
+                </pattern>
+                <action>
+                        <call-macro n="f_concord1">
+                                <with-param pos="2"/>
+                        </call-macro>
+                        <!--<call-macro n="tipus_verb">
+                                <with-param pos="1"/>
+                        </call-macro>-->
+                        <call-macro n="firstWord">
+                                <with-param pos="1"/>
+                        </call-macro>
+                        <out>
+                                <chunk name="imp_enc" case="caseFirstWord">
+                                        <tags>
+                                                <tag><lit-tag v="SV"/></tag>
+                                                <tag><clip pos="1" side="tl" part="a_verb"/></tag>
+                                                <tag><clip pos="1" side="tl" part="temps"/></tag>
+                                                <tag><clip pos="1" side="tl" part="pers"/></tag>
+                                                <tag><clip pos="1" side="tl" part="nbr"/></tag>
+                                                <!--<tag><var n="tipusverb"/></tag>
+                                                <tag><var n="cv_verb"/></tag>-->
+                                        </tags>
+                                        <mlu>
+                                                <lu>
+                                                        <clip pos="1" side="tl" part="lemh"/>
+                                                        <clip pos="1" side="tl" part="a_verb"/>
+                                                        <clip pos="1" side="tl" part="temps"/>
+                                                        <clip pos="1" side="tl" part="pers"/>
+                                                        <clip pos="1" side="tl" part="nbr"/>
+                                                </lu>
+                                                <lu>
+                                                        <clip pos="2" side="tl" part="whole"/>
+                                                        <clip pos="1" side="tl" part="lemq"/>
+                                                </lu>
+                                        </mlu>
+                                </chunk>
+                        </out>
+                        <let>
+                                <var n="caseFirstWord"/>
+                                <lit v="aa"/>
+                        </let>
+                </action>
+        </rule>
+
+        <rule comment="imp prnenc prnenc">
+                <pattern>
+                        <pattern-item n="imp"/>
+                        <pattern-item n="prnenc"/>
+                        <pattern-item n="prnenc"/>
+                </pattern>
+                <action>
+                        <call-macro n="f_concord1">
+                                <with-param pos="2"/>
+                        </call-macro>
+                        <!--<call-macro n="tipus_verb">
+                                <with-param pos="1"/>
+                        </call-macro>-->
+                        <call-macro n="firstWord">
+                                <with-param pos="1"/>
+                        </call-macro>
+                        <out>
+                                <chunk name="imp_enc" case="caseFirstWord">
+                                        <tags>
+                                                <tag><lit-tag v="SV"/></tag>
+                                                <tag><clip pos="1" side="tl" part="a_verb"/></tag>
+                                                <tag><clip pos="1" side="tl" part="temps"/></tag>
+                                                <tag><clip pos="1" side="tl" part="pers"/></tag>
+                                                <tag><clip pos="1" side="tl" part="nbr"/></tag>
+                                                <!--<tag><var n="tipusverb"/></tag>
+                                                <tag><var n="cv_verb"/></tag>-->
+                                        </tags>
+                                        <mlu>
+                                                <lu>
+                                                        <clip pos="1" side="tl" part="lemh"/>
+                                                        <clip pos="1" side="tl" part="a_verb"/>
+                                                        <clip pos="1" side="tl" part="temps"/>
+                                                        <clip pos="1" side="tl" part="pers"/>
+                                                        <clip pos="1" side="tl" part="nbr"/>
+                                                </lu>
+                                                <lu>
+                                                        <clip pos="2" side="tl" part="whole"/>
+                                                </lu>
+                                                <lu>
+                                                        <clip pos="3" side="tl" part="whole"/>
+                                                        <clip pos="1" side="tl" part="lemq"/>
+                                                </lu>
+                                        </mlu>
+                                </chunk>
+                        </out>
+                        <let>
+                                <var n="caseFirstWord"/>
+                                <lit v="aa"/>
+                        </let>
+                </action>
+        </rule>
+
+
+        <rule comment="inf prnenc">
+                <pattern>
+                        <pattern-item n="inf"/>
+                        <pattern-item n="prnenc"/>
+                </pattern>
+                <action>
+                        <call-macro n="f_concord1">
+                                <with-param pos="2"/>
+                        </call-macro>
+                        <!--<call-macro n="tipus_verb">
+                                <with-param pos="1"/>
+                        </call-macro>-->
+                        <call-macro n="firstWord">
+                                <with-param pos="1"/>
+                        </call-macro>
+                        <out>
+                                <chunk name="inf_enc" case="caseFirstWord">
+                                        <tags>
+                                                <tag><lit-tag v="SV"/></tag>
+                                                <tag><clip pos="1" side="tl" part="a_verb"/></tag>
+                                                <tag><clip pos="1" side="tl" part="temps"/></tag>
+                                                <!--<tag><var n="tipusverb"/></tag>
+                                                <tag><var n="cv_verb"/></tag>-->
+                                        </tags>
+                                        <mlu>
+                                                <lu>
+                                                        <clip pos="1" side="tl" part="lemh"/>
+                                                        <clip pos="1" side="tl" part="a_verb"/>
+                                                        <clip pos="1" side="tl" part="temps"/>
+                                                </lu>
+                                                <lu>
+                                                        <clip pos="2" side="tl" part="whole"/>
+                                                        <clip pos="1" side="tl" part="lemq"/>
+                                                </lu>
+                                        </mlu>
+                                </chunk>
+                        </out>
+                        <let>
+                                <var n="caseFirstWord"/>
+                                <lit v="aa"/>
+                        </let>
+                </action>
+        </rule>
+
+        <rule comment="inf prnenc prnenc">
+                <pattern>
+                        <pattern-item n="inf"/>
+                        <pattern-item n="prnenc"/>
+                        <pattern-item n="prnenc"/>
+                </pattern>
+                <action>
+                        <call-macro n="f_concord1">
+                                <with-param pos="2"/>
+                        </call-macro>
+                        <!--<call-macro n="tipus_verb">
+                                <with-param pos="1"/>
+                        </call-macro>-->
+                        <call-macro n="firstWord">
+                                <with-param pos="1"/>
+                        </call-macro>
+                        <out>
+                                <chunk name="inf_enc" case="caseFirstWord">
+                                        <tags>
+                                                <tag><lit-tag v="SV"/></tag>
+                                                <tag><clip pos="1" side="tl" part="a_verb"/></tag>
+                                                <tag><clip pos="1" side="tl" part="temps"/></tag>
+                                                <!--<tag><var n="tipusverb"/></tag>
+                                                <tag><var n="cv_verb"/></tag>-->
+                                        </tags>
+                                        <mlu>
+                                                <lu>
+                                                        <clip pos="1" side="tl" part="lemh"/>
+                                                        <clip pos="1" side="tl" part="a_verb"/>
+                                                        <clip pos="1" side="tl" part="temps"/>
+                                                </lu>
+                                                <lu>
+                                                        <clip pos="2" side="tl" part="whole"/>
+                                                </lu>
+                                                <lu>
+                                                        <clip pos="3" side="tl" part="whole"/>
+                                                        <clip pos="1" side="tl" part="lemq"/>
+                                                </lu>
+                                        </mlu>
+                                </chunk>
+                        </out>
+                        <let>
+                                <var n="caseFirstWord"/>
+                                <lit v="aa"/>
+                        </let>
+                </action>
+        </rule>
+
   </section-rules>
 </transfer>