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

Some more Slash constructors

Browse Source
This commit is contained in:
krasimir
2008-02-22 14:57:37 +00:00
parent 99df330e35
commit fd91674da9
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -17,6 +17,13 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
SlashV2 np v2 = SlashV2 np v2 =
mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ; mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ;
AdvSlash slash adv = {
s = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
c2 = slash.c2
} ;
SlashPrep cl prep = cl ** {c2 = prep.s} ;
EmbedS s = {s = "," ++ "֌" ++ s.s} ; EmbedS s = {s = "," ++ "֌" ++ s.s} ;
EmbedQS qs = {s = qs.s ! QIndir} ; EmbedQS qs = {s = qs.s ! QIndir} ;
@@ -26,4 +33,8 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
UseQCl t a p cl = { UseQCl t a p cl = {
s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q
} ; } ;
UseSlash t a p cl = {
s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! Main ;
c2 = cl.c2
} ;
} }