From e22464e59418f47e48d0e3bec446f6799c3bc25f Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Wed, 15 Sep 2004 16:16:34 +0000
Subject: [PATCH] Use .MAIN for the start category.

---
 src/GF/Speech/PrGSL.hs | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/src/GF/Speech/PrGSL.hs b/src/GF/Speech/PrGSL.hs
index 259e7a023..c7cb283c6 100644
--- a/src/GF/Speech/PrGSL.hs
+++ b/src/GF/Speech/PrGSL.hs
@@ -77,23 +77,19 @@ cfgToGSL name start =
     cfgRulesToGSLRule rs@(r:_) = GSLRule (ruleCat r) (map ruleRhs rs)
 
 mkCatNames :: GSLGrammar -> CatNames
-mkCatNames (GSLGrammar name start rules) = 
-    listToFM (zipWith dotIfStart lhsCats names)
+mkCatNames (GSLGrammar name start rules) = listToFM (zip lhsCats names)
     where names = [name ++ "_" ++ show x | x <- [0..]]
 	  lhsCats = [ c | GSLRule c _ <- rules]
-	  dotIfStart c n | c == start = (c, "." ++ n)
-			 | otherwise = (c, n)
 
 prGSLGrammar :: CatNames -> GSLGrammar -> ShowS
 prGSLGrammar names (GSLGrammar name start g) = 
-    header . unlinesS (map prGSLrule g)
+    header . mainCat . unlinesS (map prGSLrule g)
     where
     header = showString ";GSL2.0" . nl 
-	     . comments ["Nuance speech synthesis grammar for " ++ name,
-			 "Generated by GF",
-			 "Start category: " ++ start 
-			 ++ " (" ++ prGSLCat start ")"]
-	     . nl . nl
+	     . comments ["Nuance speech recognition grammar for " ++ name,
+			 "Generated by GF"] . nl . nl
+    mainCat = showString ("; Start category: " ++ start) . nl 
+	      . showString ".MAIN " . prGSLCat start . nl . nl
     prGSLrule (GSLRule cat rhs) = 
       showString "; " . prtS cat . nl
         . prGSLCat cat . sp . wrap "[" (unwordsS (map prGSLAlt rhs)) "]" . nl