implementation of few more functions in ParseHin,Urd and new entries in DictUrd2

This commit is contained in:
virk.shafqat
2013-04-09 13:48:04 +00:00
parent 0667311adf
commit 029d90adc8
11 changed files with 78 additions and 12 deletions

View File

@@ -2,6 +2,7 @@ incomplete concrete AdverbHindustani of Adverb = CatHindustani ** open CommonHin
lin
PositAdvAdj a = {s = \\g => a.s ! Sg ! g ! Obl ! Posit} ;
PositAdAAdj a = {s = a.s ! Sg ! Masc ! Obl ! Posit} ;
ComparAdvAdj cadv a np = {
s = \\g => np.s ! NPObj ++ cadv.p ++ cadv.s ++ a.s ! Sg ! g ! Obl ! Posit;
} ;

View File

@@ -22,6 +22,7 @@ interface DiffHindustani = open Prelude in {
indfArt : Str ;
nE : Str ;
hE : Str ;
mein : Str ;
na : Str ;
nahen : Str ;

View File

@@ -11,6 +11,12 @@ incomplete concrete ExtraHindustani of ExtraHindustaniAbs = CatHindustani **
};
a = np.a} ;
EmptyRelSlash slash = {
s = \\t,p,o,_ => slash.s ! t ! p ! o ++ slash.c2.s ;
c = Obl
} ;
each_Det = mkDet "hr kwy" "hr kwy" "hr kwy" "hr kwy" Sg ;
have_V = mkV "rakh'na";

View File

@@ -31,7 +31,7 @@ incomplete concrete NounHindustani of Noun =
AdvNP np adv = {
-- s = \\c => np.s ! c ++ adv.s ! (fromAgr np.a).g ; -- jan ka bh'ay so order is changed
s = \\c => adv.s ! (fromAgr np.a).g ++ np.s ! c ;
a = np.a
a = np.a
} ;
DetQuantOrd quant num ord = {
@@ -149,4 +149,9 @@ incomplete concrete NounHindustani of Noun =
Fem => cn.s ! n ! c ++ ky ++ np.s ! NPC Dir } ;
g = cn.g} ;
CountNP det np = {
s = \\c => np.s ! NPC Obl ++ mein ++ sE ++ det.s ! (giveNumber np.a) ! (giveGender np.a) ! Dir ;
a = agrP3 (giveGender np.a) det.n
} ;
}