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

fix word order of question

Browse Source
This commit is contained in:
Meowyam
2021-11-15 12:19:31 +08:00
parent 27925cd4ce
commit 7daf14378d
5 changed files with 46 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/malay/QuestionMay.gf
View File

@@ -8,13 +8,24 @@ concrete QuestionMay of Question = CatMay ** open
-- determiners, with or without a noun.
lin
-- : IDet -> CN -> IP ; -- which five songs
IdetCN idet cn = NM.DetCN idet cn ;
IdetCN idet cn = NM.DetCN idet cn ** {sp = idet.sp} ;
-- : IDet -> IP ; -- which five
IdetIP idet = NM.DetNP idet ;
IdetIP idet = NM.DetNP idet ** {sp = idet.sp};
-- : IQuant -> Num -> IDet ; -- which (five)
IdetQuant = NM.DetQuant ;
IdetQuant iquant num = iquant ** {
pr = num.s ++ case iquant.isPre of {True => iquant.s ; False => [] } ;
-- if isPre is True, then: "berapa kucing"
s = case iquant.isPre of { False => iquant.s ; True => [] };
-- if isPre is False, use s: "kucing berapa"
n = num.n
} ;
-- : IP -> ClSlash -> QCl ; -- whom does John love
QuestSlash ip cls = cls ** {
pred = \\vf,pol => cls.pred ! vf ! pol ++ ip.s ! Bare
} ;
{-
lin
@@ -24,9 +35,6 @@ lin
-- : IP -> VP -> QCl ;
QuestVP ip vp =
-- : IP -> ClSlash -> QCl ; -- whom does John love
QuestSlash ip cls =
-- : IAdv -> Cl -> QCl ; -- why does John walk
QuestIAdv iadv cls =