forked from GitHub/gf-core
29 lines
882 B
Plaintext
29 lines
882 B
Plaintext
concrete ExtraUrd of ExtraUrdAbs = CatUrd **
|
||
open ResUrd, Coordination, Prelude, MorphoUrd, ParadigmsUrd,CommonHindustani in {
|
||
|
||
flags coding = utf8 ;
|
||
|
||
lin
|
||
-- GenNP np = {s = \\_,_,_ => np.s ! NPC Obl ++ "كا" ; a = np.a} ;
|
||
GenNP np = {s = \\n,g,c =>
|
||
case <n,g,c> of {
|
||
<Sg,Masc,Obl> => np.s ! NPC Obl ++ "كے" ;
|
||
<Sg,Masc,_> => np.s ! NPC Obl ++ "كا" ;
|
||
<Pl,Masc,_> => np.s ! NPC Obl ++ "كے" ;
|
||
<_,Fem,_> => np.s ! NPC Obl ++ "كی"
|
||
};
|
||
|
||
a = np.a} ;
|
||
|
||
each_Det = mkDet "ہر كوی" "ہر كوی" "ہر كوی" "ہر كوی" Sg ;
|
||
have_V = mkV "راكھنا";
|
||
IAdvAdv adv = {s = "كتنی" ++ adv.s ! Masc} ;
|
||
ICompAP ap = {s = "كتنے" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ;
|
||
cost_V = mkV "قیمت" ;
|
||
|
||
-- added for causitives
|
||
make_CV = mkVerb "نoتہiنگ" ** {c2 = "" };
|
||
|
||
-- for VP conjunction
|
||
}
|