diff --git a/src/spanish/ParadigmsSpa.gf b/src/spanish/ParadigmsSpa.gf index 0993d935e..a276334dd 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 of { + => "me" ; + => "te" ; + => "le" ; + => "nos" ; + => "os" ; + => "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}) ;