From 9556d0ee34f0bc7bb769ef250611eec40c3fb507 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 21 Feb 2008 11:36:07 +0000
Subject: [PATCH] add NumDigits,OrdDigits,NumInt,OrdInt,AdNum and OrdSuperl

---
 lib/resource/bulgarian/NounBul.gf | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/resource/bulgarian/NounBul.gf b/lib/resource/bulgarian/NounBul.gf
index c9804d9f5..682c7373e 100644
--- a/lib/resource/bulgarian/NounBul.gf
+++ b/lib/resource/bulgarian/NounBul.gf
@@ -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 = \\_ => [] ;