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 do you teach the cat in Malay

Browse Source
This commit is contained in:
Meowyam
2021-11-17 11:58:42 +08:00
committed by Inari Listenmaa
parent ba694f03e8
commit c4f7875d6a
2 changed files with 25 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/malay/QuestionMay.gf
View File

@@ -29,10 +29,32 @@ lin
pred = \\vf,pol => cls.pred ! vf ! pol ++ ip.s ! Bare
} ;
-- : Subj -> Pred -> QCl ;
-- QuestCl cl = cl ** {
-- pred = \\vf,pol => cl.pred ! vf ! pol
-- };
QuestCl cl = cl ** {
subj = "adakah" ++ cl.subj;
} ;
{- ----
s = \\t,a,p =>
let
cl = oldClause slash ;
cls : Direct -> Str =
\d -> cl.s ! d ! t ! a ! p ! Indic ;
---- \d -> cl.s ! ip.a ! d ! t ! a ! p ! Indic ;
who = slash.c2.s ++ ip.s ! slash.c2.c
in table {
QDir => who ++ cls DInv ;
QIndir => who ++ cls DDir
}
-}
{-
lin
-- : Cl -> QCl ;
QuestCl =
-- : IP -> VP -> QCl ;
QuestVP ip vp =

2
src/malay/SentenceMay.gf
View File

@@ -56,7 +56,7 @@ lin
-- : Temp -> Pol -> QCl -> QS ;
UseQCl t p cl = {
s = cl.subj ++ t.s ++ p.s ++ cl.pred ! Active ! p.p ;
s = t.s ++ p.s ++ cl.subj ++ cl.pred ! Active ! p.p ;
} ;
-- : Temp -> Pol -> RCl -> RS ;