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

better compounding in Bulgarian

Browse Source
This commit is contained in:
krangelov
2020-03-26 11:58:51 +01:00
parent 8d5e8ce503
commit 3e51b78cb5
8 changed files with 150 additions and 142 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bulgarian/ExtendBul.gf
+5 -4
View File
@@ -12,13 +12,14 @@ lin
CompoundN n1 n2 =
let comp : NForm => Str
= \\nf => case n1.relPost of {
True => n2.s ! nf ++ n1.rel ! nform2aform nf n2.g ;
False => n1.rel ! nform2aform nf n2.g ++ n2.s ! indefNForm nf
= \\nf => case n1.relType of {
Pref => n1.rel ! nform2aform nf n2.g ++ n2.s ! nf ;
AdjMod => n1.rel ! nform2aform nf n2.g ++ n2.s ! indefNForm nf ;
AdvMod => n2.s ! nf ++ n1.rel ! nform2aform nf n2.g
}
in {
s = comp ;
rel = \\af => "на" ++ comp ! NF Sg Def ; relPost = True ;
rel = \\af => "на" ++ comp ! NF Sg Def ; relType = AdvMod ;
g = n2.g
} ;