GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-02 03:58:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

a majour refactoring to support clitic pronouns

Browse Source
This commit is contained in:
Krasimir Angelov
2018-07-04 13:01:06 +02:00
parent 6fe595104c
commit 21961e39ba
16 changed files with 404 additions and 336 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bulgarian/RelativeBul.gf
+11 -9
View File
@@ -7,26 +7,28 @@ concrete RelativeBul of Relative = CatBul ** open ResBul in {
lin
RelCl cl = {
s = \\t,a,p,agr => suchRP ! agr.gn ++ "֌" ++ cl.s ! t ! a ! p ! Main ;
role = RSubj
s = \\t,a,p,agr => suchRP ! agr.gn ++ "֌" ++ cl.s ! t ! a ! p ! Main
} ;
RelVP rp vp = {
s = \\t,a,p,agr =>
let
cl = mkClause (rp.s ! agr.gn) agr Pos vp
let
pp = case agr.p of {
P1 => PronP1 ;
P2 => PronP2 ;
P3 => PronP3
} ;
cl = mkClause (rp.s ! agr.gn) agr.gn pp vp
in
cl.s ! t ! a ! p ! Main ;
role = RSubj
cl.s ! t ! a ! p ! Main
} ;
RelSlash rp slash = {
s = \\t,a,p,agr => slash.c2.s ++ rp.s ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
role = RObj Acc
s = \\t,a,p,agr => slash.c2.s ++ rp.s ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main
} ;
FunRP p np rp = {
s = \\gn => np.s ! RObj Acc ++ p.s ++ (case p.c of {Acc => []; Dat => "íà"; WithPrep => with_Word}) ++ rp.s ! gn ;
s = \\gn => np.s ! RObj Acc ++ linPrep p ++ rp.s ! gn ;
} ;
IdRP = {