From 25a151c2d299ea371aea9249927daa9246ca38cf Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Tue, 19 Mar 2019 16:56:10 +0100
Subject: [PATCH] (Pes) Add mkInterj + minor fixes in some prepositions

---
 src/persian/ParadigmsPes.gf  | 3 +++
 src/persian/StructuralPes.gf | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/persian/ParadigmsPes.gf b/src/persian/ParadigmsPes.gf
index 1531bd07..ee7a8df0 100644
--- a/src/persian/ParadigmsPes.gf
+++ b/src/persian/ParadigmsPes.gf
@@ -214,6 +214,9 @@ oper
       = \vvf,s -> lin Subj {s=s ; compl=vvf}
   } ;
 
+  mkInterj : Str -> Interj 
+    = \s -> lin Interj {s=s} ;
+    
 --.
 --2 Definitions of paradigms
 
diff --git a/src/persian/StructuralPes.gf b/src/persian/StructuralPes.gf
index e8f110ed..ee3cd127 100644
--- a/src/persian/StructuralPes.gf
+++ b/src/persian/StructuralPes.gf
@@ -57,9 +57,9 @@ concrete StructuralPes of Structural = CatPes **
   only_Predet = ss "فقط" ;
   or_Conj = sd2 [] "یا" ** {n = Sg} ;
   otherwise_PConj = ss ["درغیراین صورت"] ;
-  part_Prep = mkPrep "از" ; -- TODO: the object following it should be in Ezafa form
+  part_Prep = mkPrep "از" Ezafe ;
   please_Voc = ss "لطفاً" ;
-  possess_Prep = mkPrep "" ; -- will be handeled in Ezafeh
+  possess_Prep = mkPrep [] Ezafe ;
   quite_Adv = ss "کاملاً" ;
   she_Pron = R.agr2pron ! Ag Sg P3 ;
   so_AdA = ss "بسیار" ;