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

(Hun) Change word order in relVP

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-19 18:23:54 +02:00
parent 8ddc50897a
commit 5661a7ba01
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/hungarian/ResHun.gf
View File

@@ -278,6 +278,10 @@ oper
"vannak" "vannak"
"lenni" ; "lenni" ;
megvan : Verb = copula ** {
s = \\vf => "meg" + copula.s ! vf ;
} ;
------------------ ------------------
-- VP -- VP
@@ -330,9 +334,14 @@ oper
Sentence : Type = {s : Str} ; Sentence : Type = {s : Str} ;
predVP : NounPhrase -> VerbPhrase -> ClSlash = \np,vp -> vp ** { predVP : NounPhrase -> VerbPhrase -> ClSlash = \np,vp -> vp ** {
s = let rel : RClause = relVP' (np2rp np) vp ; s = \\t,a,p => let subjcase : Case = case vp.sc of {
in \\t,a,p => rel.s ! t ! a ! p ! np.agr.p2 ! sc2case vp.sc SCNom => Nom ;
++ np.empty ; -- standard trick for prodrop+metavariable problem SCDat => Dat }
in np.s ! subjcase
++ vp.s ! agr2vf np.agr
++ vp.obj
++ vp.adv
++ np.empty -- standard trick for prodrop+metavariable problem
} ; } ;
-- Relative -- Relative
@@ -351,9 +360,9 @@ oper
SCNom => Nom ; SCNom => Nom ;
SCDat => Dat } SCDat => Dat }
in rp.s ! n ! subjcase in rp.s ! n ! subjcase
++ vp.s ! VFin rp.agr.p1 n -- variable by number
++ vp.obj ++ vp.obj
++ vp.adv ++ vp.adv
++ vp.s ! VFin rp.agr.p1 n -- variable by number
} ; } ;
relSlash : RP -> ClSlash -> RClause = \rp,cls -> { relSlash : RP -> ClSlash -> RClause = \rp,cls -> {