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

added DirectComplVS, DirectComplVQ, FocusObjS in Bulgarian

Browse Source
This commit is contained in:
kr.angelov
2014-12-10 22:44:31 +00:00
parent 28d903f91c
commit e90cc81907
2 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/src/translator/ExtensionsBul.gf
View File

@@ -1,7 +1,7 @@
--# -path=.:../abstract
concrete ExtensionsBul of Extensions =
CatBul ** open ResBul, (E = ExtraBul), Prelude in {
CatBul ** open ResBul, (E = ExtraBul), Prelude, SyntaxBul in {
flags
coding = utf8 ;
@@ -177,4 +177,13 @@ lin
UttAdV adv = adv;
AdAdV = cc2 ;
DirectComplVS t np vs utt =
mkS (lin Adv (optCommaSS utt)) (mkS t positivePol (mkCl np (lin V vs))) ;
DirectComplVQ t np vs q =
mkS (lin Adv (optCommaSS (mkUtt q))) (mkS t positivePol (mkCl np (lin V vs))) ;
FocusObjS np sslash =
mkS (lin Adv (optCommaSS (ss (sslash.c2.s ++ np.s ! RObj sslash.c2.c)))) (lin S {s=sslash.s ! np.a}) ;
}