From 5b8303aa572523f9145e7848cfa3ddd4128f01ea Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Thu, 25 Apr 2019 11:20:37 +0200 Subject: [PATCH] (Pes) Fix appComp's behaviour with prepositions that take ezafe Co-Authored-By: Nasrin M --- src/persian/MorphoPes.gf | 4 ++++ src/persian/ResPes.gf | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/persian/MorphoPes.gf b/src/persian/MorphoPes.gf index 908abf194..78d075395 100644 --- a/src/persian/MorphoPes.gf +++ b/src/persian/MorphoPes.gf @@ -25,6 +25,10 @@ oper -- fatha : Str = "ŮŽ" ; kasre,fatha : Str = [] ; + -- for appComp + -- runtimeKasre : Str -> Str = \s -> glue s kasre ; + runtimeKasre : Str -> Str = \s -> s ; + ---- Nouns param diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf index 8235a477b..cc773a539 100644 --- a/src/persian/ResPes.gf +++ b/src/persian/ResPes.gf @@ -149,7 +149,9 @@ oper -- VP complementation --------------------- appComp : Compl -> (Mod=>Str) -> Str = \c2,obj -> - c2.s ++ obj ! c2.mod ++ c2.ra ; + case c2.mod of { + Ezafe => runtimeKasre c2.s ++ obj ! Bare ++ c2.ra ; + _ => c2.s ++ obj ! c2.mod ++ c2.ra } ; insertComp : (Agr => Str) -> VPH -> VPH = \obj,vp -> vp ** { comp = \\a => vp.comp ! a ++ obj ! a