msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

bugFixinResHindustani

Browse Source
This commit is contained in:
virk.shafqat
2013-04-17 10:33:49 +00:00
parent c1390db368
commit 731854b0a1
3 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/hindustani/ResHindustani.gf
View File

@@ -238,8 +238,8 @@ param
Neg => nahen };
in
case vt of {
VPSubj => quest ++ np.s ! subj ++ vp.obj.s ++ vp.ad ++ vp.comp ! np.a ++ vp.cvp ++ na ++ vps.inf ++ vps.fin ++ vp.embComp ;
_ => quest ++ np.s ! subj ++ vp.obj.s ++ vp.ad ++ vp.comp ! np.a ++ vp.cvp ++ nahim ++ vps.inf ++ vps.fin ++ vp.embComp};
VPSubj => quest ++ np.s ! subj ++ vp.ad ++ vp.comp ! np.a ++ vp.obj.s ++ vp.cvp ++ na ++ vps.inf ++ vps.fin ++ vp.embComp
_ => quest ++ np.s ! subj ++ vp.ad ++ vp.comp ! np.a ++ vp.obj.s ++ vp.cvp ++ nahim ++ vps.inf ++ vps.fin ++ vp.embComp};
} ;
@@ -281,8 +281,10 @@ param
Neg => nahen };
in
case t of {
VPSubj => quest ++ subj ++ vp.obj.s ++ vp.ad ++ vp.comp ! agr ++ vp.cvp ++ na ++ vps.inf ++ vps.fin ++ vp.embComp;
_ => quest ++ subj ++ vp.obj.s ++ vp.ad ++ vp.comp ! agr ++ vp.cvp ++ nahim ++ vps.inf ++ vps.fin ++ vp.embComp};
-- VPSubj => quest ++ subj ++ vp.obj.s ++ vp.ad ++ vp.comp ! agr ++ vp.cvp ++ na ++ vps.inf ++ vps.fin ++ vp.embComp;
-- _ => quest ++ subj ++ vp.obj.s ++ vp.ad ++ vp.comp ! agr ++ vp.cvp ++ nahim ++ vps.inf ++ vps.fin ++ vp.embComp};
VPSubj => quest ++ subj ++ vp.ad ++ vp.comp ! agr ++ vp.obj.s ++ vp.cvp ++ na ++ vps.inf ++ vps.fin ++ vp.embComp;
_ => quest ++ subj ++ vp.ad ++ vp.comp ! agr ++ vp.obj.s ++ vp.cvp ++ nahim ++ vps.inf ++ vps.fin ++ vp.embComp};
} ;
np2pronCase : (Case => Str) -> NPCase -> Agr -> Str ;

3
lib/src/hindustani/VerbHindustani.gf
View File

@@ -28,7 +28,8 @@ incomplete concrete VerbHindustani of Verb = CatHindustani ** open CommonHindust
{c2 = vp.c2} ;
UseComp comp = insertObj comp.s (predAux auxBe) ;
AdvVP vp adv = insertObj (\\a => adv.s ! giveGender a) vp ;
-- AdvVP vp adv = insertObj (\\a => adv.s ! giveGender a) vp ;
AdvVP vp adv = insertAdV (adv.s ! Masc) vp ;
AdVVP adv vp = insertAdV adv.s vp ;