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

simplified questions in bulgarian-1.4

Browse Source
This commit is contained in:
krasimir
2008-06-10 20:11:22 +00:00
parent 59aff851a7
commit acd37bec0c
3 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/resource-1.4/bulgarian/QuestionBul.gf
View File

@@ -41,19 +41,18 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
<Pl,True> => NFPlCount ;
_ => NF idet.n Indef
}
in idet.s ! gennum cn.g idet.n ++
cn.s ! nf ;
in idet.s ! cn.g ++ cn.s ! nf ;
gn = gennum cn.g idet.n
} ;
IdetIP idet = let g = DNeut in {
s = \\c => idet.s ! gennum g idet.n ;
gn = gennum g idet.n
IdetIP idet = {
s = \\c => idet.s ! DNeut ;
gn = gennum DNeut idet.n
} ;
IdetQuant iquant num = {
s = \\gn => iquant.s ! gn ++
num.s ! dgenderSpecies (genGenNum gn) Indef RSubj ;
s = \\g => iquant.s ! gennum g num.n ++
num.s ! dgenderSpecies g Indef RSubj ;
n = num.n ;
nonEmpty = num.nonEmpty
} ;