(Pes) Add mkInterj + minor fixes in some prepositions

This commit is contained in:
Inari Listenmaa
2019-03-19 16:56:10 +01:00
parent 77af5c99e6
commit 25a151c2d2
2 changed files with 5 additions and 2 deletions

View File

@@ -214,6 +214,9 @@ oper
= \vvf,s -> lin Subj {s=s ; compl=vvf} = \vvf,s -> lin Subj {s=s ; compl=vvf}
} ; } ;
mkInterj : Str -> Interj
= \s -> lin Interj {s=s} ;
--. --.
--2 Definitions of paradigms --2 Definitions of paradigms

View File

@@ -57,9 +57,9 @@ concrete StructuralPes of Structural = CatPes **
only_Predet = ss "فقط" ; only_Predet = ss "فقط" ;
or_Conj = sd2 [] "یا" ** {n = Sg} ; or_Conj = sd2 [] "یا" ** {n = Sg} ;
otherwise_PConj = ss ["درغیراین صورت"] ; otherwise_PConj = ss ["درغیراین صورت"] ;
part_Prep = mkPrep "از" ; -- TODO: the object following it should be in Ezafa form part_Prep = mkPrep "از" Ezafe ;
please_Voc = ss "لطفاً" ; please_Voc = ss "لطفاً" ;
possess_Prep = mkPrep "" ; -- will be handeled in Ezafeh possess_Prep = mkPrep [] Ezafe ;
quite_Adv = ss "کاملاً" ; quite_Adv = ss "کاملاً" ;
she_Pron = R.agr2pron ! Ag Sg P3 ; she_Pron = R.agr2pron ! Ag Sg P3 ;
so_AdA = ss "بسیار" ; so_AdA = ss "بسیار" ;