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

2
src/malay/VerbMay.gf
View File

@@ -107,7 +107,7 @@ lin
-- : VPSlash -> NP -> VP -- : VPSlash -> NP -> VP
ComplSlash vps np = vps ** { ComplSlash vps np = vps ** {
s = \\vf,pol => 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 ; -- : VV -> VPSlash -> VPSlash ;