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

fixes

Browse Source
This commit is contained in:
Krasimir Angelov
2018-06-27 20:50:46 +02:00
parent b7ccdb5ad7
commit ddffa1928f
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/bulgarian/NounBul.gf
View File

@@ -17,10 +17,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
<NNum Pl,Def> => NF Pl Def ; <NNum Pl,Def> => NF Pl Def ;
<NNum Pl,Indef> => NF Pl Indef; <NNum Pl,Indef> => NF Pl Indef;
<NCountable,Def> => NF Pl det.spec ; <NCountable,Def> => NF Pl det.spec ;
<NCountable,Indef> => case cn.g of { <NCountable,Indef> => NFPlCount
AMasc Human => NF Pl Indef;
_ => NFPlCount
}
} ; } ;
s = det.s ! True ! cn.g ! role ++ cn.s ! nf s = det.s ! True ! cn.g ! role ++ cn.s ! nf
in case role of { in case role of {
@@ -59,7 +56,10 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
PredetNP pred np = { PredetNP pred np = {
s = \\c => case c of { s = \\c => case c of {
RObj Dat => "íà"; RObj Dat => "íà";
RObj WithPrep => with_Word; RObj WithPrep => case np.p of {
Pos => with_Word ;
Neg => "áåç"
} ;
_ => "" _ => ""
} ++ } ++
pred.s ! np.a.gn ++ np.s ! RObj Acc ; pred.s ! np.a.gn ++ np.s ! RObj Acc ;