mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
(Hun) Fix have_V2
This commit is contained in:
@@ -193,6 +193,12 @@ oper
|
|||||||
-- c3 : Case -- indirect object case
|
-- c3 : Case -- indirect object case
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
datV2 : Verb -> Verb2 = \v -> {
|
||||||
|
s = \\_ => v.s ;
|
||||||
|
sc = SCDat ;
|
||||||
|
c2 = Nom
|
||||||
|
} ;
|
||||||
|
|
||||||
mkVerb2 : Str -> Verb2 = \sg3 -> vtov2 (mkVerb sg3) ;
|
mkVerb2 : Str -> Verb2 = \sg3 -> vtov2 (mkVerb sg3) ;
|
||||||
mkVerb3 : Str -> Verb3 = \sg3 -> v2tov3 (mkVerb2 sg3) ;
|
mkVerb3 : Str -> Verb3 = \sg3 -> v2tov3 (mkVerb2 sg3) ;
|
||||||
|
|
||||||
|
|||||||
@@ -214,7 +214,7 @@ lin yes_Utt = ss "igen" ;
|
|||||||
-------
|
-------
|
||||||
-- Verb
|
-- Verb
|
||||||
|
|
||||||
lin have_V2 = vtov2 copula ** {sc = SCDat ; c2 = Nom} ;
|
lin have_V2 = datV2 copula ;
|
||||||
{-lin can8know_VV = can_VV ; -- can (capacity)
|
{-lin can8know_VV = can_VV ; -- can (capacity)
|
||||||
lin can_VV = mkVV "" ; -- can (possibility)
|
lin can_VV = mkVV "" ; -- can (possibility)
|
||||||
lin must_VV = mkVV "" ;
|
lin must_VV = mkVV "" ;
|
||||||
|
|||||||
Reference in New Issue
Block a user