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

(Hun) Add transitive verbs

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-30 15:26:04 +02:00
parent fcd8732d9b
commit 350960da1c
2 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/hungarian/ResHun.gf
View File

@@ -252,6 +252,11 @@ oper
insertObj : VPSlash -> NounPhrase -> VerbPhrase = \vps,np -> vps ** { insertObj : VPSlash -> NounPhrase -> VerbPhrase = \vps,np -> vps ** {
obj = np.s ! vps.c2 ; obj = np.s ! vps.c2 ;
-- If verb's subject case is Dat and object Nom, verb agrees with obj.
s = \\vf => case <vps.sc,vps.c2> of {
<SCDat,Nom> => vps.s ! agr2vf np.agr ;
_ => vps.s ! vf } ;
} ; } ;
insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s} ; insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s} ;

12
src/hungarian/VerbHun.gf
View File

@@ -34,9 +34,11 @@ lin
-------- --------
-- Slash -- Slash
-}
-- : V2 -> VPSlash -- : V2 -> VPSlash
SlashV2a = ResHun.useVc ; SlashV2a = ResHun.useVc ;
{-
-- : V3 -> NP -> VPSlash ; -- give it (to her) -- : V3 -> NP -> VPSlash ; -- give it (to her)
-- : V3 -> NP -> VPSlash ; -- give (it) to her -- : V3 -> NP -> VPSlash ; -- give (it) to her
Slash2V3, Slash2V3,
@@ -59,10 +61,10 @@ lin
SlashV2A v2a ap = useVc v2a ** { SlashV2A v2a ap = useVc v2a ** {
aComp = \\_ => (CompAP ap).aComp ! Sg3 Masc aComp = \\_ => (CompAP ap).aComp ! Sg3 Masc
} ; } ;
-}
-- : VPSlash -> NP -> VP -- : VPSlash -> NP -> VP
ComplSlash = ResHun.insertComp ; ComplSlash = ResHun.insertObj ;
{-
-- : VV -> VPSlash -> VPSlash ; -- : VV -> VPSlash -> VPSlash ;
-- Just like ComplVV except missing subject! -- Just like ComplVV except missing subject!
SlashVV vv vps = ComplVV vv vps ** { missing = vps.missing ; SlashVV vv vps = ComplVV vv vps ** { missing = vps.missing ;
@@ -80,13 +82,13 @@ lin
-- : Comp -> VP ; -- : Comp -> VP ;
UseComp comp = comp ; UseComp comp = comp ;
{-
-- : VP -> Adv -> VP ; -- sleep here -- : VP -> Adv -> VP ; -- sleep here
AdvVP = insertAdv ; AdvVP = insertAdv ;
-- : VPSlash -> Adv -> VPSlash ; -- use (it) here -- : VPSlash -> Adv -> VPSlash ; -- use (it) here
AdvVPSlash = insertAdvSlash ; AdvVPSlash = insertAdvSlash ;
{-
-- : VP -> Adv -> VP ; -- sleep , even though ... -- : VP -> Adv -> VP ; -- sleep , even though ...
ExtAdvVP vp adv = vp ** { } ; ExtAdvVP vp adv = vp ** { } ;