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

Add relative clauses

Browse Source
This commit is contained in:
krasimir
2008-02-27 13:29:05 +00:00
parent 0c8a84512e
commit 3fccfd4bef
6 changed files with 63 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -33,6 +33,10 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
UseQCl t a p cl = {
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 ;
role = cl.role
} ;
UseSlash t a p cl = {
s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! Main ;
c2 = cl.c2