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

the parameter for RS and RCl should be Agr and not GenNum (bulgarian)

Browse Source
This commit is contained in:
krasimir
2008-10-07 18:17:32 +00:00
parent 43dcd61cbf
commit 21028dbe94
5 changed files with 11 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -25,7 +25,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
S = {s : Str} ;
QS = {s : QForm => Str} ;
RS = {s : GenNum => Str} ;
RS = {s : Agr => Str} ;
SC = {s : Str} ;
SSlash = {s : Agr => Str ; c2 : Preposition} ;
@@ -48,7 +48,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
-- Relative
RCl = {s : ResBul.Tense => Anteriority => Polarity => GenNum => Str} ;
RCl = {s : ResBul.Tense => Anteriority => Polarity => Agr => Str} ;
RP = {s : GenNum => Str} ;
-- Verb

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

@@ -10,7 +10,7 @@ concrete IdiomBul of Idiom = CatBul ** open Prelude, ParadigmsBul, ResBul in {
CleftNP np rs =
mkClause (np.s ! RSubj)
{gn=GSg Neut; p=np.a.p}
(insertObj (\\_ => thisRP ! np.a.gn ++ rs.s ! np.a.gn) (predV verbBe)) ;
(insertObj (\\_ => thisRP ! np.a.gn ++ rs.s ! np.a) (predV verbBe)) ;
CleftAdv ad s = {s = \\t,a,p,o => case p of {Pos=>[]; Neg=>"íå"} ++ ad.s ++ s.s } ;

5
lib/resource/bulgarian/NounBul.gf
View File

@@ -168,7 +168,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
g = cn.g
} ;
RelCN cn rs = {
s = \\nf => cn.s ! nf ++ rs.s ! gennum cn.g (numNForm nf) ;
s = \\nf => cn.s ! nf ++ rs.s ! {gn=gennum cn.g (numNForm nf); p=P3} ;
g = cn.g
} ;
AdvCN cn ad = {
@@ -180,9 +180,8 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
ApposCN cn np = {s = \\nf => cn.s ! nf ++ np.s ! RSubj; g=cn.g} ;
---- FIXME AR
RelNP np rs = {
s = \\r => np.s ! r ++ rs.s ! np.a.gn ; ---- gennum cn.g (numNForm nf) ;
s = \\r => np.s ! r ++ rs.s ! np.a ;
a = np.a
} ;
}

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

@@ -6,21 +6,21 @@ concrete RelativeBul of Relative = CatBul ** open ResBul in {
lin
RelCl cl = {
s = \\t,a,p,gn => suchRP ! gn ++ "֌" ++ cl.s ! t ! a ! p ! Main ;
s = \\t,a,p,agr => suchRP ! agr.gn ++ "֌" ++ cl.s ! t ! a ! p ! Main ;
role = RSubj
} ;
RelVP rp vp = {
s = \\t,a,p,gn =>
s = \\t,a,p,agr =>
let
cl = mkClause (rp.s ! gn) {gn=gn; p=P3} vp
cl = mkClause (rp.s ! agr.gn) agr vp
in
cl.s ! t ! a ! p ! Main ;
role = RSubj
} ;
RelSlash rp slash = {
s = \\t,a,p,gn => slash.c2.s ++ rp.s ! gn ++ slash.s ! (agrP3 gn) ! t ! a ! p ! Main ;
s = \\t,a,p,agr => slash.c2.s ++ rp.s ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
role = RObj Acc
} ;

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

@@ -58,7 +58,7 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q
} ;
UseRCl t a p cl = {
s = \\r => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! r ;
s = \\agr => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! agr ;
role = cl.role
} ;
UseSlash t a p cl = {
@@ -68,9 +68,5 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
AdvS a s = {s = a.s ++ "," ++ s.s} ;
---- FIXME: guessed by AR
-- test: she walks , which is good
RelS s r = {s = s.s ++ "," ++ r.s ! gennum DNeut Sg} ;
RelS s r = {s = s.s ++ "," ++ r.s ! {gn=gennum DNeut Sg; p=P3}} ;
}