From 5455046dd89e89a6ed7694999ace8e4ea7f77096 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Wed, 20 Dec 2006 22:13:56 +0000
Subject: [PATCH] Fixed (final?) two bugs in the SISR generation.

---
 src/GF/Speech/SISR.hs | 16 ++++++++--------
 src/GF/Speech/SRG.hs  |  2 +-
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/GF/Speech/SISR.hs b/src/GF/Speech/SISR.hs
index bc1da64ae..372bbc7ea 100644
--- a/src/GF/Speech/SISR.hs
+++ b/src/GF/Speech/SISR.hs
@@ -32,19 +32,19 @@ data SISRFormat =
     SISROld
  deriving Show
 
-type SISRTag = [JS.Expr]
+type SISRTag = [JS.DeclOrExpr]
 
 
 prSISR :: SISRTag -> String
 prSISR = JS.printTree
 
 topCatSISR :: String -> String -> SISRFormat -> SISRTag
-topCatSISR i c fmt = [field (fmtOut fmt) i `ass` fmtRef fmt c]
+topCatSISR i c fmt = map JS.DExpr [field (fmtOut fmt) i `ass` fmtRef fmt c]
 
 profileInitSISR :: CFTerm -> SISRFormat -> SISRTag
 profileInitSISR t fmt 
     | null (usedChildren t) = []
-    | otherwise = [children `ass` JS.ENew (JS.Ident "Array") []]
+    | otherwise = [JS.Decl [JS.DInit children (JS.ENew (JS.Ident "Array") [])]]
 
 usedChildren :: CFTerm -> [Int]
 usedChildren (CFObj _ ts) = foldr union [] (map usedChildren ts)
@@ -55,12 +55,12 @@ usedChildren _ = []
 
 catSISR :: CFTerm -> SRGNT -> SISRFormat -> SISRTag
 catSISR t (c,i) fmt
-        | i `elem` usedChildren t = 
-            [JS.EIndex children (JS.EInt (fromIntegral i)) `ass` fmtRef fmt c]
+        | i `elem` usedChildren t = map JS.DExpr 
+            [JS.EIndex (JS.EVar children) (JS.EInt (fromIntegral i)) `ass` fmtRef fmt c]
         | otherwise = []
 
 profileFinalSISR :: CFTerm -> SISRFormat -> SISRTag
-profileFinalSISR term fmt = g term
+profileFinalSISR term fmt = map JS.DExpr $ g term
   where 
         -- optimization for tokens
         g (CFObj n []) = [field (fmtOut fmt) "name" `ass` JS.EStr (prIdent n)] 
@@ -74,7 +74,7 @@ profileFinalSISR term fmt = g term
           where ret = JS.EVar (JS.Ident "ret")
         f (CFAbs v x) = JS.EFun [var v] [JS.SReturn (f x)]
         f (CFApp x y) = JS.ECall (f x) [f y]
-        f (CFRes i) = JS.EIndex children (JS.EInt (fromIntegral i))
+        f (CFRes i) = JS.EIndex (JS.EVar children) (JS.EInt (fromIntegral i))
         f (CFVar v) = JS.EVar (var v)
         f (CFConst s) = JS.EStr s
 
@@ -83,7 +83,7 @@ fmtOut SISROld = JS.EVar (JS.Ident "$")
 
 fmtRef SISROld c = JS.EVar (JS.Ident ("$" ++ c))
 
-children = JS.EVar (JS.Ident "c")
+children = JS.Ident "c"
 
 var v = JS.Ident ("x" ++ show v)
 
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs
index 64dbbea37..01ccf04be 100644
--- a/src/GF/Speech/SRG.hs
+++ b/src/GF/Speech/SRG.hs
@@ -133,7 +133,7 @@ cfgRulesToSRGRule names probs rs@(r:_) = SRGRule cat origCat rhs
           = SRGAlt (ruleProb probs r) n (mkSRGSymbols 0 ss)
             where
               mkSRGSymbols _ [] = []
-              mkSRGSymbols i (Cat c:ss) = Cat (renameCat c,0) : mkSRGSymbols (i+1) ss
+              mkSRGSymbols i (Cat c:ss) = Cat (renameCat c,i) : mkSRGSymbols (i+1) ss
               mkSRGSymbols i (Tok t:ss) = Tok t : mkSRGSymbols i ss
       renameCat = lookupFM_ names