GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-12 20:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

store the accusative as well as the dative clitics in Bulgarian

Browse Source
This commit is contained in:
kr.angelov
2014-12-05 12:46:17 +00:00
parent dbdcff1fac
commit 4810860afc
5 changed files with 42 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/src/bulgarian/ResBul.gf
View File

@@ -641,14 +641,23 @@ resource ResBul = ParamX ** open Prelude, Predef in {
gn = gn
} ;
mkPron : (az,men,mi,moj,moia,moiat,moia_,moiata,moe,moeto,moi,moite : Str) -> GenNum -> Person -> {s : Role => Str; gen : AForm => Str; a : Agr} =
\az,men,mi,moj,moia,moiat,moia_,moiata,moe,moeto,moi,moite,gn,p -> {
mkPron : (az,men,me,mi,moj,moia,moiat,moia_,moiata,moe,moeto,moi,moite : Str) ->
GenNum -> Person -> {s : Role => Str;
clit : Case => Str;
gen : AForm => Str;
a : Agr
} =
\az,men,me,mi,moj,moia,moiat,moia_,moiata,moe,moeto,moi,moite,gn,p -> {
s = table {
RSubj => az ;
RObj Acc => men ;
RObj Dat => mi ;
RObj Dat => "íà" ++ men ;
RVoc => az
} ;
clit = table {
Acc => me;
Dat => mi
} ;
gen = table {
ASg Masc Indef => moj ;
ASg Masc Def => moia ;