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

ebnf printer: print external cats first.

Browse Source
This commit is contained in:
bjorn
2008-09-26 09:58:57 +00:00
parent 86e94e3b1b
commit a372357adc
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Speech/SRG.hs
View File

@@ -140,8 +140,8 @@ cfRulesToSRGRule rs@(r:_) = SRGRule (lhsCat r) rhs
mkSRGSymbols i (NonTerminal c:ss) = NonTerminal (c,i) : mkSRGSymbols (i+1) ss mkSRGSymbols i (NonTerminal c:ss) = NonTerminal (c,i) : mkSRGSymbols (i+1) ss
mkSRGSymbols i (Terminal t:ss) = Terminal t : mkSRGSymbols i ss mkSRGSymbols i (Terminal t:ss) = Terminal t : mkSRGSymbols i ss
allSRGCats :: SRG -> [String] srgLHSCat :: SRGRule -> Cat
allSRGCats SRG { srgRules = rs } = [c | SRGRule c _ <- rs] srgLHSCat (SRGRule c _) = c
isExternalCat :: SRG -> Cat -> Bool isExternalCat :: SRG -> Cat -> Bool
isExternalCat srg c = c `Set.member` srgExternalCats srg isExternalCat srg c = c `Set.member` srgExternalCats srg
@@ -175,8 +175,9 @@ ungroupTokens = joinRE . mapRE (symbol (RESymbol . NonTerminal) (REConcat . map
-- --
prSRG :: SRG -> String prSRG :: SRG -> String
prSRG = prProductions . map prRule . srgRules prSRG srg = prProductions $ map prRule $ ext ++ int
where where
(ext,int) = partition (isExternalCat srg . srgLHSCat) (srgRules srg)
prRule (SRGRule c alts) = (c,unwords (intersperse "|" (map prAlt alts))) prRule (SRGRule c alts) = (c,unwords (intersperse "|" (map prAlt alts)))
prAlt (SRGAlt _ _ rhs) = prRE prSym rhs prAlt (SRGAlt _ _ rhs) = prRE prSym rhs
prSym = symbol fst (\t -> "\""++ t ++"\"") prSym = symbol fst (\t -> "\""++ t ++"\"")