diff options
| author | krasimir <krasimir@chalmers.se> | 2008-05-29 15:15:00 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-05-29 15:15:00 +0000 |
| commit | 96bdd18dc3822acf307129bc8348ba7ace563807 (patch) | |
| tree | fb1b3f051fb6628a447cc190656641fc4a6b0a93 /src-3.0/GF/GFCC/BuildParser.hs | |
| parent | 77e05b0b3654afae0727c168ca212131ba8223fd (diff) | |
drop the dependency to GF.Infra.PrintClass from the Library
Diffstat (limited to 'src-3.0/GF/GFCC/BuildParser.hs')
| -rw-r--r-- | src-3.0/GF/GFCC/BuildParser.hs | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/src-3.0/GF/GFCC/BuildParser.hs b/src-3.0/GF/GFCC/BuildParser.hs index 3f03bf648..1f9e6ab5f 100644 --- a/src-3.0/GF/GFCC/BuildParser.hs +++ b/src-3.0/GF/GFCC/BuildParser.hs @@ -9,7 +9,6 @@ module GF.GFCC.BuildParser where -import GF.Infra.PrintClass import GF.GFCC.Parsing.FCFG.Utilities import GF.Data.SortedList import GF.Data.Assoc @@ -63,22 +62,3 @@ buildParserInfo (grammar,startup) = -- trace (unlines [prt (x,Set.toList set) | leftcorntoks = accumAssoc id [ (tok, ruleid) | (ruleid, rule) <- assocs allrules, tok <- getLeftCornerTok rule ] grammarcats = aElems topdownrules grammartoks = nubsort [t | (FRule _ _ _ _ lins) <- grammar, lin <- elems lins, FSymTok t <- elems lin] - - ----------------------------------------------------------------------- --- pretty-printing of statistics - -instance Print ParserInfo where - prt pI = "[ allRules=" ++ sl (elems . allRules) ++ - "; tdRules=" ++ sla topdownRules ++ - -- "; emptyRules=" ++ sl emptyRules ++ - "; epsilonRules=" ++ sl epsilonRules ++ - "; lcCats=" ++ sla leftcornerCats ++ - "; lcTokens=" ++ sla leftcornerTokens ++ - "; categories=" ++ sl grammarCats ++ - " ]" - - where sl f = show $ length $ f pI - sla f = let (as, bs) = unzip $ aAssocs $ f pI - in show (length as) ++ "/" ++ show (length (concat bs)) - |