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

why did you go

Browse Source
This commit is contained in:
Meowyam
2022-01-03 14:00:43 +08:00
committed by Inari Listenmaa
parent 0190fe2943
commit bcd46433d1
6 changed files with 27 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/malay/CatMay.gf
View File

@@ -1,4 +1,4 @@
concrete CatMay of Cat = CommonX ** open ResMay, Prelude in { concrete CatMay of Cat = CommonX - [IAdv] ** open ResMay, Prelude in {
flags optimize=all_subs ; flags optimize=all_subs ;
@@ -27,6 +27,7 @@ concrete CatMay of Cat = CommonX ** open ResMay, Prelude in {
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"
IAdv = ResMay.IAdv ;
--2 Subord clauses and pronouns --2 Subord clauses and pronouns

4
src/malay/GrammarMay.gf
View File

@@ -9,10 +9,10 @@ concrete GrammarMay of Grammar =
RelativeMay, RelativeMay,
ConjunctionMay, ConjunctionMay,
PhraseMay, PhraseMay,
TextX, TextX - [IAdv],
StructuralMay, StructuralMay,
IdiomMay, IdiomMay,
TenseX - [AAnter, TFut, TCond] TenseX - [AAnter, TFut, TCond, IAdv]
** open ParamX in { ** open ParamX in {
flags startcat = Phr ; flags startcat = Phr ;

10
src/malay/QuestionMay.gf
View File

@@ -50,10 +50,16 @@ lin
-- : IAdv -> Cl -> QCl ; -- why does John walk -- : IAdv -> Cl -> QCl ; -- why does John walk
QuestIAdv iadv cls = { QuestIAdv iadv cls = {
pred = \\vf,pol => cls.pred ! Root ! pol ++ iadv.s; subj = case iadv.isPre of {
subj = cls.subj ; True => iadv.s ++ cls.subj ; False => cls.subj
} ;
pred = \\vf,pol => case iadv.isPre of {
True => cls.pred ! Root ! pol ;
False => cls.pred ! Root ! pol ++ iadv.s
} ;
} ; } ;
-- \\vf,pol,posadv =>
-- { -- {
-- pred = \\vf,pol => ip.s ++ vp.s ! vf ! pol; -- pred = \\vf,pol => ip.s ++ vp.s ! vf ! pol;
-- } ; -- } ;

8
src/malay/ResMay.gf
View File

@@ -222,7 +222,13 @@ oper
------------------ ------------------
-- Adv -- Adv
Adverb : Type = SS ; Adverb : Type = {
s : Str;
} ;
IAdv : Type = Adverb ** {
isPre : Bool ;
} ;
------------------ ------------------
-- VP -- VP

5
src/malay/StructuralMay.gf
View File

@@ -20,9 +20,10 @@ lin how_IAdv = ss "" :
lin how8much_IAdv = ss "" ; lin how8much_IAdv = ss "" ;
lin when_IAdv = ss "" ; lin when_IAdv = ss "" ;
-} -}
lin where_IAdv = ss "mana" ; lin where_IAdv = { s = "mana"; isPre = False } ;
lin why_IAdv = {s = "mengapa"; isPre = True } ;
{- {-
lin why_IAdv = ss "" :
lin always_AdV = ss "" ; lin always_AdV = ss "" ;

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

@@ -32,4 +32,8 @@ LangMay: kucing apa mengajar dia
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestIAdv where_IAdv (PredVP (UsePron youSg_Pron) (UseV go_V))) Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestIAdv where_IAdv (PredVP (UsePron youSg_Pron) (UseV go_V)))
LangEng: where did you go LangEng: where did you go
LangMay: awak pergi mana LangMay: awak pergi mana
Lang: UseQCl (TTAnt TPast ASimul) PPos (QuestIAdv why_IAdv (PredVP (UsePron youSg_Pron) (UseV go_V)))
LangEng: why did you go
LangMay: mengapa awak pergi