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

CompoundAP in Bulgarian

Browse Source
This commit is contained in:
kr.angelov
2014-12-10 21:23:51 +00:00
parent 489d744d95
commit 28d903f91c
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -42,6 +42,11 @@ lin
g = cn.g 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 = { GerundCN vp = {
s = \\nform => vp.ad.s ++ s = \\nform => vp.ad.s ++
vp.s ! Imperf ! VNoun nform ++ vp.s ! Imperf ! VNoun nform ++

2
lib/src/translator/TranslateBul.gf
View File

@@ -24,7 +24,7 @@ concrete TranslateBul of Translate =
DocumentationBul, DocumentationBul,
ChunkBul, ChunkBul,
ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, CompoundAP,
PresPartAP, PastPartAP, PassVPSlash, PassAgentVPSlash], PresPartAP, PastPartAP, PassVPSlash, PassAgentVPSlash],
DictionaryBul ** DictionaryBul **