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

ParseHinandExtraUrd

Browse Source
This commit is contained in:
virk.shafqat
2012-11-27 14:00:14 +00:00
parent 53e6546a53
commit ebe553f4f8
9 changed files with 345 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
lib/src/hindi/ExtraHin.gf
View File

@@ -24,4 +24,52 @@ flags coding = utf8 ;
-- added for causitives
make_CV = mkVerb "नoतहिनग" ** {c2 = "" };
-- for VP conjunction
}
lincat
VPS = {s : Agr => Str} ;
[VPS] = {s1,s2 : Agr => Str} ;
lin
BaseVPS = twoTable Agr ;
ConsVPS = consrTable Agr comma ;
PredVPS np vpi = {s = np.s ! NPC Dir ++ vpi.s ! np.a} ;
MkVPS t p vp = {
s = \\a =>
let
verb = vp.s ! (VPTense VPPast a) ; -- this needs to be fixed --vp.s ! t.t ! t.a ! p.p ! ODir ! a ;
verbf = verb.fin ++ verb.inf ;
in t.s ++ p.s ++ vp.ad ++ vp.cvp ++ verbf ++ vp.obj.s ++ vp.comp ! a
} ;
ConjVPS = conjunctDistrTable Agr ;
-- ComplVPIVV vv vpi =
-- insertObj (\\a => vpi.s ! vv.typ ! a) (predVV vv) ;
--PassVPSlash vps = vps ;
-- in progress
PassVPSlash vps =
let
aux = predV (mkV "जाना")
in {
-- s = be.s ;
s = table {
VPTense tense agr => {inf = (vps.s ! VPTense VPPast agr).inf ++ (aux.s ! VPTense tense agr).inf ;
fin = (aux.s ! VPTense tense agr).fin};
vform => {inf = (vps.s ! vform).inf ++ (aux.s!vform).inf; fin = (vps.s!vform).inf}
};
obj = vps.obj ;
subj = vps.subj ;
inf = (vps.s ! VPTense VPPast (Ag Masc Sg Pers3_Distant)).inf ++ aux.inf; --this is not correct since, in this case the infinitive form will also inflect for agr i.e. khaya jana, khai jani etc
ad = vps.ad;
embComp = vps.embComp;
prog = vps.prog ;
comp = vps.comp ;
cvp = vps.cvp
} ;
}

94
lib/src/hindi/ParseHin.gf
View File

