GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -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 =
\base -> table {
ASg Masc Indef => base ;
ASg Masc Def => (base+"èÿ") ;
ASgMascDefNom => (base+"èÿò") ;
ASg Fem Indef => (base+"a") ;
ASg Fem Def => (base+"àòà") ;
ASg Neut Indef => (base+"î") ;
ASg Neut Def => (base+"îòî") ;
APl Indef => (ia2e base+"è") ;
APl Def => (ia2e base+"èòå")
};
\base ->
let base0 : Str
= case base of {
x+"è" => x;
x => x
}
in table {
ASg Masc Indef => base ;
ASg Masc Def => (base0+"èÿ") ;
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$.