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 ; -- PassVPSlash : VPS -> VP ;
-- be begged to sleep -- be begged to sleep
PassVPSlash vps = vps ** { 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 : VPSlash -> NP -> VP ; -- be begged by her to go
PassAgentVPSlash vps np = { 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 -- 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 beautiful_A = mkA "cantik" ;
-- lin become_VA = mkVA "jadi" ; -- lin become_VA = mkVA "jadi" ;
lin beer_N = mkN "bir" ; lin beer_N = mkN "bir" ;
lin beg_V2V = mkV2 "seru" ; lin beg_V2V = mkV2 "rayu" ;
-- lin belly_N = mkN "" ; -- lin belly_N = mkN "" ;
lin big_A = mkA "besar" ; lin big_A = mkA "besar" ;
lin bike_N = mkN "basikal" ; lin bike_N = mkN "basikal" ;

7
src/malay/VerbMay.gf
View File

@@ -74,13 +74,12 @@ lin
-- : V2V -> VP -> VPSlash ; -- beg (her) to go -- : V2V -> VP -> VPSlash ; -- beg (her) to go
SlashV2V v2 vp = useV { SlashV2V v2 vp = useV {
s = \\vf => v2.s ! vf ++ for_Prep.s ++ vp.s ! Root ! Pos; s = \\vf => v2.s ! vf;
} ** { } ** {
c2 = v2.c2; c2 = v2.c2 ;
adjCompl = []; adjCompl = for_Prep.s ++ vp.s ! Root ! Pos;
} ; } ;
-- : V2S -> S -> VPSlash ; -- answer (to him) that it is good -- : V2S -> S -> VPSlash ; -- answer (to him) that it is good
SlashV2S v2 s = useV v2 ** { SlashV2S v2 s = useV v2 ** {
c2 = v2.c2; 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)) AllEngAbs: (PassAgentVPSlash (SlashV2V beg_V2V (UseV go_V)) (UsePron i_Pron))
AllEng: be begged to go by me 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))) AllEngAbs: (PassVPSlash (SlashV2V beg_V2V (UseV sleep_V)))
AllEng: be begged to sleep 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 LangEng: the cat will walk
LangMay: kucing akan berjalan 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 LangEng: I begged her to go
LangMay: aku merayu dia untuk pergi
------------- -------------
-- Conditions -- Conditions