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

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} ;
IP = {s : Str ; gn : GenNum} ;
IComp = {s : Str} ;
IDet = {s : DGender => Case => Str; n : Number; countable : Bool; spec : Species} ;
IDet = {s : GenNum => Str; n : Number} ;
-- 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
} ;
-- IDetCN idet num ord cn = {
-- s = \\c => idet.s ++ num.s ++ ord.s ++ cn.s ! idet.n ! c ;
-- gn = idet.gn
-- } ;
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 ;
gn = gennum cn.g idet.n
} ;
CompIAdv a = a ;

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

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