msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

correct position of adjCompl in PassVPSlash, PassAgentVPSlash and SlashV2V in Malay

Browse Source
This commit is contained in:
Meowyam
2024-01-24 13:44:45 +08:00
parent 23adb5a493
commit 2ec3bdc80e
5 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/malay/ExtendMay.gf
View File

@@ -105,13 +105,17 @@ concrete ExtendMay of Extend = CatMay
-- PassVPSlash : VPS -> VP ;
-- be begged to sleep
PassVPSlash vps = vps ** {
s = \\vf,pol => vps.s ! Passive ! pol ;
s = \\vf,pol => vps.s ! Passive ! pol ++ vps.adjCompl;
};
-- PassAgentVPSlash : VPSlash -> NP -> VP ; -- be begged by her to go
PassAgentVPSlash vps np = {
s = \\vf,pol => vps.s ! Passive ! pol ++ (applyPrep by8agent_Prep np) ;
s = \\vf,pol => vps.s ! Passive ! pol ++ vps.adjCompl ++ (applyPrep by8agent_Prep np);
};
-- PassAgentVPSlash vps np = {
-- s = \\vf,pol => vps.s ! Passive ! pol ++ (applyPrep by8agent_Prep np) ;
-- };
-- MkVPS2 : Temp -> Pol -> VPSlash -> VPS2 ; -- has loved

2
src/malay/LexiconMay.gf
View File

@@ -27,7 +27,7 @@ lin bank_N = mkN "bank" ;
lin beautiful_A = mkA "cantik" ;
-- lin become_VA = mkVA "jadi" ;
lin beer_N = mkN "bir" ;
lin beg_V2V = mkV2 "seru" ;
lin beg_V2V = mkV2 "rayu" ;
-- lin belly_N = mkN "" ;
lin big_A = mkA "besar" ;
lin bike_N = mkN "basikal" ;

5
src/malay/VerbMay.gf
View File

@@ -74,13 +74,12 @@ lin
-- : V2V -> VP -> VPSlash ; -- beg (her) to go
SlashV2V v2 vp = useV {
s = \\vf => v2.s ! vf ++ for_Prep.s ++ vp.s ! Root ! Pos;
s = \\vf => v2.s ! vf;
} ** {
c2 = v2.c2 ;
adjCompl = [];
adjCompl = for_Prep.s ++ vp.s ! Root ! Pos;
} ;
-- : V2S -> S -> VPSlash ; -- answer (to him) that it is good
SlashV2S v2 s = useV v2 ** {
c2 = v2.c2;

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

@@ -74,8 +74,8 @@ LangMay: apa daging yang dimakan
AllEngAbs: (PassAgentVPSlash (SlashV2V beg_V2V (UseV go_V)) (UsePron i_Pron))
AllEng: be begged to go by me
AllMay: diseru untuk pergi olehku
AllMay: dirayu untuk pergi olehku
AllEngAbs: (PassVPSlash (SlashV2V beg_V2V (UseV sleep_V)))
AllEng: be begged to sleep
AllMay: diseru untuk tidur
AllMay: dirayu untuk tidur

3
src/malay/unittest/tenses.gftest
View File

@@ -13,8 +13,9 @@ Lang: UseCl (TTAnt TFut ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (Use
LangEng: the cat will walk
LangMay: kucing akan berjalan
Lang: PredVP (UsePron i_Pron) (ComplSlash (SlashV2V beg_V2V (UseV go_V)) (UsePron she_Pron))
Lang: UttS (UseCl (TTAnt TPast ASimul) PPos (PredVP (UsePron i_Pron) (ComplSlash (SlashV2V beg_V2V (UseV go_V)) (DetNP (DetQuant (PossPron she_Pron) NumPl)))))
LangEng: I begged her to go
LangMay: aku merayu dia untuk pergi
-------------
-- Conditions