add whoSg_IP

This commit is contained in:
Meowyam
2022-01-04 13:16:26 +08:00
committed by Inari Listenmaa
parent a310e38904
commit a1a5f84708
3 changed files with 20 additions and 6 deletions

View File

@@ -60,6 +60,13 @@ oper
empty = []
} ;
mkIP : Str -> IPhrase = \str -> {
s = \\_ => str ;
a = NotPron ;
empty = [] ;
sp = \\_ => str ;
} ;
--------------------------------------------------------------------------------
-- Det, Quant, Card, Ord

View File

@@ -132,8 +132,10 @@ lin they_Pron = mkPron "mereka" P3 ;
--lin whatPl_IP = ;
--lin whatSg_IP = :
--lin whoPl_IP = ;
--lin whoSg_IP = ;
lin whoSg_IP = mkIP "siapa";
-- expected: {s : ParamMay.Possession => Str; a : ParamMay.NPAgr;
-- empty : Str; sp : ParamMay.NForm => Str}
-------
-- Subj

View File

@@ -22,10 +22,6 @@ Lang: UseQCl (TTAnt TPres ASimul) PNeg (QuestCl (PredVP (UsePron youSg_Pron) (Co
LangEng: don't you teach the cat
LangMay: adakah awak tidak mengajar kucing
# Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestVP whoSg_IP (ComplVV want_VV (UseV go_V)))
# LangEng: who wants to go
# LangMay: Siapa mahu pergi
Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestVP (IdetCN (IdetQuant which_IQuant NumSg) (UseN cat_N)) (ComplSlash (SlashV2a teach_V2) (UsePron he_Pron)))
LangEng: which cat teaches him
LangMay: kucing yang mana mengajar dia
@@ -46,3 +42,12 @@ LangMay: mengapa awak tidak pergi
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestSlash (IdetCN (IdetQuant which_IQuant NumSg) (UseN woman_N)) (SlashVP (UsePron youSg_Pron) (SlashV2a see_V2)))
LangEng: which woman did you see
LangMay : awak melihat perempuan yang mana
# -- should be to whom did mother give the meat
# Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestSlash whoSg_IP (SlashVP (MassNP (UseN2 mother_N2)) (Slash3V3 give_V3 (DetCN (DetQuant DefArt NumSg) (UseN meat_N)))))
# LangEng: whom did mother give the meat
# LangMay:
Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestVP whoSg_IP (ComplVV want_VV (UseV go_V)))
LangEng: who wants to go
LangMay: siapa mahu pergi