GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

added IDet and IDetCN

Browse Source
This commit is contained in:
krasimir
2008-02-22 10:45:30 +00:00
parent 67348bf76c
commit b1dca38cb5
3 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -35,7 +35,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
QCl = {s : ResBul.Tense => Anteriority => Polarity => QForm => Str} ; QCl = {s : ResBul.Tense => Anteriority => Polarity => QForm => Str} ;
IP = {s : Str ; gn : GenNum} ; IP = {s : Str ; gn : GenNum} ;
IComp = {s : Str} ; IComp = {s : Str} ;
IDet = {s : DGender => Case => Str; n : Number; countable : Bool; spec : Species} ; IDet = {s : GenNum => Str; n : Number} ;
-- Verb -- Verb

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

@@ -29,10 +29,13 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
gn = ip.gn gn = ip.gn
} ; } ;
-- IDetCN idet num ord cn = { IDetCN idet num ord cn = {
-- s = \\c => idet.s ++ num.s ++ ord.s ++ cn.s ! idet.n ! c ; s = idet.s ! gennum cn.g idet.n ++
-- gn = idet.gn num.s ! dgenderSpecies cn.g Indef Nom ++
-- } ; ord.s ! aform (gennum cn.g num.n) Indef Nom ++
cn.s ! NF idet.n Indef ;
gn = gennum cn.g idet.n
} ;
CompIAdv a = a ; CompIAdv a = a ;

8
lib/resource/bulgarian/StructuralBul.gf
View File

@@ -55,7 +55,7 @@ concrete StructuralBul of Structural = CatBul **
here7to_Adv = ss ["äî òóê"] ; here7to_Adv = ss ["äî òóê"] ;
here7from_Adv = ss ["îò òóê"] ; here7from_Adv = ss ["îò òóê"] ;
how_IAdv = ss "êàê" ; how_IAdv = ss "êàê" ;
how8many_IDet = mkDeterminerPl ["êîëêî ìíîãî"] ; how8many_IDet = {s = \\_ => "êîëêî"; n = Pl} ;
if_Subj = ss "àêî" ; if_Subj = ss "àêî" ;
in8front_Prep = ss "ïðåä" ; in8front_Prep = ss "ïðåä" ;
i_Pron = mkNP "àç" "ìåí" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Masc) P1 ; i_Pron = mkNP "àç" "ìåí" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Masc) P1 ;
@@ -138,10 +138,8 @@ concrete StructuralBul of Structural = CatBul **
when_Subj = ss "when" ; when_Subj = ss "when" ;
-} -}
where_IAdv = ss "êúäå" ; where_IAdv = ss "êúäå" ;
{- whichPl_IDet = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]; n = Pl} ;
whichPl_IDet = mkDeterminer Pl ["which"] ; whichSg_IDet = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]; n = Sg} ;
whichSg_IDet = mkDeterminer Sg ["which"] ;
-}
whoSg_IP = mkIP "êîé" (GSg Masc) ; whoSg_IP = mkIP "êîé" (GSg Masc) ;
whoPl_IP = mkIP "êîè" GPl ; whoPl_IP = mkIP "êîè" GPl ;
why_IAdv = ss "çàùî" ; why_IAdv = ss "çàùî" ;