GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-26 19:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

completely redesigned VP. Added ReflVP in bulgarian-1.4

Browse Source
This commit is contained in:
krasimir
2008-06-15 08:35:52 +00:00
parent dbfe4c94e4
commit 20209ce716
6 changed files with 188 additions and 182 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lib/resource-1.4/bulgarian/SentenceBul.gf
View File

@@ -3,21 +3,32 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
flags optimize=all_subs ;
lin
PredVP np vp = mkClause (np.s ! vp.subjRole) np.a vp ;
PredVP np vp = mkClause (np.s ! (case vp.vtype of {
VNormal => RSubj ;
VMedial _ => RSubj ;
VPhrasal c => RObj c})) 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} ;
verb = vp.imp ! p ! numGenNum gn ! Perf ;
compl = vp.compl ! agr
in
verb ++ compl
let agr = {gn = gn ; p = P2} ;
verb = vp.s ! Perf ! VImperative (numGenNum gn) ;
compl = vp.compl ! agr ;
clitic = case vp.vtype of {
VNormal => [] ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! agr.gn ! agr.p
} ;
in case p of {Pos => vp.ad.s ++ verb ++ clitic ;
Neg => "íå" ++ vp.ad.s ++ clitic ++ verb} ++ compl ;
} ;
SlashVP np slash = {
s = \\agr => (mkClSlash (np.s ! RSubj) np.a agr slash).s ;
s = \\agr => (mkClause (np.s ! RSubj) np.a {s = slash.s ;
ad = slash.ad ;
compl = \\_ => slash.compl1 ! np.a ++ slash.compl2 ! agr ;
vtype = slash.vtype}).s ;
c2 = slash.c2
} ;
@@ -36,7 +47,7 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
EmbedS s = {s = "," ++ "֌" ++ s.s} ;
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = vp.ad ! False ++ "äà" ++ vp.s ! Pres ! Simul ! Pos ! {gn=GSg Masc; p=P1} ! False ! Perf} ;
EmbedVP vp = {s = daComplex vp ! Perf ! {gn=GSg Masc; p=P1}} ;
UseCl t a p cl = {
s = t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! Main