GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 01:52:50 -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

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

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