mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 19:42:50 -06:00
added DirectComplVS, DirectComplVQ, FocusObjS in Bulgarian
This commit is contained in:
@@ -1,7 +1,7 @@
|
|||||||
--# -path=.:../abstract
|
--# -path=.:../abstract
|
||||||
|
|
||||||
concrete ExtensionsBul of Extensions =
|
concrete ExtensionsBul of Extensions =
|
||||||
CatBul ** open ResBul, (E = ExtraBul), Prelude in {
|
CatBul ** open ResBul, (E = ExtraBul), Prelude, SyntaxBul in {
|
||||||
|
|
||||||
flags
|
flags
|
||||||
coding = utf8 ;
|
coding = utf8 ;
|
||||||
@@ -177,4 +177,13 @@ lin
|
|||||||
UttAdV adv = adv;
|
UttAdV adv = adv;
|
||||||
AdAdV = cc2 ;
|
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}) ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -24,8 +24,11 @@ concrete TranslateBul of Translate =
|
|||||||
DocumentationBul,
|
DocumentationBul,
|
||||||
|
|
||||||
ChunkBul,
|
ChunkBul,
|
||||||
ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, CompoundAP,
|
ExtensionsBul [
|
||||||
PresPartAP, PastPartAP, PassVPSlash, PassAgentVPSlash],
|
CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
|
||||||
|
DirectComplVS, DirectComplVQ, FocusObjS,
|
||||||
|
PastPartAP, PresPartAP
|
||||||
|
],
|
||||||
|
|
||||||
DictionaryBul **
|
DictionaryBul **
|
||||||
open MorphoBul, ResBul, ParadigmsBul, SyntaxBul, CommonScand, (E = ExtraBul), Prelude in {
|
open MorphoBul, ResBul, ParadigmsBul, SyntaxBul, CommonScand, (E = ExtraBul), Prelude in {
|
||||||
|
|||||||
Reference in New Issue
Block a user