add PassVPSlash to May

This commit is contained in:
Meowyam
2023-03-21 16:35:34 +08:00
parent 69356d8c9b
commit 3446c192ba
3 changed files with 8 additions and 7 deletions

View File

@@ -101,7 +101,7 @@ concrete ExtendMay of Extend = CatMay
-- PassVPSlash : VPS -> VP ; -- PassVPSlash : VPS -> VP ;
-- be forced to sleep -- be begged to sleep
PassVPSlash vps = vps ** { PassVPSlash vps = vps ** {
s = \\vf,pol => vps.s ! Passive ! pol ; s = \\vf,pol => vps.s ! Passive ! pol ;
}; };

View File

@@ -336,7 +336,7 @@ lin sing_V = mkV "nyanyi" ;
-- lin sit_V = mkV "" ; -- lin sit_V = mkV "" ;
-- lin skin_N = mkN "" ; -- lin skin_N = mkN "" ;
-- lin sky_N = mkN "" ; -- lin sky_N = mkN "" ;
-- lin sleep_V = mkV "" ; lin sleep_V = mkV "tidur" ;
lin small_A = mkA "kecil" ; lin small_A = mkA "kecil" ;
-- lin smell_V = mkV "" ; -- lin smell_V = mkV "" ;
-- lin smoke_N = mkN "" ; -- lin smoke_N = mkN "" ;

View File

@@ -72,9 +72,10 @@ Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestVP whatSg_IP (UseComp (CompNP (DetC
LangEng: what was the meat that was eaten LangEng: what was the meat that was eaten
LangMay: apa daging yang dimakan LangMay: apa daging yang dimakan
AllEngAbs: (PastPartAP (VPSlashPrep (ComplSlash (SlashV2V beg_V2V (UseV go_V)) (UsePron i_Pron)) by8agent_Prep)) AllEngAbs: (PassAgentVPSlash (SlashV2V beg_V2V (UseV go_V)) (UsePron i_Pron))
AllEng: begged by me to go AllEng: be begged to go by me
AllMay: diseru aku untuk pergi AllMay: diseru untuk pergi olehku
AllEngAbs: l (PassAgentVPSlash (SlashV2V beg_V2V (UseV go_V)) (UsePron i_Pron)) AllEngAbs: (PassVPSlash (SlashV2V beg_V2V (UseV sleep_V)))
AllEng: be begged to go by me AllEng: be begged to sleep
AllMay: diseru untuk tidur