GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-10 19:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix some paradigms in Bulgarian

Browse Source
This commit is contained in:
krasimir
2010-05-21 12:52:03 +00:00
parent 76ee1a9f67
commit 8f80d27102
3 changed files with 292 additions and 275 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
lib/src/bulgarian/ParadigmsBul.gf
View File

@@ -10,12 +10,18 @@ resource ParadigmsBul = MorphoFunsBul ** open
oper
mkN001 : Str -> N ;
mkN001 base = let v0 = base
in mkNoun (v0)
(v0+"îâĺ")
(v0+"ŕ")
(v0)
(AMasc NonHuman) ;
mkN001 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+"ĺ"
} ;
g = AMasc NonHuman ;
lock_N = <>
} ;
mkN002 : Str -> N ;
mkN002 base = let v0 = tk 2 base;
v1 = last (base)
@@ -62,12 +68,18 @@ oper
(v0)
(AMasc NonHuman) ;
mkN007 : Str -> N ;
mkN007 base = let v0 = base
in mkNoun (v0)
(v0+"č")
(v0+"ŕ")
(v0+"ĺ")
(AMasc NonHuman) ;
mkN007 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+"ĺ"
} ;
g = AMasc NonHuman ;
lock_N = <>
} ;
mkN007b : Str -> N ;
mkN007b base = let v0 = base
in mkNoun (v0)
@@ -76,12 +88,18 @@ oper
(v0+"î")
(AMasc NonHuman) ;
mkN007a : Str -> N ;
mkN007a base = let v0 = base
in mkNoun (v0)
(v0+"č")
(v0+"ŕ")
(v0+"ĺ")
(AMasc Human) ;
mkN007a 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+"ĺ"
} ;
g = AMasc Human ;
lock_N = <>
} ;
mkN008 : Str -> N ;
mkN008 base = let v0 = tk 2 base;
v1 = last (base)
@@ -1491,4 +1509,4 @@ oper
adjAdv : A -> Str -> A =
\a,adv -> {s = a.s; adv = adv; lock_A=<>} ;
}
}