GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 22:09:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

add NumDigits,OrdDigits,NumInt,OrdInt,AdNum and OrdSuperl

Browse Source
This commit is contained in:
krasimir
2008-02-21 11:36:07 +00:00
parent 05fbf7298f
commit 9556d0ee34
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource/bulgarian/NounBul.gf
View File

@@ -56,8 +56,18 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
NoNum = {s = \\_ => []; n = Pl; nonEmpty = False} ;
NoOrd = {s = \\_ => []; nonEmpty = False} ;
NumDigits n = {s = \\gspec => n.s ! NCard gspec; n = n.n; nonEmpty = True} ;
OrdDigits n = {s = \\aform => n.s ! NOrd aform; nonEmpty = True} ;
NumInt n = {s = \\gspec => n.s ; n = Pl; nonEmpty = True} ; -- DEPRECATED
OrdInt n = {s = \\aform => n.s ++ "th"; nonEmpty = True} ; -- DEPRECATED
NumNumeral numeral = {s = \\gspec => numeral.s ! NCard gspec; n = numeral.n; nonEmpty = True} ;
OrdNumeral numeral = {s = \\aform => numeral.s ! NOrd aform; nonEmpty = True} ;
AdNum adn num = {s = \\gspec => adn.s ++ num.s ! gspec; n = num.n; nonEmpty = num.nonEmpty} ;
OrdSuperl a = {s = \\aform => "íàé" ++ "-" ++ a.s ! aform; nonEmpty = True} ;
DefArt = {
s = \\_ => [] ;