@@ -1,40 +1,43 @@
--# -path=alltenses:../abstract:../english
--# -path=.:alltenses:../abstract:../english
concrete ParseHin of ParseEngAbs =
TenseX - [AdN,Adv,SC],
TenseX - [AdN,Adv,SC,PPos,PNeg],
-- TextX - [AdN,Adv,SC],
CatHin,
NounHin,
NounHin - [PPartNP],
AdjectiveHin,
NumeralHin,
-- SymbolHin,
ConjunctionHin,
VerbHin - [SlashV2V, PassV2],
VerbHin - [PassV2,ComplVV],
AdverbHin,
PhraseHin,
SentenceHin,
RelativeHin,
QuestionHin,
SymbolHin [PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP],
-- StructuralHin,
IdiomHin [NP, VP, Tense, Cl, ProgrVP, ExistNP],
ExtraHin [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash],
-- DictHin **
DictHinWSJ **
open MorphoHin, ResHin, ParadigmsHin, ParamX, CommonHindustani, Prelude in {
ExtraHin [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,Temp,Pol,Conj,VPS,ListVPS,S,Num, CN,
RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,VPI, VPIForm, VPIInf, VPIPresPart, ListVPI,
VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,ClSlash, RCl, EmptyRelSlash],
DictHinMath **
-- DictHin **
open MorphoHin, ResHin, ParadigmsHin,CommonX, CommonHindustani, Prelude in {
flags
literal=Symb ;
lin
{- myself_NP = regNP "myself" singular ;
yourselfSg_NP = regNP "yourself" singular ;
himself_NP = regNP "himself" singular ;
herself_NP = regNP "herself" singular ;
itself_NP = regNP "itself" singular ;
ourself_NP = regNP "ourself" plural ;
yourselfPl_NP = regNP "yourself" plural ;
themself_NP = regNP "themself" plural ;
-}
myself_NP = {s = \\_ => kwd ; a = Ag Masc Sg Pers1 };
yourselfSg_NP = {s = \\_ => kwd ; a = Ag Masc Sg Pers2_Respect }; --regNP "yourself" singular ;
himself_NP = {s = \\_ => kwd ; a = Ag Masc Sg Pers3_Distant }; --regNP "himself" singular ;
herself_NP = {s = \\_ => kwd ; a = Ag Fem Sg Pers3_Distant }; --regNP "herself" singular ;
itself_NP = {s = \\_ => kwd ; a = Ag Masc Sg Pers3_Near }; --regNP "itself" singular ;
ourself_NP = {s = \\_ => kwd ; a = Ag Masc Pl Pers1 }; --regNP "ourself" plural ;
yourselfPl_NP = {s = \\_ => kwd ; a = Ag Masc Pl Pers2_Respect }; --regNP "yourself" plural ;
themself_NP = {s = \\_ => kwd ; a = Ag Masc Pl Pers3_Distant }; --regNP "themself" plural ;
CompoundCN num noun cn = {
s = \\n,c => num.s ++ noun.s ! num.n ! Dir ++ cn.s ! n ! c ;
s = \\n,c => num.s ++ cn.s ! n ! c ++ noun.s ! num.n ! Dir;
g = cn.g
} ;
@@ -44,16 +47,16 @@ lin
} ;
GerundN v = {
s = \\n,c => v.cvp ++ v.s ! Inf_Obl ; --the main verb of compound verbs
s = \\n,c => v.cvp ++ v.s ! Inf ; -- v.s ! VF Imperf Pers2_Casual n Masc ++ hwa (Ag Masc n Pers2_Casual) ; --the main verb of compound verbs
g = Masc
} ;
GerundAP v = {
s = \\_,_,_,_ => v.cvp ++ v.s ! Inf --the main verb of compound verbs
s = \\n,g,_,_ => v.cvp ++ v.s ! VF Imperf Pers2_Casual n g ++ hwa (Ag g n Pers2_Casual) ;
} ;
PastPartAP v = {
s = \\_,_,_,_ => v.cvp ++ v.s ! Inf -- the main verb of compound versb needs to be attached here
s = \\n,g,_,_ => v.cvp ++ v.s ! VF Imperf Pers2_Casual n g ; -- the main verb of compound versb needs to be attached here
} ;
-- OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ;
@@ -61,10 +64,37 @@ lin
PositAdVAdj a = {s = a.s ! Sg ! Masc ! Dir ! Posit} ;
---------------
--SlashV2V v p vp = insertVV (infV2V v.isAux vp) (predV v) vp.embComp ** {c2 = {s = sE ; c = VTrans}}; -- changed from VTransPost
ComplVV v a p vp = insertTrans (insertVV (infVV v.isAux vp) (predV v) vp.embComp ) VTrans; -- changed from VTransPost
---------------
-- UseQuantPN q pn = {s = \\c => q.s ! Sg ! Masc ! Dir ++ pn.s ! c ; a = agrP3 Sg pn.g} ;
UseQuantPN q pn = {s = \\c => q.s ! Sg ! pn.g ! Dir ++ pn.s ! Dir ; a = agrP3 pn.g Sg} ;
PredVPosv np vp = mkClause np vp ; --{
{- s = \\t,a,b,o =>
let
verb = vp.s ! t ! a ! b ! o ! np.a ;
compl = vp.s2 ! np.a
in
case o of {
ODir => compl ++ "," ++ np.s ! npNom ++ verb.aux ++ vp.ad ++ verb.fin ++ verb.adv ++ verb.inf ;
OQuest => verb.aux ++ compl ++ "," ++ np.s ! npNom ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf
}
} ;
-}
PredVPovs np vp = mkClause np vp ; --{
{- s = \\t,a,b,o =>
let
verb = vp.s ! t ! a ! b ! o ! np.a ;
compl = vp.s2 ! np.a
in
case o of {
ODir => compl ++ verb.aux ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ++ np.s ! npNom ;
OQuest => verb.aux ++ compl ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ++ np.s ! npNom
}
} ;
-}
{-
SlashV2V v p vp = insertObjc (\\a => p.s ++ case p.p of {CPos => ""; _ => "not"} ++
v.c3 ++
@@ -83,20 +113,24 @@ lin
}
} ;
-}
CompVP ant p vp = {s = \\a => ant.s ++ p.s ++
infVP False vp a} ; -- check for vp.isAux
that_RP = {
s = \\_,_ => "kh" ;
a = RNoAg
} ;
no_RP = {
s = \\_,_ => "" ;
a = RNoAg
} ;
--no_RP = {
-- s = \\_,_ => "" ;
-- a = RNoAg
-- } ;
CompS s = {s = \\_ => "kh" ++ s.s} ;
-- CompVP vp = {s = \\a => infVP VVInf vp a} ;
--lin
-- PPos = {s = [] ; p = CPos} ;
-- PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't
lin
PPos = {s = [] ; p = Pos} ;
PNeg = {s = [] ; p = Neg} ; -- contracted: don't
UncNeg = {s = [] ; p = Neg} ;
}

50
lib/src/hindi/src/ExtraHin.gf
View File

@@ -24,4 +24,52 @@ flags coding = utf8 ;
-- added for causitives
make_CV = mkVerb "nothing" ** {c2 = "" };
-- for VP conjunction
}
lincat
VPS = {s : Agr => Str} ;
[VPS] = {s1,s2 : Agr => Str} ;
lin
BaseVPS = twoTable Agr ;
ConsVPS = consrTable Agr comma ;
PredVPS np vpi = {s = np.s ! NPC Dir ++ vpi.s ! np.a} ;
MkVPS t p vp = {
s = \\a =>
let
verb = vp.s ! (VPTense VPPast a) ; -- this needs to be fixed --vp.s ! t.t ! t.a ! p.p ! ODir ! a ;
verbf = verb.fin ++ verb.inf ;
in t.s ++ p.s ++ vp.ad ++ vp.cvp ++ verbf ++ vp.obj.s ++ vp.comp ! a
} ;
ConjVPS = conjunctDistrTable Agr ;
-- ComplVPIVV vv vpi =
-- insertObj (\\a => vpi.s ! vv.typ ! a) (predVV vv) ;
--PassVPSlash vps = vps ;
-- in progress
PassVPSlash vps =
let
aux = predV (mkV "ja:na:")
in {
-- s = be.s ;
s = table {
VPTense tense agr => {inf = (vps.s ! VPTense VPPast agr).inf ++ (aux.s ! VPTense tense agr).inf ;
fin = (aux.s ! VPTense tense agr).fin};
vform => {inf = (vps.s ! vform).inf ++ (aux.s!vform).inf; fin = (vps.s!vform).inf}
};
obj = vps.obj ;
subj = vps.subj ;
inf = (vps.s ! VPTense VPPast (Ag Masc Sg Pers3_Distant)).inf ++ aux.inf; --this is not correct since, in this case the infinitive form will also inflect for agr i.e. khaya jana, khai jani etc
ad = vps.ad;
embComp = vps.embComp;
prog = vps.prog ;
comp = vps.comp ;
cvp = vps.cvp
} ;
}