From d1322ea14dea401db20428efada662545ea0e2af Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Mon, 24 Aug 2020 19:46:39 +0200 Subject: [PATCH] (May) Add prefixV: keeps its prefix in all contexts --- src/malay/LexiconMay.gf | 2 +- src/malay/ParadigmsMay.gf | 9 ++++++++- src/malay/unittest/verbal_affixes.gftest | 10 +++++++++- 3 files changed, 18 insertions(+), 3 deletions(-) diff --git a/src/malay/LexiconMay.gf b/src/malay/LexiconMay.gf index bab097cc..0b463dfa 100644 --- a/src/malay/LexiconMay.gf +++ b/src/malay/LexiconMay.gf @@ -204,7 +204,7 @@ lin house_N = mkN "rumah" ; -- lin language_N = mkN "" ; -- lin laugh_V = mkV "" ; -- lin leaf_N = mkN "" ; -lin learn_V2 = mkV2 (mkV "ajar" Ber) emptyPrep ; +lin learn_V2 = mkV2 (prefixV (mkV "ajar" Ber)) emptyPrep ; -- lin leather_N = mkN "" ; -- lin leave_V2 = mkV2 "" ; -- lin leg_N = mkN "" ; diff --git a/src/malay/ParadigmsMay.gf b/src/malay/ParadigmsMay.gf index 372e04e6..1ba43c9c 100644 --- a/src/malay/ParadigmsMay.gf +++ b/src/malay/ParadigmsMay.gf @@ -107,7 +107,14 @@ oper mkV = overload { mkV : Str -> V = \v -> lin V (mkVerb v Ber) ; mkV : Str -> Prefix -> V = \v,p -> lin V (mkVerb v p) - } ; + } ; + + prefixV : V -> V = \v -> v ** { + s = table { + Root => v.s ! Active ; + x => v.s ! x -- TODO: how does it work with passives? + } + } ; mkV2 = overload { mkV2 : Str -> V2 = \v2 -> lin V2 (mkVerb2 (mkVerb v2 Meng) dirPrep) ; diff --git a/src/malay/unittest/verbal_affixes.gftest b/src/malay/unittest/verbal_affixes.gftest index 63b0ca5f..75359c63 100644 --- a/src/malay/unittest/verbal_affixes.gftest +++ b/src/malay/unittest/verbal_affixes.gftest @@ -44,8 +44,16 @@ LangMay: saya mahu ajar sains di sekolah Lang: UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (AdvVP (ComplVV want_VV (ComplSlash (SlashV2a learn_V2) (MassNP (UseN science_N)))) (PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN school_N)))))) LangEng: I want to learn science in the school -LangMay: saya mahu ajar sains di sekolah +LangMay: saya mahu belajar sains di sekolah +-- How about interaction with passive? These sentences are very artificial, but imagine they made sense: +Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant this_Quant NumSg) (UseN book_N)) (AdvVP (PassV2 learn_V2) (PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN school_N))))))) NoVoc +LangEng: this book is learned in the school +LangMay: buku ini dibelajar di sekolah + +Lang: PhrUtt NoPConj (UttS (UseCl (TTAnt TPres ASimul) PPos (PredVP (DetCN (DetQuant this_Quant NumSg) (UseN book_N)) (AdvVP (PassV2 teach_V2) (PrepNP in_Prep (DetCN (DetQuant DefArt NumSg) (UseN school_N))))))) NoVoc +LangEng: this book is taught in the school +LangMay: buku ini diajar di sekolah ---------------------------------------- -- Relative clauses