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 "بسیار" ;