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

completed QuestionBul module

Browse Source
This commit is contained in:
krasimir
2008-02-22 14:10:50 +00:00
parent 038bb07c33
commit dd8331ce2b
3 changed files with 22 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lib/resource/bulgarian/QuestionBul.gf
View File

@@ -8,14 +8,17 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
s = \\t,a,p =>
let cls = cl.s ! t ! a ! p
in table {
QDir => cls ! OQuest ;
QIndir => "àêî" ++ cls ! ODir
QDir => cls ! Quest ;
QIndir => "àêî" ++ cls ! Main
} ---- "whether" in ExtEng
} ;
QuestVP ip vp =
let cl = mkClause ip.s {gn = ip.gn ; p = P3} vp
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir} ;
let cl = mkClause (ip.s ! Nom) {gn = ip.gn ; p = P3} vp
in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! Main} ;
QuestSlash ip slash =
mkQuestion (ss (slash.c2 ++ ip.s ! Acc)) slash ;
QuestIAdv iadv cl = mkQuestion iadv cl ;
@@ -30,10 +33,14 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
} ;
IDetCN idet num ord cn = {
s = idet.s ! gennum cn.g idet.n ++
num.s ! dgenderSpecies cn.g Indef Nom ++
ord.s ! aform (gennum cn.g num.n) Indef Nom ++
cn.s ! NF idet.n Indef ;
s = \\c => let nf = case <idet.n, num.nonEmpty> of {
<Pl,True> => NFPlCount ;
_ => NF idet.n Indef
}
in idet.s ! gennum cn.g idet.n ++
num.s ! dgenderSpecies cn.g Indef Nom ++
ord.s ! aform (gennum cn.g num.n) Indef Nom ++
cn.s ! nf ;
gn = gennum cn.g idet.n
} ;