buginStructuralHinfixed

This commit is contained in:
virk.shafqat
2012-11-27 18:24:27 +00:00
parent bf1ce93220
commit 8b83710ed2
5 changed files with 9 additions and 9 deletions

View File

@@ -252,8 +252,8 @@ oper
} }
} }
}; };
makeDemonPronForm : Str -> Str -> Str -> DemPronForm ; makeDemonPronForm : Str -> Str -> Str -> Str -> DemPronForm ;
makeDemonPronForm yeh is inn = mkDemonPronForm yeh is "" yeh is "" yeh inn "" yeh inn ""; makeDemonPronForm yeh ye is inn = mkDemonPronForm yeh is "" yeh is "" ye inn "" ye inn "";
-- makePossPronForm myra myry hmara hmary = mkDemonPronForm myra myra myra myry myry myry hmara hmara hmara hmary hmary hmary; -- makePossPronForm myra myry hmara hmary = mkDemonPronForm myra myra myra myry myry myry hmara hmara hmara hmary hmary hmary;
PersPron = {s: PersPronForm => Str}; PersPron = {s: PersPronForm => Str};

View File

@@ -57,7 +57,7 @@ oper
<Pl,Masc> => pmp ; <Pl,Masc> => pmp ;
<Pl,Fem> => pfp } ; lock_Pron = <>}; <Pl,Fem> => pfp } ; lock_Pron = <>};
demoPN : Str -> Str -> Str -> Quant = \s1,s2,s3 -> let n = makeDemonPronForm s1 s2 s3 in {s = n.s ; a = defaultAgr ; lock_Quant = <>}; demoPN : Str -> Str -> Str -> Str -> Quant = \s1,s2,s3,s4 -> let n = makeDemonPronForm s1 s2 s3 s4 in {s = n.s ; a = defaultAgr ; lock_Quant = <>};
mkDet : Str -> Str -> Str -> Str -> Number -> Det = \s1,s2,s3,s4,nb -> let dt = makeDet s1 s2 s3 s4 nb in {s = dt.s ; n = nb ; lock_Det = <>}; mkDet : Str -> Str -> Str -> Str -> Number -> Det = \s1,s2,s3,s4,nb -> let dt = makeDet s1 s2 s3 s4 nb in {s = dt.s ; n = nb ; lock_Det = <>};
mkIP : (x1,x2,x3:Str) -> Number -> Gender -> IP = \s1,s2,s3,n,g -> let p = mkIntPronForm s1 s2 s3 in { s = p.s ; n = n ; g = g ; lock_IP = <>}; mkIP : (x1,x2,x3:Str) -> Number -> Gender -> IP = \s1,s2,s3,n,g -> let p = mkIntPronForm s1 s2 s3 in { s = p.s ; n = n ; g = g ; lock_IP = <>};

View File

@@ -77,14 +77,14 @@ concrete StructuralHin of Structural = CatHin **
somePl_Det = mkDet "कुछ" "कुछ" "कुछ" "कुछ" Pl ; somePl_Det = mkDet "कुछ" "कुछ" "कुछ" "कुछ" Pl ;
something_NP = MassNP (UseN (ParadigmsHin.mkN ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] Masc )); something_NP = MassNP (UseN (ParadigmsHin.mkN ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] ["कोई चीज़"] Masc ));
somewhere_Adv = mkAdv ["कहीं"] ; somewhere_Adv = mkAdv ["कहीं"] ;
that_Quant = demoPN "वह" "उस" "उन" ; that_Quant = demoPN "वह" "वे" "उस" "उन" ;
that_Subj = ss "कि"; that_Subj = ss "कि";
there_Adv = mkAdv "वहाँ" ; there_Adv = mkAdv "वहाँ" ;
there7to_Adv = mkAdv ["वहाँ पर"] ; there7to_Adv = mkAdv ["वहाँ पर"] ;
there7from_Adv = mkAdv ["वहाँ से"] ; there7from_Adv = mkAdv ["वहाँ से"] ;
therefore_PConj = ss "इस लिये" ; therefore_PConj = ss "इस लिये" ;
they_Pron = personalPN "वे" "वे" "वे" "उन का" "उन की" "उन के" "उन की" Pl Masc Pers3_Distant ; ---- they_Pron = personalPN "वे" "वे" "वे" "उन का" "उन की" "उन के" "उन की" Pl Masc Pers3_Distant ; ----
this_Quant = demoPN "ये" "इस" "इन"; this_Quant = demoPN "यह" "ये" "इस" "इन";
through_Prep = mkPrep ["में से"] ["में से"] ; through_Prep = mkPrep ["में से"] ["में से"] ;
too_AdA = ss "बहुत" ; too_AdA = ss "बहुत" ;
to_Prep = mkPrep "को" "को" ; -- ** {lock_Prep = <>}; to_Prep = mkPrep "को" "को" ; -- ** {lock_Prep = <>};

