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

UttImp, polite and non-polite forms for Malay

Browse Source
This commit is contained in:
Meowyam
2024-01-23 16:46:50 +08:00
parent 87f6e70456
commit 9b675c308e
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/malay/PhraseMay.gf
View File

@@ -9,7 +9,7 @@ concrete PhraseMay of Phrase = CatMay ** open Prelude, ResMay in {
UttNP np = {s = np.s ! Bare} ; UttNP np = {s = np.s ! Bare} ;
UttIP ip = {s = ip.s ! Bare} ; UttIP ip = {s = ip.s ! Bare} ;
UttImpSg pol imp = {s = pol.s ++ imp.s ! Sg ! pol.p } ; UttImpSg pol imp = {s = pol.s ++ imp.s ! Sg ! pol.p } ;
UttImpPol pol imp = {s = pol.s ++ imp.s ! Sg ! pol.p} ; UttImpPol pol imp = {s = "tolong" ++ pol.s ++ imp.s ! Sg ! pol.p} ;
UttImpPl pol imp = {s = pol.s ++ imp.s ! Pl ! pol.p} ; UttImpPl pol imp = {s = pol.s ++ imp.s ! Pl ! pol.p} ;
UttVP vp = {s = linVP vp} ; UttVP vp = {s = linVP vp} ;
UttAP ap = {s = ap.s} ; UttAP ap = {s = ap.s} ;

4
src/malay/ResMay.gf
View File

@@ -230,7 +230,7 @@ oper
-- VV : Type = Verb ** {vvtype : VVForm} ; -- VV : Type = Verb ** {vvtype : VVForm} ;
regVerb : Str -> Prefix -> Verb = \str,p -> regVerb : Str -> Prefix -> Verb = \str,p ->
mkVerb str (prefix p str) ("di" + str) (str + "kan") ; mkVerb str (prefix p str) ("di" + str) (str ++ BIND ++ "kan") ;
mkVerb : (makan, memakan, dimakan, makankan : Str) -> Verb = \rt,act,pass,imp -> { mkVerb : (makan, memakan, dimakan, makankan : Str) -> Verb = \rt,act,pass,imp -> {
s = table { s = table {
@@ -251,7 +251,7 @@ oper
mkVerb4 : Verb -> Preposition -> Str -> Verb4 = \v,pr,str -> v ** { mkVerb4 : Verb -> Preposition -> Str -> Verb4 = \v,pr,str -> v ** {
s = \\_ => v.s ! Active ++ str; s = \\_ => v.s ! Active ++ str;
c2 = pr ; c2 = pr ;
passive = "di" ++ BIND ++ v.s ! Root ++ str -- passive = "di" ++ BIND ++ v.s ! Root ++ str
} ; } ;
copula : Verb = {s = \\_ => "ada"} ; -- TODO copula : Verb = {s = \\_ => "ada"} ; -- TODO

6
src/malay/unittest/verbal_affixes.gftest
View File

@@ -108,14 +108,14 @@ LangMay: sekiranya tidak hujan sekarang , aku akan berjalan
Lang: UttImpSg PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N)))) Lang: UttImpSg PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
LangEng: open the door LangEng: open the door
LangMay: buka pintu LangMay: bukakan pintu
Lang: UttImpSg PNeg (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N)))) Lang: UttImpSg PNeg (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
LangEng: don't open the door LangEng: don't open the door
LangMay: jangan buka pintu LangMay: jangan bukakan pintu
Lang: UttImpPol PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N)))) Lang: UttImpPol PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
LangEng: open the door LangEng: open the door
LangMay: bukakan pintu LangMay: tolong bukakan pintu
---------------------------------------- ----------------------------------------
-- Questions -- Questions