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

spelling variants in mkN055 and mkN056

Browse Source
This commit is contained in:
krangelov
2020-12-18 08:16:41 +01:00
parent f6b44aa57e
commit 14338be99a
1 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/bulgarian/ParadigmsBul.gf
View File

@@ -978,10 +978,15 @@ oper
mkN055 : Str -> N ; mkN055 : Str -> N ;
mkN055 base = let v0 = tk 1 base; mkN055 base = let v0 = tk 1 base;
g = ANeut g = ANeut
in {s = mkNoun (v0+"о") in {s = variants {
(v0+"а") mkNoun (v0+"о")
(v0+"а") (v0+"а")
(v0+"о") (v0+"а")
(v0+"о") ;
mkNoun (v0+"о")
(v0+"ета")
(v0+"ета")
(v0+"о")}
g ; g ;
rel = \\_ => base ; relType = Pref ; rel = \\_ => base ; relType = Pref ;
g = g ; g = g ;
@@ -990,10 +995,15 @@ oper
mkN056 : Str -> N ; mkN056 : Str -> N ;
mkN056 base = let v0 = tk 1 base; mkN056 base = let v0 = tk 1 base;
g = ANeut g = ANeut
in {s = mkNoun (v0+"о") in {s = variants {
(v0+"а") mkNoun (v0+"о")
(v0+"а") (v0+"а")
(v0+"о") (v0+"а")
(v0+"о") ;
mkNoun (v0+"о")
(v0+"е")
(v0+"а")
(v0+"о")}
g ; g ;
rel = \\_ => base ; relType = Pref ; rel = \\_ => base ; relType = Pref ;
g = g ; g = g ;