diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-06-21 13:11:26 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-06-21 13:11:26 +0000 |
| commit | 336273c5344a22f225e54d36b874c6307127b281 (patch) | |
| tree | e551aa4b2bffe01747c69122771228cbdb1436b7 /src/GF/Speech/PrJSGF.hs | |
| parent | bff87e513a3d060f6ac9d8e79e4d37c9fbfdf26d (diff) | |
SRG always has RE rhs.
Diffstat (limited to 'src/GF/Speech/PrJSGF.hs')
| -rw-r--r-- | src/GF/Speech/PrJSGF.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs index a86cd71b7..efdce4d75 100644 --- a/src/GF/Speech/PrJSGF.hs +++ b/src/GF/Speech/PrJSGF.hs @@ -60,10 +60,10 @@ prJSGF sisr srg@(SRG{grammarName=name,grammarLanguage=ml, Nothing -> empty prRule (SRGRule cat origCat rhs) = comment origCat $$ - rule False cat (map prAlt (ebnfSRGAlts rhs)) + rule False cat (map prAlt rhs) -- rule False cat (map prAlt rhs) -- FIXME: use the probability - prAlt (EBnfSRGAlt mp n rhs) = sep [initTag, parens (prItem sisr n rhs), finalTag] + prAlt (SRGAlt mp n rhs) = sep [initTag, parens (prItem sisr n rhs), finalTag] -- prAlt (SRGAlt mp n rhs) = initTag <+> prItem sisr n rhs <+> finalTag where initTag | isEmpty t = empty | otherwise = text "<NULL>" <+> t @@ -79,7 +79,7 @@ catFormId = (++ "_cat") prCat :: SRGCat -> Doc prCat c = char '<' <> text c <> char '>' -prItem :: Maybe SISRFormat -> CFTerm -> EBnfSRGItem -> Doc +prItem :: Maybe SISRFormat -> CFTerm -> SRGItem -> Doc prItem sisr t = f 1 where f _ (REUnion []) = text "<VOID>" |