diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-05-31 19:41:05 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-05-31 19:41:05 +0000 |
| commit | 0e484f094fef8abbe141286457768b197686715f (patch) | |
| tree | fc9658495aa33680d5c1618805f83a24d6e7fcbe /src | |
| parent | c51846361f18d372542f69e4bb281ef834750312 (diff) | |
Disable special treatment of lists in SRGS+SISR generation, since OptimTalk can't handle it.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/PrSRGS.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index dae6f35f6..20f42523a 100644 --- a/src/GF/Speech/PrSRGS.hs +++ b/src/GF/Speech/PrSRGS.hs @@ -59,8 +59,10 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start, ++ map ruleToXML rs) ruleToXML (SRGRule cat origCat alts) = rule (prCat cat) (comments ["Category " ++ origCat] ++ prRhs isList alts) - where isList = "List" `isPrefixOf` origCat && length cs == 2 - && isBase (cs!!0) && isCons (cs!!1) + where isList = False + -- Disabled list build since OptimTalk can't handle it ATM + {- "List" `isPrefixOf` origCat && length cs == 2 + && isBase (cs!!0) && isCons (cs!!1) -} cs = sortNub [f | SRGAlt _ (Name f _) _ <- alts] prRhs isList rhss = [oneOf (map (mkProd sisr isList) rhss)] -- externally visible rules for each of the GF categories |