bugFixinResHindustani

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

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 ;

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 ;

View File

@@ -30241,6 +30241,13 @@ lin never_AdV = ss "کھبی نہیں" ;
lin among_Prep = mkPrep "میں سے" "میں سے" ;
lin throughout_Prep = mkPrep "مکمل" "مکمل" ;
lin further_AdV = ss "مزید" ;
lin for_instance_Adv = mkAdv "مثال کے طور پر" ;
lin for_instance_Adv = mkAdv "مثال کے طور پر" ;
lin into_Prep = mkPrep "میں" "میں" ;
lin reactor_N = mkN "رایکٹر" ;
lin apart_from_Prep = mkPrep "کے علاوہ" "کے علاوہ" ;
lin iranian_A = mkA "ایرانی" ;
lin role_1_N = mkN "کردار" ;
lin already_AdV = ss "پہلے ہی" ;
lin customerMasc_N = mkN "گاہک" ;
}