commit 666a12278100ecc6d4eeeed1fe59684d906acc8a
Author: hectoralos <hectoralos@gmail.com>
Date:   Mon Aug 24 00:05:30 2020 +0300

    pis > prs

diff --git a/apertium-fra-frp.frp-fra.t1x b/apertium-fra-frp.frp-fra.t1x
index de16888..5deb7e5 100644
--- a/apertium-fra-frp.frp-fra.t1x
+++ b/apertium-fra-frp.frp-fra.t1x
@@ -2761,6 +2761,17 @@
       </choose>
     </def-macro>
 
+    <def-macro n="f_temps" npar="1" c="change pis par prs (il est possible que pour un dialecte ce que nous avons comme pis soit prs)">
+      <choose>
+        <when>
+          <test>
+            <equal><clip pos="1" side="sl" part="temps" /><lit-tag v="pis" /></equal>
+          </test>
+          <let><clip pos="1" side="tl" part="temps" /><lit-tag v="prs" /></let>
+        </when>
+      </choose>
+    </def-macro>
+
     <def-macro n="f_bcond" npar="2"><!--Per mirar si el blanc conté o no format. Cal posar aquesta funció en les regles en què desaparegui alguna paraula, per tal de decidir si el blanc de la paraula eliminada s'ha d'eliminar o conservar. Si conté format cal conservar-la, si no en conté cal eliminar-la perquè no apareguin dos espais seguits. -->
       <choose>
         <when>
@@ -3174,6 +3185,9 @@
         <call-macro n="f_concord1">
           <with-param pos="1"/>
         </call-macro>
+        <call-macro n="f_temps">
+          <with-param pos="1"/>
+        </call-macro>
         <let><var n="caseFirstWord"/><get-case-from pos="1"><lit v="aa"/></get-case-from></let>
         <let><var n="lemma"/><clip pos="1" side="tl" part="lem"/></let>
         <out>
@@ -3205,6 +3219,9 @@
        <action>
         <let><var n="caseFirstWord"/><get-case-from pos="1"><lit v="aa"/></get-case-from></let>
         <let><var n="lemma"/><clip pos="1" side="tl" part="lem"/></let>
+        <call-macro n="f_temps">
+          <with-param pos="1"/>
+        </call-macro>
         <call-macro n="f_set_pron">
           <with-param pos="1"/>
           <with-param pos="1"/>
@@ -3334,6 +3351,9 @@
          <call-macro n="f_concord1">
            <with-param pos="1"/>
          </call-macro>
+         <call-macro n="f_temps">
+           <with-param pos="2"/>
+         </call-macro>
          <choose>
            <when>
              <test> <!-- verbe no_pron + forme pronominale du verbe ? -->
@@ -5100,7 +5120,10 @@
        </pattern>
        <action>
          <call-macro n="f_concord1">
-          <with-param pos="2"/>
+           <with-param pos="2"/>
+         </call-macro>
+         <call-macro n="f_temps">
+           <with-param pos="1"/>
          </call-macro>
          <out>
            <chunk name="vbhaver">
@@ -5146,6 +5169,9 @@
          <pattern-item n="vbser_pp"/>
        </pattern>
        <action>
+         <call-macro n="f_temps">
+           <with-param pos="1"/>
+         </call-macro>
          <call-macro n="f_concord1">
           <with-param pos="3"/>
          </call-macro>
@@ -5219,6 +5245,9 @@
          <pattern-item n="vbser_pp"/>
        </pattern>
        <action>
+         <call-macro n="f_temps">
+           <with-param pos="1"/>
+         </call-macro>
          <call-macro n="f_concord1">
           <with-param pos="4"/>
          </call-macro>
@@ -5847,7 +5876,8 @@
          <pattern-item n="prnenc"/>
        </pattern>
        <action>
-        <let><var n="caseFirstWord"/><get-case-from pos="1"><lit v="aa"/></get-case-from></let>
+         <call-macro n="f_temps"><with-param pos="1"/></call-macro>
+         <let><var n="caseFirstWord"/><get-case-from pos="1"><lit v="aa"/></get-case-from></let>
          <out>
            <chunk name="v_enc" case="caseFirstWord">
              <tags>
@@ -5882,7 +5912,8 @@
          <pattern-item n="prnenc"/>
        </pattern>
        <action>
-        <let><var n="caseFirstWord"/><get-case-from pos="1"><lit v="aa"/></get-case-from></let>
+         <call-macro n="f_temps"><with-param pos="1"/></call-macro>
+         <let><var n="caseFirstWord"/><get-case-from pos="1"><lit v="aa"/></get-case-from></let>
          <out>
            <chunk name="v_enc" case="caseFirstWord">
              <tags>