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

better compounding in Bulgarian

Browse Source
This commit is contained in:
krangelov
2020-03-26 11:58:51 +01:00
parent 8d5e8ce503
commit 3e51b78cb5
8 changed files with 150 additions and 142 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bulgarian/MorphoFunsBul.gf
+8 -8
View File
@@ -198,9 +198,9 @@ oper
compoundN = overload {
compoundN : Str -> N -> N
= \s,n -> {s = \\nform => s ++ n.s ! nform ; rel = \\aform => s ++ n.rel ! aform; relPost = True; g=n.g ; anim=n.anim ; lock_N = <>} ;
= \s,n -> {s = \\nform => s ++ n.s ! nform ; rel = \\aform => s ++ n.rel ! aform; relType = AdvMod; g=n.g ; anim=n.anim ; lock_N = <>} ;
compoundN : N -> Str -> N
= \n,s -> {s = \\nform => n.s ! nform ++ s; rel = \\aform => n.rel ! aform ++ s; relPost = True; g=n.g ; anim=n.anim ; lock_N = <>} ;
= \n,s -> {s = \\nform => n.s ! nform ++ s; rel = \\aform => n.rel ! aform ++ s; relType = AdvMod; g=n.g ; anim=n.anim ; lock_N = <>} ;
compoundN : N -> N -> N
= \n1,n2 -> lin N
{s = table {
@@ -209,14 +209,14 @@ oper
NFPlCount => n1.s ! NFPlCount ++ n2.s ! (NF Pl Indef) ;
NFVocative => n1.s ! NFVocative ++ n2.s ! (NF Sg Indef)
} ;
rel = \\aform => n1.rel ! aform; relPost = True;
rel = \\aform => n1.rel ! aform; relType = AdvMod;
g = n1.g
} ;
compoundN : A -> N -> N
= \a,n -> lin N
{s = \\nf => (a.s ! nform2aform nf n.g) ++ (n.s ! (indefNForm nf)) ;
rel = \\aform => a.s ! aform ++ n.rel ! indefAForm aform ;
relPost = False ;
relType = AdjMod ;
g = n.g
} ;
} ;
@@ -224,7 +224,7 @@ oper
dualN = overload {
dualN : N -> A -> N
= \n,a -> lin N { s = n.s;
rel = a.s; relPost = False;
rel = a.s; relType = AdjMod;
g = n.g
} ;
@@ -232,14 +232,14 @@ oper
= \n,p -> lin N { s = n.s;
rel = \\_ => linPrep p ++
n.s ! NF Sg Def ;
relPost = True;
relType = AdvMod;
g = n.g
} ;
dualN : N -> Str -> N
= \n,adv -> lin N { s = n.s;
rel = \\_ => adv ;
relPost = True;
relType = AdvMod;
g = n.g
}
@@ -250,7 +250,7 @@ oper
substantiveN : A -> AGender -> N;
substantiveN a g = lin N {
s = \\nform => a.s ! nform2aform nform g;
rel = a.s; relPost = False;
rel = a.s; relType = AdjMod;
g = g
} ;