GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

add AdvS and PredSCVP

Browse Source
This commit is contained in:
krasimir
2008-02-27 22:56:47 +00:00
parent 5ac2f432cf
commit 750ecf1ee3
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,6 +5,8 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
lin
PredVP np vp = mkClause (np.s ! vp.subjRole) np.a vp ;
PredSCVP sc vp = mkClause sc.s {gn=GSg Masc; p=P3} vp ;
ImpVP vp = {
s = \\p,gn =>
let agr = {gn = gn ; p = P2} ;
@@ -46,4 +48,6 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! Main ;
c2 = cl.c2
} ;
AdvS a s = {s = a.s ++ "," ++ s.s} ;
}