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

(May) Add prefixV: keeps its prefix in all contexts

Browse Source
This commit is contained in:
Inari Listenmaa
2020-08-24 19:46:39 +02:00
parent 1c98bc22f6
commit d1322ea14d
3 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/malay/LexiconMay.gf
View File

@@ -204,7 +204,7 @@ lin house_N = mkN "rumah" ;
-- 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 (mkV "ajar" Ber) emptyPrep ; lin learn_V2 = mkV2 (prefixV (mkV "ajar" Ber)) 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 "" ;

9
src/malay/ParadigmsMay.gf
View File

@@ -107,7 +107,14 @@ oper
mkV = overload { mkV = overload {
mkV : Str -> V = \v -> lin V (mkVerb v Ber) ; mkV : Str -> V = \v -> lin V (mkVerb v Ber) ;
mkV : Str -> Prefix -> V = \v,p -> lin V (mkVerb v p) 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 = overload {
mkV2 : Str -> V2 = \v2 -> lin V2 (mkVerb2 (mkVerb v2 Meng) dirPrep) ; mkV2 : Str -> V2 = \v2 -> lin V2 (mkVerb2 (mkVerb v2 Meng) dirPrep) ;

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

@@ -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)))))) 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 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 -- Relative clauses