View File

@@ -252,8 +252,8 @@ oper
} }
} }
}; };
makeDemonPronForm : Str -> Str -> Str -> DemPronForm ; makeDemonPronForm : Str -> Str -> Str -> Str -> DemPronForm ;
makeDemonPronForm yeh is inn = mkDemonPronForm yeh is "" yeh is "" yeh inn "" yeh inn ""; makeDemonPronForm yeh ye is inn = mkDemonPronForm yeh is "" yeh is "" ye inn "" ye inn "";
-- makePossPronForm myra myry hmara hmary = mkDemonPronForm myra myra myra myry myry myry hmara hmara hmara hmary hmary hmary; -- makePossPronForm myra myry hmara hmary = mkDemonPronForm myra myra myra myry myry myry hmara hmara hmara hmary hmary hmary;
PersPron = {s: PersPronForm => Str}; PersPron = {s: PersPronForm => Str};

View File

@@ -77,14 +77,14 @@ concrete StructuralHin of Structural = CatHin **
somePl_Det = mkDet "kuc'" "kuc'" "kuc'" "kuc'" Pl ; somePl_Det = mkDet "kuc'" "kuc'" "kuc'" "kuc'" Pl ;
something_NP = MassNP (UseN (ParadigmsHin.mkN ["ko:I: ci:z"] ["ko:I: ci:z"] ["ko:I: ci:z"] ["ko:I: ci:z"] ["ko:I: ci:z"] ["ko:I: ci:z"] Masc )); something_NP = MassNP (UseN (ParadigmsHin.mkN ["ko:I: ci:z"] ["ko:I: ci:z"] ["ko:I: ci:z"] ["ko:I: ci:z"] ["ko:I: ci:z"] ["ko:I: ci:z"] Masc ));
somewhere_Adv = mkAdv ["kahi:m."] ; somewhere_Adv = mkAdv ["kahi:m."] ;
that_Quant = demoPN "vah" "Us" "Un" ; that_Quant = demoPN "vah" "ve:" "Us" "Un" ;
that_Subj = ss "ki"; that_Subj = ss "ki";
there_Adv = mkAdv "vaha:n~" ; there_Adv = mkAdv "vaha:n~" ;
there7to_Adv = mkAdv ["vaha:n~ par"] ; there7to_Adv = mkAdv ["vaha:n~ par"] ;
there7from_Adv = mkAdv ["vaha:n~ se:"] ; there7from_Adv = mkAdv ["vaha:n~ se:"] ;
therefore_PConj = ss "Is liye:" ; therefore_PConj = ss "Is liye:" ;
they_Pron = personalPN "ve:" "ve:" "ve:" "Un ka:" "Un ki:" "Un ke:" "Un ki:" Pl Masc Pers3_Distant ; ---- they_Pron = personalPN "ve:" "ve:" "ve:" "Un ka:" "Un ki:" "Un ke:" "Un ki:" Pl Masc Pers3_Distant ; ----
this_Quant = demoPN "ye:" "Is" "In"; this_Quant = demoPN "yah" "ye:" "Is" "In";
through_Prep = mkPrep ["me:m. se:"] ["me:m. se:"] ; through_Prep = mkPrep ["me:m. se:"] ["me:m. se:"] ;
too_AdA = ss "bahut" ; too_AdA = ss "bahut" ;
to_Prep = mkPrep "ko:" "ko:" ; -- ** {lock_Prep = <>}; to_Prep = mkPrep "ko:" "ko:" ; -- ** {lock_Prep = <>};