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

fix the digits spelling in bulgarian

Browse Source
This commit is contained in:
krasimir
2008-06-23 12:21:31 +00:00
parent 0122ef5889
commit c140794c98
1 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lib/resource-1.4/bulgarian/ResBul.gf
View File

@@ -355,16 +355,22 @@ resource ResBul = ParamX ** open Prelude in {
}; };
regAdjective : Str -> AForm => Str = regAdjective : Str -> AForm => Str =
\base -> table { \base ->
let base0 : Str
= case base of {
x+"è" => x;
x => x
}
in table {
ASg Masc Indef => base ; ASg Masc Indef => base ;
ASg Masc Def => (base+"èÿ") ; ASg Masc Def => (base0+"èÿ") ;
ASgMascDefNom => (base+"èÿò") ; ASgMascDefNom => (base0+"èÿò") ;
ASg Fem Indef => (base+"a") ; ASg Fem Indef => (base0+"a") ;
ASg Fem Def => (base+"àòà") ; ASg Fem Def => (base0+"àòà") ;
ASg Neut Indef => (base+"î") ; ASg Neut Indef => (base0+"î") ;
ASg Neut Def => (base+"îòî") ; ASg Neut Def => (base0+"îòî") ;
APl Indef => (ia2e base+"è") ; APl Indef => (ia2e base0+"è") ;
APl Def => (ia2e base+"èòå") APl Def => (ia2e base0+"èòå")
}; };
-- For $Sentence$. -- For $Sentence$.