From a1a5f8470872c98dc1e575b3d6497179358042fc Mon Sep 17 00:00:00 2001
From: Meowyam <maryam@chilon.net>
Date: Tue, 4 Jan 2022 13:16:26 +0800
Subject: [PATCH] add whoSg_IP

---
 src/malay/ResMay.gf                 |  7 +++++++
 src/malay/StructuralMay.gf          |  4 +++-
 src/malay/unittest/questions.gftest | 15 ++++++++++-----
 3 files changed, 20 insertions(+), 6 deletions(-)

diff --git a/src/malay/ResMay.gf b/src/malay/ResMay.gf
index 30fed90f..8c82ac27 100644
--- a/src/malay/ResMay.gf
+++ b/src/malay/ResMay.gf
@@ -60,6 +60,13 @@ oper
     empty = []
     } ;
 
+  mkIP : Str -> IPhrase = \str -> {
+    s = \\_ => str ;
+    a = NotPron ;
+    empty = [] ;
+    sp = \\_ => str ;
+  } ;
+
 --------------------------------------------------------------------------------
 -- Det, Quant, Card, Ord
 
diff --git a/src/malay/StructuralMay.gf b/src/malay/StructuralMay.gf
index e9db991f..3d5ad4e9 100644
--- a/src/malay/StructuralMay.gf
+++ b/src/malay/StructuralMay.gf
@@ -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
 
diff --git a/src/malay/unittest/questions.gftest b/src/malay/unittest/questions.gftest
index b5e654df..6b37f404 100644
--- a/src/malay/unittest/questions.gftest
+++ b/src/malay/unittest/questions.gftest
@@ -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
@@ -45,4 +41,13 @@ LangMay: mengapa awak tidak pergi
 -- With ComplSlash: Wh-word is the object
 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
\ No newline at end of file
+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