GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-04 08:42:50 -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

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