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

add passives for eat, drink, like

Browse Source
This commit is contained in:
Meowyam
2023-03-22 18:59:41 +08:00
parent b55abfc8fe
commit 6e16add239
2 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/malay/LexiconMay.gf
View File

@@ -95,8 +95,9 @@ lin day_N = mkN "hari" ;
-- lin doctor_N = mkN "" ;
lin dog_N = mkN "anjing" ;
lin door_N = mkN "pintu" ;
lin drink_V2 = let drink' : V2 = mkV2 "minum" in drink' ** {
s = \\_ => "minum" ;
lin drink_V2 = let drink' : V2 = mkV2 "minum" in drink' ** { s = table {
Passive => "diminum" ;
_ => "minum"} ;
};
-- lin dry_A = mkA "" ;
-- lin dull_A = mkA "" ;
@@ -108,7 +109,9 @@ lin drink_V2 = let drink' : V2 = mkV2 "minum" in drink' ** {
-- lin ear_N = mkN "" ;
-- lin earth_N = mkN "" ;
lin eat_V2 = let eat' : V2 = mkV2 "makan" in eat' ** {
s = \\_ => "makan" ;
s = table {
Passive => "dimakan" ;
_ => "makan"} ;
};
-- lin egg_N = mkN "" ;
-- lin empty_A = mkA "" ;
@@ -214,9 +217,10 @@ lin learn_V2 = mkV2 (prefixV (mkV "ajar" Ber)) emptyPrep ;
-- lin leg_N = mkN "" ;
-- lin lie_V = mkV "" ;
lin like_V2 = let like' : V2 = mkV2 "suka" in like' ** {
s = \\_ => "suka" ;
passive = "disukai" ;
} ;
s = table {
Passive => "disukai" ;
_ => "suka"} ;
};
-- lin listen_V2 = mkV2 "" ;
-- lin live_V = mkV "";
-- lin liver_N = mkN "" ;

2
src/malay/VerbMay.gf
View File

@@ -107,7 +107,7 @@ lin
-- : VPSlash -> NP -> VP
ComplSlash vps np = vps ** {
s = \\vf,pol =>
vps.s ! vf ! pol ++ vps.adjCompl ++ applyPrep vps.c2 np
vps.s ! vf ! pol ++ applyPrep vps.c2 np ++ vps.adjCompl
} ;
-- : VV -> VPSlash -> VPSlash ;