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

fix for with_Pron

Browse Source
This commit is contained in:
Krasimir Angelov
2018-06-23 22:45:51 +02:00
parent e90aa08934
commit 66f1ff9b05
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/bulgarian/NounBul.gf
View File

@@ -38,8 +38,9 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
DetNP det = DetNP det =
{ s = \\role => let s = det.s ! False ! ANeut ! role { s = \\role => let s = det.s ! False ! ANeut ! role
in case role of { in case role of {
RObj Dat => "íà" ++ s; RObj Dat => "íà" ++ s;
_ => s RObj WithPrep => with_Word ++ s;
_ => s
} ; } ;
a = {gn = gennum ANeut (numnnum det.nn); p = P3} ; a = {gn = gennum ANeut (numnnum det.nn); p = P3} ;
p = Pos p = Pos
@@ -47,7 +48,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
UsePN pn = { s = table { UsePN pn = { s = table {
RObj Dat => "íà" ++ pn.s; RObj Dat => "íà" ++ pn.s;
RObj WithPron => with_Word ++ pn.s; RObj WithPrep => with_Word ++ pn.s;
_ => pn.s _ => pn.s
} ; } ;
a = {gn = GSg pn.g; p = P3} ; a = {gn = GSg pn.g; p = P3} ;