msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

remove shall_VV

Browse Source
This commit is contained in:
Meowyam
2023-02-22 13:35:09 +08:00
parent 23afeee87c
commit f53078dbad
3 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/malay/ConjunctionMay.gf
View File

@@ -34,9 +34,12 @@ lincat
[S] = {s1,s2 : Str} ;
lin
BaseAdv, BaseAdV, BaseIAdv, BaseS = twoSS ;
ConsAdv, ConsAdV, ConsIAdv, ConsS = consrSS comma ;
ConjAdv, ConjAdV, ConjIAdv, ConjS = conjunctDistrSS ;
BaseAdv, BaseAdV, BaseIAdv = twoSS ;
ConsAdv, ConsAdV, ConsIAdv = consrSS comma ;
ConjAdv, ConjAdV, ConjIAdv = conjunctDistrSS ;
BaseS = twoSS ;
ConsS = consrSS comma ;
ConjS = conjunctDistrSS ;
{-

2
src/malay/StructuralMay.gf
View File

@@ -178,8 +178,6 @@ lin have_V2 = let have' : V2 = mkV2 "ada" in have' ** {
-- lin can8know_VV = can_VV ; -- can (capacity)
lin can_VV = mkVV "boleh" ; -- can (possibility)
lin must_VV = mkVV "perlu" ;
lin may_VV = mkVV "mungkin" ;
lin shall_VV = mkVV "hendaklah" ;
lin want_VV = mkVV "mahu" ;
------

4
src/malay/VerbMay.gf
View File

@@ -62,7 +62,7 @@ lin
} ;
-- 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 {
@@ -73,7 +73,7 @@ lin
} ;
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
SlashV2V v2v vp = ;
-- SlashV2V v2v vp = ;
{-