msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

code polishing for the literal category support

Browse Source
This commit is contained in:
kr.angelov
2006-06-08 21:23:29 +00:00
parent 475a56c64f
commit 5999274d1e
12 changed files with 120 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Formalism/CFG.hs
View File

@@ -33,8 +33,8 @@ type CFChart c n t = CFGrammar (Edge c) n t
-- building syntax charts from grammars
grammar2chart :: (Ord n, Ord e) => CFGrammar e n t -> SyntaxChart n e
grammar2chart cfchart = accumAssoc groupPairs $
[ (lhs, (name, filterCats rhs)) |
grammar2chart cfchart = accumAssoc groupSyntaxNodes $
[ (lhs, SNode name (filterCats rhs)) |
CFRule lhs rhs name <- cfchart ]