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

remove some redundant dependencies from FCFG

Browse Source
This commit is contained in:
kr.angelov
2007-09-23 20:01:25 +00:00
parent f17728ee55
commit 0cd5e62e83
12 changed files with 13 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Parsing/FCFG/Active.hs
View File

@@ -14,12 +14,9 @@ import GF.Data.Assoc
import GF.Data.SortedList
import GF.Data.Utilities
import GF.Formalism.GCFG
import GF.Formalism.FCFG
import GF.Formalism.MCFG(Lin(..))
import GF.Formalism.Utilities
import GF.Infra.Ident
import GF.Infra.PrintClass
import GF.Parsing.FCFG.Range

5
src/GF/Parsing/FCFG/PInfo.hs
View File

@@ -9,11 +9,8 @@
module GF.Parsing.FCFG.PInfo where
import GF.System.Tracing
import GF.Infra.PrintClass
import GF.Formalism.Utilities
import GF.Formalism.GCFG
import GF.Formalism.FCFG
import GF.Data.SortedList
import GF.Data.Assoc
@@ -73,8 +70,6 @@ getLeftCornerCat lins
buildFCFPInfo :: (Ord c, Ord n, Ord t) => (t -> (c,SyntaxNode RuleId RangeRec)) -> FCFGrammar c n t -> FCFPInfo c n t
buildFCFPInfo lexer grammar =
traceCalcFirst grammar $
tracePrt "MCFG.PInfo - parser info" (prt) $
FCFPInfo { allRules = allrules
, topdownRules = topdownrules
-- , emptyRules = emptyrules