mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 01:18:57 -06:00
remove shall_VV
This commit is contained in:
@@ -34,9 +34,12 @@ lincat
|
|||||||
[S] = {s1,s2 : Str} ;
|
[S] = {s1,s2 : Str} ;
|
||||||
|
|
||||||
lin
|
lin
|
||||||
BaseAdv, BaseAdV, BaseIAdv, BaseS = twoSS ;
|
BaseAdv, BaseAdV, BaseIAdv = twoSS ;
|
||||||
ConsAdv, ConsAdV, ConsIAdv, ConsS = consrSS comma ;
|
ConsAdv, ConsAdV, ConsIAdv = consrSS comma ;
|
||||||
ConjAdv, ConjAdV, ConjIAdv, ConjS = conjunctDistrSS ;
|
ConjAdv, ConjAdV, ConjIAdv = conjunctDistrSS ;
|
||||||
|
BaseS = twoSS ;
|
||||||
|
ConsS = consrSS comma ;
|
||||||
|
ConjS = conjunctDistrSS ;
|
||||||
|
|
||||||
|
|
||||||
{-
|
{-
|
||||||
|
|||||||
@@ -178,8 +178,6 @@ lin have_V2 = let have' : V2 = mkV2 "ada" in have' ** {
|
|||||||
-- lin can8know_VV = can_VV ; -- can (capacity)
|
-- lin can8know_VV = can_VV ; -- can (capacity)
|
||||||
lin can_VV = mkVV "boleh" ; -- can (possibility)
|
lin can_VV = mkVV "boleh" ; -- can (possibility)
|
||||||
lin must_VV = mkVV "perlu" ;
|
lin must_VV = mkVV "perlu" ;
|
||||||
lin may_VV = mkVV "mungkin" ;
|
|
||||||
lin shall_VV = mkVV "hendaklah" ;
|
|
||||||
lin want_VV = mkVV "mahu" ;
|
lin want_VV = mkVV "mahu" ;
|
||||||
|
|
||||||
------
|
------
|
||||||
|
|||||||
@@ -62,7 +62,7 @@ lin
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
-- insertObjc : (Agr => Str) -> SlashVP -> SlashVP = \obj,vp ->
|
-- insertObjc : (Agr => Str) -> SlashVP -> SlashVP = \obj,vp ->
|
||||||
insertObj obj vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle ; missingAdv = vp.missingAdv } ;
|
-- insertObj obj vp ** {c2 = vp.c2 ; gapInMiddle = vp.gapInMiddle ; missingAdv = vp.missingAdv } ;
|
||||||
|
|
||||||
|
|
||||||
SlashV2A v2 adj = useV {
|
SlashV2A v2 adj = useV {
|
||||||
@@ -73,7 +73,7 @@ lin
|
|||||||
} ;
|
} ;
|
||||||
|
|
||||||
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
|
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
|
||||||
SlashV2V v2v vp = ;
|
-- SlashV2V v2v vp = ;
|
||||||
|
|
||||||
|
|
||||||
{-
|
{-
|
||||||
|
|||||||
Reference in New Issue
Block a user