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

make some fixes to Malay prefixes

Browse Source
This commit is contained in:
Meowyam
2024-01-23 15:10:23 +08:00
parent 9c111ba0bc
commit 87f6e70456
3 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/malay/LexiconMay.gf
View File

@@ -211,7 +211,7 @@ lin king_N = mkN "raja" ;
-- lin language_N = mkN "" ; -- lin language_N = mkN "" ;
-- lin laugh_V = mkV "" ; -- lin laugh_V = mkV "" ;
-- lin leaf_N = mkN "" ; -- lin leaf_N = mkN "" ;
lin learn_V2 = mkV2 (prefixV (mkV "ajar" Ber)) emptyPrep ; lin learn_V2 = mkV2 (prefixV (mkV "belajar" NoPrefix)) emptyPrep ;
-- lin leather_N = mkN "" ; -- lin leather_N = mkN "" ;
-- lin leave_V2 = mkV2 "" ; -- lin leave_V2 = mkV2 "" ;
-- lin leg_N = mkN "" ; -- lin leg_N = mkN "" ;
@@ -293,7 +293,7 @@ lin queen_N = mkN "ratu" ;
-- lin radio_N = mkN "" ; -- lin radio_N = mkN "" ;
lin rain_N = mkN "hujan" ; lin rain_N = mkN "hujan" ;
lin rain_V0 = mkV "hujan" ; lin rain_V0 = mkV "hujan" ;
lin read_V2 = mkV2 "baca" ; lin read_V2 = mkV2 (prefixV (mkV "baca" Meng)) emptyPrep ;
-- lin ready_A = mkA "" ; -- lin ready_A = mkA "" ;
-- lin reason_N = mkN "" ; -- lin reason_N = mkN "" ;
-- lin red_A = mkA "" ; -- lin red_A = mkA "" ;
@@ -378,7 +378,7 @@ lin stop_V = mkV "henti" ;
-- lin table_N = mkN "" ; -- lin table_N = mkN "" ;
-- lin tail_N = mkN "" ; -- lin tail_N = mkN "" ;
lin talk_V3 = mkV3 (mkV "cakap" Ber) (mkPrep "tentang") (mkPrep "dengan") ; lin talk_V3 = mkV3 (mkV "cakap" Ber) (mkPrep "tentang") (mkPrep "dengan") ;
lin teach_V2 = mkV2 "ajar" ; lin teach_V2 = mkV2 (prefixV (mkV "ajar" Meng)) emptyPrep;
-- lin teacher_N = mkN "" ; -- lin teacher_N = mkN "" ;
-- lin television_N = mkN "" ; -- lin television_N = mkN "" ;
-- lin thick_A = mkA "" ; -- lin thick_A = mkA "" ;
@@ -408,7 +408,7 @@ lin ugly_A = mkA "jelek" ;
-- W - Y -- W - Y
-- lin wait_V2 = mkV2 "" ; -- lin wait_V2 = mkV2 "" ;
lin walk_V = mkV "jalan" ; lin walk_V = (prefixV (mkV "jalan" Ber)) ;
-- lin war_N = mkN "" ; -- lin war_N = mkN "" ;
-- lin warm_A = mkA "" ; -- lin warm_A = mkA "" ;
-- lin wash_V2 = mkV2 "" ; -- lin wash_V2 = mkV2 "" ;

8
src/malay/ParamMay.gf
View File

@@ -27,9 +27,12 @@ oper
prefix : Prefix -> Str -> Str = \p -> case p of { prefix : Prefix -> Str -> Str = \p -> case p of {
Meng => prefixMeng ; Meng => prefixMeng ;
Ber => prefixBer Ber => prefixBer ;
NoPrefix => prefixNone
} ; } ;
prefixNone : Str -> Str = \belajar -> belajar ;
prefixMeng : Str -> Str = \makan -> case makan of { prefixMeng : Str -> Str = \makan -> case makan of {
? + ? + ? => "menge" + makan ; ? + ? + ? => "menge" + makan ;
@@ -63,8 +66,6 @@ oper
} ; } ;
prefixBer : Str -> Str = \jalan -> case jalan of { prefixBer : Str -> Str = \jalan -> case jalan of {
-- Exception
"ajar" => "belajar" ;
-- Drop the r -- Drop the r
(#c + "er" + _ -- be+kerja (#c + "er" + _ -- be+kerja
@@ -149,6 +150,7 @@ param
Prefix = Prefix =
Meng Meng
| Ber | Ber
| NoPrefix
; -- TODO more? ; -- TODO more?
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------

3
src/malay/VerbMay.gf
View File

@@ -56,7 +56,8 @@ lin
-- : V3 -> NP -> VPSlash ; -- give (it) to her -- : V3 -> NP -> VPSlash ; -- give (it) to her
Slash3V3 v3 iobj = useV { Slash3V3 v3 iobj = useV {
s = \\vf => v3.s ! vf ++ applyPrep v3.c2 iobj ++ applyPrep v3.c3 emptyNP ; s = \\vf => v3.s ! vf ++ applyPrep v3.c2 iobj ++
applyPrep v3.c3 emptyNP ;
--iobj.s ! Bare -- applyPrep v3.c3 iobj -- TODO check if this works for all -- probably not --iobj.s ! Bare -- applyPrep v3.c3 iobj -- TODO check if this works for all -- probably not
} ** { } ** {
c2 = v3.c2 ;-- Now the VPSlash is missing only the direct object c2 = v3.c2 ;-- Now the VPSlash is missing only the direct object