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

ParseHinUrd

Browse Source
This commit is contained in:
virk.shafqat
2012-06-18 07:50:26 +00:00
parent fe34a29f4f
commit 0deb6d8587
15 changed files with 165 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -19,6 +19,7 @@ resource CommonHindustani = ParamX ** open Prelude, Predef in {
ad : Str;
embComp : Str ;
prog : Bool ;
cvp : Str ;
} ;
NP : Type = {s : NPCase => Str ; a : Agr} ;
param
@@ -155,7 +156,7 @@ resource CommonHindustani = ParamX ** open Prelude, Predef in {
Adjective = { s: Number => Gender => Case => Degree => Str };
Verb : Type = {s : VerbForm => Str} ;
Verb : Type = {s : VerbForm => Str ; cvp : Str} ;
defaultAgr : Agr = agrP3 Masc Sg ;
agrP3 : Gender -> Number -> Agr = \g,n -> Ag g n Pers3_Distant ;
toAgr : Number -> UPerson -> Gender -> Agr = \n,p,g ->

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

@@ -127,7 +127,8 @@ param
ad = [];
embComp = [];
prog = False ;
comp = \\_ => []
comp = \\_ => [] ;
cvp = v.cvp
} ;
predAux : Aux -> VPH = \verb -> {
s = \\vh =>
@@ -150,7 +151,8 @@ param
ad = [];
embComp = [];
prog = False ;
comp = \\_ => []
comp = \\_ => [] ;
cvp = []
} ;
Aux = {
@@ -179,7 +181,8 @@ param
ad = verb.ad;
embComp = verb.embComp;
prog = True ;
comp = verb.comp
comp = verb.comp ;
cvp = verb.cvp
} ;
@@ -191,7 +194,8 @@ param
ad = vp.ad;
embComp = vp.embComp;
prog = vp.prog ;
comp = \\a => vp.comp ! a ++ obj1 ! a
comp = \\a => vp.comp ! a ++ obj1 ! a ;
cvp = vp.cvp
} ;
insertVV : Str -> VPH -> Str -> VPH = \obj1,vp,emb -> {
s = vp.s ;
@@ -201,7 +205,8 @@ param
ad = vp.ad;
embComp = vp.embComp ++ emb ;
prog = vp.prog ;
comp = \\a => vp.comp ! a ++ obj1
comp = \\a => vp.comp ! a ++ obj1 ;
cvp = vp.cvp
} ;
insertObj2 : (Str) -> VPH -> VPH = \obj1,vp -> {
@@ -212,7 +217,8 @@ param
ad = vp.ad;
embComp = vp.embComp ++ obj1;
prog = vp.prog ;
comp = vp.comp
comp = vp.comp ;
cvp = vp.cvp
} ;
@@ -238,7 +244,8 @@ param
ad = vps.ad;
embComp = vps.embComp;
prog = vps.prog ;
comp = vps.comp
comp = vps.comp ;
cvp = vps.cvp
} ;
insertObjPre : (Agr => Str) -> VPHSlash -> VPH = \obj,vp -> {
@@ -249,7 +256,8 @@ param
ad = vp.ad ;
embComp = vp.embComp;
prog = vp.prog ;
comp = \\a => obj ! a ++ vp.c2.s ++ vp.comp ! a
comp = \\a => obj ! a ++ vp.c2.s ++ vp.comp ! a ;
cvp = vp.cvp
} ;
insertAdV : Str -> VPH -> VPH = \ad,vp -> {
@@ -260,7 +268,8 @@ param
ad = vp.ad ++ ad ;
embComp = vp.embComp;
prog = vp.prog ;
comp = vp.comp
comp = vp.comp ;
cvp = vp.cvp
} ;
-- conjThat : Str = "kh" ;
@@ -273,7 +282,8 @@ param
ad = vp.ad;
embComp = vp.embComp ++ emb;
prog = vp.prog ;
comp = vp.comp
comp = vp.comp ;
cvp = vp.cvp ;
} ;
insertTrans : VPH -> VType -> VPH = \vp,vtype -> {
s = vp.s ;
@@ -283,7 +293,8 @@ param
ad = vp.ad;
embComp = vp.embComp ;
prog = vp.prog ;
comp = vp.comp
comp = vp.comp ;
cvp = vp.cvp
} ;
compoundAdj : Str -> Str -> Adjective = \s1,s2 -> mkCompoundAdj (regAdjective s1) (regAdjective s2) ;