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

substantive and relative nouns in the Bulgarian library

Browse Source
This commit is contained in:
kr.angelov
2013-05-23 10:15:10 +00:00
parent 6ca2fe5898
commit af8cec11f9
6 changed files with 1137 additions and 646 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/src/bulgarian/MorphoFunsBul.gf
View File

@@ -170,9 +170,9 @@ oper
compoundN = overload {
compoundN : Str -> N -> N
= \s,n -> {s = \\nform => s ++ n.s ! nform ; g=n.g ; anim=n.anim ; lock_N = <>} ;
= \s,n -> {s = \\nform => s ++ n.s ! nform ; rel = \\aform => s ++ n.rel ! aform; g=n.g ; anim=n.anim ; lock_N = <>} ;
compoundN : N -> Str -> N
= \n,s -> {s = \\nform => s ++ n.s ! nform ; g=n.g ; anim=n.anim ; lock_N = <>} ;
= \n,s -> {s = \\nform => s ++ n.s ! nform ; rel = \\aform => s ++ n.rel ! aform; g=n.g ; anim=n.anim ; lock_N = <>} ;
compoundN : N -> N -> N
= \n1,n2 -> lin N
{s = table {
@@ -181,11 +181,25 @@ oper
NFPlCount => n1.s ! NFPlCount ++ n2.s ! (NF Pl Indef) ;
NFVocative => n1.s ! NFVocative ++ n2.s ! (NF Sg Indef)
} ;
rel = \\aform => n1.rel ! aform;
g = n1.g ;
g = n1.anim
} ;
} ;
relativeN : N -> A -> N;
relativeN n a = lin N {
s = n.s;
rel = a.s;
g = n.g
} ;
substantiveN : A -> AGender -> N;
substantiveN a g = lin N {
s = \\nform => a.s ! nform2aform nform g;
rel = a.s;
g = g
} ;
--2 Prepositions
--