mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
add PassVPSlash to May
This commit is contained in:
@@ -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 ;
|
||||||
};
|
};
|
||||||
|
|||||||
@@ -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 "" ;
|
||||||
|
|||||||
@@ -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
|
||||||
Reference in New Issue
Block a user