CompoundAP in Bulgarian

2014-12-10 21:23:51 +00:00
parent 489d744d95
commit 28d903f91c
2 changed files with 6 additions and 1 deletions
--- a/lib/src/translator/ExtensionsBul.gf
+++ b/lib/src/translator/ExtensionsBul.gf
@@ -42,6 +42,11 @@ lin
    g = cn.g
  } ;

+  CompoundAP n a =
+    let ap : AForm => Str
+           = \\aform => n.rel ! (ASg Neut Indef) ++ a.s ! aform
+    in {s = ap; adv = ap ! (ASg Neut Indef); isPre = True} ;
+
  GerundCN vp = {
    s   = \\nform => vp.ad.s ++
                     vp.s ! Imperf ! VNoun nform ++
--- a/lib/src/translator/TranslateBul.gf
+++ b/lib/src/translator/TranslateBul.gf
@@ -24,7 +24,7 @@ concrete TranslateBul of Translate =
  DocumentationBul,

  ChunkBul,
-  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, 
+  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, CompoundAP,
                 PresPartAP, PastPartAP, PassVPSlash, PassAgentVPSlash],

  DictionaryBul **