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

initial Slavic grammar, shared between Bulgarian and Russian

Browse Source
This commit is contained in:
krasimir
2008-11-26 21:21:23 +00:00
parent 20c55c4f5a
commit 32cbb995f1
22 changed files with 342 additions and 207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
next-lib/src/bulgarian/QuestionBul.gf
View File

@@ -41,20 +41,20 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
IdetCN idet cn = {
s = \\_,qform => let nf = case <idet.n, idet.nonEmpty> of {
<Pl,True> => NFPlCount ;
_ => NF idet.n Indef
_ => NF idet.n Indef
}
in idet.s ! cn.g ! qform ++ cn.s ! nf ;
in idet.s ! cn.g ! cn.anim ! qform ++ cn.s ! nf ;
gn = gennum cn.g idet.n
} ;
IdetIP idet = {
s = \\_ => idet.s ! DNeut ;
gn = gennum DNeut idet.n
s = \\_ => idet.s ! Neut ! Inanimate ;
gn = gennum Neut idet.n
} ;
IdetQuant iquant num = {
s = \\g,qform => iquant.s ! gennum g num.n ! qform ++
num.s ! dgenderSpecies g Indef RSubj ;
s = \\g,anim,qform => iquant.s ! gennum g num.n ! qform ++
num.s ! dgenderSpecies g anim Indef RSubj ;
n = num.n ;
nonEmpty = num.nonEmpty
} ;