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

IP now depends on the Case, i.e. koi/kogo

Browse Source
This commit is contained in:
krasimir
2008-02-22 14:08:01 +00:00
parent ec4edf4524
commit 038bb07c33
5 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

@@ -9,11 +9,11 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
i8fem_Pron = mkNP "ŕç" "ěĺí" "ěîé" "ěî˙" "ěî˙ň" "ěî˙" "ěî˙ňŕ" "ěîĺ" "ěîĺňî" "ěîč" "ěîčňĺ" (GSg Fem) P1 ;
i8neut_Pron = mkNP "ŕç" "ěĺí" "ěîé" "ěî˙" "ěî˙ň" "ěî˙" "ěî˙ňŕ" "ěîĺ" "ěîĺňî" "ěîč" "ěîčňĺ" (GSg Neut) P1 ;
whatSg8fem_IP = mkIP "ęŕęâŕ" (GSg Fem) ;
whatSg8neut_IP = mkIP "ęŕęâî" (GSg Neut) ;
whatSg8fem_IP = mkIP "ęŕęâŕ" "ęŕęâŕ" (GSg Fem) ;
whatSg8neut_IP = mkIP "ęŕęâî" "ęŕęâî" (GSg Neut) ;
whoSg8fem_IP = mkIP "ęî˙" (GSg Fem) ;
whoSg8neut_IP = mkIP "ęîĺ" (GSg Neut) ;
whoSg8fem_IP = mkIP "ęî˙" "ęîăî" (GSg Fem) ;
whoSg8neut_IP = mkIP "ęîĺ" "ęîăî" (GSg Neut) ;
youSg8fem_Pron = mkNP "ňč" "ňĺá" "ňâîé" "ňâî˙" "ňâî˙ň" "ňâî˙" "ňâî˙ňŕ" "ňâîĺ" "ňâîĺňî" "ňâîč" "ňâîčňĺ" (GSg Fem) P2 ;
youSg8neut_Pron = mkNP "ňč" "ňĺá" "ňâîé" "ňâî˙" "ňâî˙ň" "ňâî˙" "ňâî˙ňŕ" "ňâîĺ" "ňâîĺňî" "ňâîč" "ňâîčňĺ" (GSg Neut) P2 ;

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

@@ -22,10 +22,10 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
QuestIComp icomp np =
mkQuestion icomp (mkClause (np.s ! Nom) np.a (predV auxBe)) ;
PrepIP p ip = {s = p.s ++ ip.s} ;
PrepIP p ip = {s = p.s ++ ip.s ! Nom} ;
AdvIP ip adv = {
s = ip.s ++ adv.s ;
s = \\c => ip.s ! c ++ adv.s ;
gn = ip.gn
} ;

9
lib/resource/bulgarian/ResBul.gf
View File

@@ -420,9 +420,12 @@ resource ResBul = ParamX ** open Prelude in {
DNeutDef => addDef dve
} ;
mkIP : Str -> GenNum -> {s : Str ; gn : GenNum} =
\s,gn -> {
s = s ;
mkIP : Str -> Str -> GenNum -> {s : Case => Str ; gn : GenNum} =
\koi,kogo,gn -> {
s = table {
Nom => koi ;
Acc => kogo
} ;
gn = gn
} ;

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

@@ -131,8 +131,8 @@ concrete StructuralBul of Structural = CatBul **
want_VV = P.mkVV (P.regV "want") ;
-}
we_Pron = mkNP "íèå" "íàñ" "íàø" "íàøèÿ" "íàøèÿò" "íàøà" "íàøàòà" "íàøå" "íàøåòî" "íàøè" "íàøèòå" GPl P1 ;
whatPl_IP = mkIP "êàêâè" GPl ;
whatSg_IP = mkIP "êàêúâ" (GSg Masc) ;
whatPl_IP = mkIP "êàêâè" "êàêâè" GPl ;
whatSg_IP = mkIP "êàêúâ" "êàêúâ" (GSg Masc) ;
when_IAdv = ss "êîãà" ;
{-
when_Subj = ss "when" ;
@@ -140,8 +140,8 @@ concrete StructuralBul of Structural = CatBul **
where_IAdv = ss "êúäå" ;
whichPl_IDet = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]; n = Pl} ;
whichSg_IDet = {s = table GenNum ["êîé";"êîÿ";"êîå";"êîè"]; n = Sg} ;
whoSg_IP = mkIP "êîé" (GSg Masc) ;
whoPl_IP = mkIP "êîè" GPl ;
whoSg_IP = mkIP "êîé" "êîãî" (GSg Masc) ;
whoPl_IP = mkIP "êîè" "êîãî" GPl ;
why_IAdv = ss "çàùî" ;
without_Prep = ss "áåç" ;
with_Prep = ss (pre { "ñ" ;