GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-05 17:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

unicode4k-changed

Browse Source
This commit is contained in:
virk.shafqat
2012-11-05 16:44:31 +00:00
parent 7c04eede85
commit f7344b8f38
12 changed files with 213 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
lib/src/urdu/ExtraUrd.gf
View File

@@ -4,28 +4,46 @@ concrete ExtraUrd of ExtraUrdAbs = CatUrd **
flags coding = utf8 ;
lin
-- GenNP np = {s = \\_,_,_ => np.s ! NPC Obl ++ "كا" ; a = np.a} ;
-- 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 ++ "كی"
<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} ;
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 = "" };
PassVPSlash vps = vps ;
UncNeg = {s = [] ; p = Neg} ;
-- for VP conjunction
}
PassVPSlash vps = vps ;
{-
--{
-- let
-- be = predAux auxBe
-- in {
-- s = be.s ;
s = vps.s ;
obj = vps.obj ;
subj = vps.c2.c ;
inf = vps.inf;
ad = vps.ad;
embComp = vps.embComp;
prog = vps.prog ;
comp = vps.comp ;
cvp = vps.cvp
-- } ;
--};
-}
}