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

added paradigm mkN001a

Browse Source
This commit is contained in:
Krasimir Angelov
2018-08-10 21:48:03 +02:00
parent ac51b0b042
commit b32f7aa148
1 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/bulgarian/ParadigmsBul.gf
View File

@@ -10,7 +10,9 @@ resource ParadigmsBul = MorphoFunsBul ** open
flags coding=cp1251 ; flags coding=cp1251 ;
oper oper
mkN001 : Str -> N ; -- numbers refer to Krustev, Bulg. Morph. in 187 Tables
mkN001 : Str -> N ;
mkN001 base = {s = table { mkN001 base = {s = table {
NF Sg Indef => base ; NF Sg Indef => base ;
NF Sg Def => base+"ŕ" ; NF Sg Def => base+"ŕ" ;
@@ -24,6 +26,20 @@ oper
g = AMasc NonHuman ; g = AMasc NonHuman ;
lock_N = <> lock_N = <>
} ; } ;
mkN001a : Str -> N ;
mkN001a base = {s = table {
NF Sg Indef => base ;
NF Sg Def => base+"ŕ" ;
NF Pl Indef => base+"îâĺ" ;
NF Pl Def => base+"îâĺňĺ" ;
NFSgDefNom => base+"úň" ;
NFPlCount => base+"îâĺ" ;
NFVocative => base+"ĺ"
} ;
rel = \\_ => base ; relPost = False ;
g = AMasc Human ;
lock_N = <>
} ;
mkN002 : Str -> N ; mkN002 : Str -> N ;
mkN002 base = let v0 = tk 2 base; mkN002 base = let v0 = tk 2 base;
v1 = last (base); v1 = last (base);
@@ -1595,8 +1611,8 @@ oper
(v0+"˙ő") (v0+"˙ő")
(v0+"ŕë") (v0+"ŕë")
(v0+"˙ë") (v0+"˙ë")
(v0+"˙ë")
(v0+"ŕí") (v0+"ŕí")
(v0+"˙ů")
(v0+"č") (v0+"č")
(v0+"˙íĺ") ; (v0+"˙íĺ") ;
mkV152 : Str -> VTable ; mkV152 : Str -> VTable ;