From 7585d68dd874f6f5d70a0eeed205242694b9c689 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Tue, 12 Nov 2013 10:34:07 +0000
Subject: [PATCH] use SOFT_BIND to glue the hyphen in the comparative and
 superlative forms of the Bulgarian adjectives

---
 lib/src/bulgarian/AdjectiveBul.gf | 8 ++++----
 lib/src/bulgarian/NounBul.gf      | 2 +-
 lib/src/bulgarian/ResBul.gf       | 1 +
 3 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/src/bulgarian/AdjectiveBul.gf b/lib/src/bulgarian/AdjectiveBul.gf
index ca1306482..1b57e2c4e 100644
--- a/lib/src/bulgarian/AdjectiveBul.gf
+++ b/lib/src/bulgarian/AdjectiveBul.gf
@@ -9,13 +9,13 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
       } ;
 
     ComparA a np = {
-      s = \\aform => "по" ++ "-" ++ a.s ! aform ++ "от" ++ np.s ! RObj Acc ; 
-      adv = "по" ++ "-" ++ a.adv ++ "от" ++ np.s ! RObj Acc ;
+      s = \\aform => "по" ++ hyphen ++ a.s ! aform ++ "от" ++ np.s ! RObj Acc ; 
+      adv = "по" ++ hyphen ++ a.adv ++ "от" ++ np.s ! RObj Acc ;
       isPre = True
       } ;
     UseComparA a = {
-      s = \\aform => "по" ++ "-" ++ a.s ! aform ; 
-      adv = "по" ++ "-" ++ a.adv ;
+      s = \\aform => "по" ++ hyphen ++ a.s ! aform ; 
+      adv = "по" ++ hyphen ++ a.adv ;
       isPre = True
       } ;
 
diff --git a/lib/src/bulgarian/NounBul.gf b/lib/src/bulgarian/NounBul.gf
index 06bd59a18..69b16b178 100644
--- a/lib/src/bulgarian/NounBul.gf
+++ b/lib/src/bulgarian/NounBul.gf
@@ -102,7 +102,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
     
     AdNum adn num = {s = \\gspec => adn.s ++ num.s ! gspec; n = num.n; nonEmpty = num.nonEmpty} ;
 
-    OrdSuperl a = {s = \\aform => "най" ++ "-" ++ a.s ! aform} ;
+    OrdSuperl a = {s = \\aform => "най" ++ hyphen ++ a.s ! aform} ;
 
     DefArt = {
       s  = table {
diff --git a/lib/src/bulgarian/ResBul.gf b/lib/src/bulgarian/ResBul.gf
index 26190cd76..9af64d7de 100644
--- a/lib/src/bulgarian/ResBul.gf
+++ b/lib/src/bulgarian/ResBul.gf
@@ -695,4 +695,5 @@ resource ResBul = ParamX ** open Prelude, Predef in {
     linCoordSep s = table {True => linCoord; False=> \\_ => s} ;
     
     comma : Str = SOFT_BIND ++ "," ;
+    hyphen : Str = SOFT_BIND ++ "-" ++ SOFT_BIND ;
 }