forked from GitHub/gf-rgl
(Pes) Add mkInterj + minor fixes in some prepositions
This commit is contained in:
@@ -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
|
||||||
|
|
||||||
|
|||||||
@@ -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 "بسیار" ;
|
||||||
|
|||||||
Reference in New Issue
Block a user