substantive and relative nouns in the Bulgarian library

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

View File

@@ -102,7 +102,7 @@ oper
(v0+"èÿ")
(v0+"èÿ")
(v0+"å")
ANeut).s ! nform;
ANeut) ! nform;
VGerund => case chete of {
rabot + "è" => rabot + "åéêè";
_ => chete + "éêè"
@@ -112,8 +112,8 @@ oper
--2 Nouns
mkNoun : Str -> Str -> Str -> Str -> AGender -> N = \sg,pl,count,voc,g -> {
s = table {
mkNoun : Str -> Str -> Str -> Str -> AGender -> NForm => Str = \sg,pl,count,voc,g ->
table {
NF Sg Indef => sg ;
NF Sg Def => case sg of {
_+"à"=>sg+"òà" ;
@@ -165,9 +165,6 @@ oper
} ;
NFPlCount => count ;
NFVocative => voc
} ;
g = g ;
lock_N = <>
} ;