(Som) Ditransitive verbs

This commit is contained in:
Inari Listenmaa
2019-06-10 13:55:13 +02:00
parent a9bd48ccdd
commit 8c6be2e7b2
4 changed files with 58 additions and 54 deletions
+3 -10
View File
@@ -30,22 +30,15 @@ lin
-- : V2 -> VPSlash
SlashV2a = useVc ;
{-
-- : V3 -> NP -> VPSlash ; -- give it (to her)
Slash2V3 v3 npNori = slashDObj v3 **
{ iobj = { s = npNori.s ! Dat ;
agr = npNori.agr }
} ;
Slash2V3 v3 np = insertComp (useVc v3) np ;
-- : V3 -> NP -> VPSlash ; -- give (it) to her
Slash3V3 v3 npNor = slashIObj v3 **
{ dobj = npNor ** { s = mkDObj npNor }
} ;
Slash3V3 v3 np = insertComp (useVc v3) np ;
{-
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
SlashV2V v2v vp = ;
-- : V2S -> S -> VPSlash ; -- answer (to him) that it is good
SlashV2S v2s s = ;