GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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

2
lib/resource-1.4/bulgarian/CatBul.gf
View File

@@ -41,7 +41,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
QCl = {s : ResBul.Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Role => Str; gn : GenNum} ;
IComp = {s1,s2 : Str} ;
IDet = {s : GenNum => Str; n : Number ; nonEmpty : Bool} ; ---- nonEmpty by AR
IDet = {s : DGender => Str; n : Number ; nonEmpty : Bool} ;
IQuant = {s : GenNum => Str} ;
-- Relative

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
} ;

4
lib/resource-1.4/bulgarian/StructuralBul.gf
View File

@@ -35,7 +35,7 @@ concrete StructuralBul of Structural = CatBul **
here7to_Adv = ss ["äî òóê"] ;
here7from_Adv = ss ["îò òóê"] ;
how_IAdv = mkIAdv "êàê" ;
how8many_IDet = {s = \\_ => "êîëêî"; n = Pl ; nonEmpty = False} ; ---- AR nonEmpty
how8many_IDet = {s = \\_ => "êîëêî"; n = Pl; nonEmpty = False} ;
if_Subj = ss "àêî" ;
in8front_Prep = mkPrep "ïðåä" Acc ;
i_Pron = mkPron "àç" "ìåí" "ìè" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Masc) P1 ;
@@ -101,7 +101,7 @@ concrete StructuralBul of Structural = CatBul **
when_IAdv = mkIAdv "êîãà" ;
when_Subj = ss "êîãàòî" ;
where_IAdv = mkIAdv "êúäå" ;
which_IQuant = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]} ; ---- FIXME AR
which_IQuant = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]} ;
whoSg_IP = mkIP "êîé" "êîãî" (GSg Masc) ;
whoPl_IP = mkIP "êîè" "êîè" GPl ;
why_IAdv = mkIAdv "çàùî" ;