negative imperative

This commit is contained in:
Meowyam
2022-03-30 23:32:08 +08:00
parent 1d033679f2
commit ffd1f28b42
2 changed files with 8 additions and 1 deletions

View File

@@ -28,7 +28,10 @@ lin
--2 Imperatives
-- : VP -> Imp ;
ImpVP vp = {
s = \\num,pol => vp.s ! Root ! pol
s = \\num,pol => case pol of {
Neg => "jangan" ++ vp.s ! Root ! Pos;
Pos => vp.s ! Root ! Pos
}
} ;
{-

View File

@@ -109,5 +109,9 @@ LangMay: sekiranya tidak hujan sekarang , aku akan berjalan
Lang: UttImpSg PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
LangEng: open the door
LangMay: buka pintu
Lang: UttImpSg PNeg (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
LangEng: don't open the door
LangMay: jangan buka pintu
----------------------------------------
-- Questions