msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added ExtendBul.EmptyRelSlash

Browse Source
This commit is contained in:
Krasimir Angelov
2018-05-30 14:38:49 +02:00
parent 3815e753ae
commit 4bf1c6832e
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/bulgarian/ExtendBul.gf
View File

@@ -2,6 +2,11 @@
concrete ExtendBul of Extend = CatBul ** open Prelude, ResBul in { concrete ExtendBul of Extend = CatBul ** open Prelude, ResBul in {
lin lin
EmptyRelSlash slash = {
s = \\t,a,p,agr => slash.c2.s ++ whichRP ! agr.gn ++ slash.s ! agr ! t ! a ! p ! Main ;
role = RObj Acc
} ;
CompoundN n1 n2 = CompoundN n1 n2 =
let aform = ASg (case n2.g of { let aform = ASg (case n2.g of {
AMasc _ => Masc ; AMasc _ => Masc ;