From 6db626612491df7fb1a1cc2752bb8762d24136d6 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 8 Apr 2019 14:53:41 +0200
Subject: [PATCH] =?UTF-8?q?(Spa)=20Add=20constructor=20for=20dative=20intr?=
 =?UTF-8?q?ansitive=20verbs:=20"me/te/le/=E2=80=A6=20parece"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/spanish/ParadigmsSpa.gf | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/spanish/ParadigmsSpa.gf b/src/spanish/ParadigmsSpa.gf
index 0993d935..a276334d 100644
--- a/src/spanish/ParadigmsSpa.gf
+++ b/src/spanish/ParadigmsSpa.gf
@@ -436,6 +436,23 @@ oper
     _  => verboV (regAlternVEr x y)
     } ;
 
+  -- hack for verbs like parecer.
+  -- NB. doesn't work properly for gustar, which agrees with the object.
+  dativeV : V -> V = \parecer -> parecer ** {
+    s = table {
+           VFin m n p => case <n,p> of {
+                <Sg,P1> => "me" ;
+                <Sg,P2> => "te" ;
+                <Sg,P3> => "le" ;
+                <Pl,P1> => "nos" ;
+                <Pl,P2> => "os" ;
+                <Pl,P3> => "les" } ++ parecer.s ! VFin m Sg P3 ;
+           VImper n => case n of {
+                SgP2 => "que te" ;
+                PlP1 => "que nos" ;
+                PlP2 => "que os" } ++ parecer.s ! VFin (VPres Conjunct) Sg P3 ;
+           x => parecer.s ! x }
+  } ;
 
 
   mk2V2 v p = lin V2 (v ** {c2 = p}) ;