GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 01:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

SRG always has RE rhs.

Browse Source
This commit is contained in:
bringert
2007-06-21 13:11:26 +00:00
parent 23d1917b0d
commit 4d28e6ec1c
5 changed files with 27 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Speech/PrGSL.hs
View File

@@ -48,12 +48,12 @@ prGSL (SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs})
text ".MAIN" <+> prCat start
prRule (SRGRule cat origCat rhs) =
comment (prt origCat) $$
prCat cat <+> union (map prAlt (ebnfSRGAlts rhs))
prCat cat <+> union (map prAlt rhs)
-- FIXME: use the probability
prAlt (EBnfSRGAlt mp _ rhs) = prItem rhs
prAlt (SRGAlt mp _ rhs) = prItem rhs
prItem :: EBnfSRGItem -> Doc
prItem :: SRGItem -> Doc
prItem = f
where
f (REUnion xs) = (if null es then empty else text "?") <> union (map f nes)