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

allow post-position adjectives. added as_CAdv

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-10 11:25:06 +02:00
parent e5c523e480
commit 8c2a6f6118
8 changed files with 24 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bulgarian/ExtendBul.gf
+7 -10
View File
@@ -11,17 +11,14 @@ lin
} ;
CompoundN n1 n2 =
let aform = ASg (case n2.g of {
AMasc _ => Masc ;
AFem => Fem ;
ANeut => Neut
}) Indef
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
}
in {
s = \\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
} ;
rel = \\af => n1.rel ! aform ++ n2.s ! NF Sg Indef ; relPost = n1.relPost ;
s = comp ;
rel = \\af => "на" ++ comp ! NF Sg Def ; relPost = True ;
g = n2.g
} ;