GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

add QuestIComp

Browse Source
This commit is contained in:
Meowyam
2022-01-05 13:26:10 +08:00
committed by Inari Listenmaa
parent a1a5f84708
commit 0c55010376
3 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/malay/CatMay.gf
View File

@@ -23,7 +23,7 @@ concrete CatMay of Cat = CommonX - [IAdv] ** open ResMay, Prelude in {
-- Constructed in QuestionMay. -- Constructed in QuestionMay.
QCl = ResMay.Clause ; QCl = ResMay.Clause ;
IComp = SS ; -- interrogative complement of copula e.g. "where" IComp = {s: Str} ; -- interrogative complement of copula e.g. "where"
IDet = ResMay.Determiner ; -- interrogative determiner e.g. "how many" IDet = ResMay.Determiner ; -- interrogative determiner e.g. "how many"
IQuant = ResMay.IQuant ; -- interrogative quantifier e.g. "which" IQuant = ResMay.IQuant ; -- interrogative quantifier e.g. "which"
IP = ResMay.IPhrase ; -- interrogative pronoun e.g. "who" IP = ResMay.IPhrase ; -- interrogative pronoun e.g. "who"

13
src/malay/QuestionMay.gf
View File

@@ -59,6 +59,16 @@ lin
} ; } ;
} ; } ;
-- : IP -> IComp ;
CompIP ip = {s = ip.s ! Bare } ; -- who (is it)
-- : IComp -> NP -> QCl ; -- where is John?
QuestIComp icomp np = {
pred = \\vf,pol => np.s ! Bare ;
subj = icomp.s ;
} ;
-- \\vf,pol,posadv => -- \\vf,pol,posadv =>
-- { -- {
-- pred = \\vf,pol => ip.s ++ vp.s ! vf ! pol; -- pred = \\vf,pol => ip.s ++ vp.s ! vf ! pol;
@@ -122,9 +132,6 @@ lin
-- : IAdv -> IComp ; -- : IAdv -> IComp ;
CompIAdv iadv = iadv ; -- where (is it) CompIAdv iadv = iadv ; -- where (is it)
-- : IP -> IComp ;
CompIP ip = {s = ip.s ! Abs} ; -- who (is it)
-- More $IP$, $IDet$, and $IAdv$ are defined in $Structural$. -- More $IP$, $IDet$, and $IAdv$ are defined in $Structural$.

5
src/malay/unittest/questions.gftest
View File

@@ -38,7 +38,6 @@ Lang: UseQCl (TTAnt TPast ASimul) PNeg (QuestIAdv why_IAdv (PredVP (UsePron youS
LangEng: why didn't you go LangEng: why didn't you go
LangMay: mengapa awak tidak pergi 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))) 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 LangEng: which woman did you see
LangMay : awak melihat perempuan yang mana LangMay : awak melihat perempuan yang mana
@@ -51,3 +50,7 @@ LangMay : awak melihat perempuan yang mana
Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestVP whoSg_IP (ComplVV want_VV (UseV go_V))) Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestVP whoSg_IP (ComplVV want_VV (UseV go_V)))
LangEng: who wants to go LangEng: who wants to go
LangMay: siapa mahu pergi LangMay: siapa mahu pergi
Lang: UseQCl (TTAnt TPres ASimul) PPos (QuestIComp (CompIP whoSg_IP) (DetCN (DetQuant DefArt NumSg) (UseN cat_N)))
LangEng: who is the cat
LangMay: siapa kucing