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

ergative predication started

Browse Source
This commit is contained in:
aarne
2008-05-06 15:52:12 +00:00
parent aefb6fcc23
commit c78791b62e
4 changed files with 24 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/resource-1.4/hindi/ResHin.gf
View File

@@ -204,10 +204,23 @@ resource ResHin = ParamX ** open Prelude in {
comp = \\_ => []
} ;
VPHSlash = VPH ** {c2 : Compl} ;
Clause : Type = {s : VPHTense => Bool => Str} ;
Compl : Type = {s : Str ; c : VType} ;
insertObject : NP -> VPHSlash -> VPH = \np,vp -> {
s = \\b,vh => case <vp.c2.c,vh> of {
<VTrans, VPTense VPPerf _> =>
vp.s ! b ! VPTense VPPerf np.a ; -- ergative: agr to object
_ => vp.s ! b ! vh
} ;
obj = vp.obj ++ np.s ! NPC Obl ++ vp.c2.s ;
subj = vp.c2.c ;
comp = vp.comp
} ;
param
Agr = Ag Gender Number Person ;
NPCase = NPC Case | NPErg ;
@@ -231,7 +244,10 @@ resource ResHin = ParamX ** open Prelude in {
s = \\vt,b =>
let
vps = vp.s ! b ! VPTense vt np.a ;
subj = NPC Dir
subj = case <vp.subj,vt> of {
<VTrans,VPPerf> => NPErg ;
_ => NPC Dir
}
in
np.s ! subj ++ vp.obj ++ vp.comp ! np.a ++ vps.neg ++ vps.inf ++ vps.fin
} ;