blob: 46e4fcc3ba22c1cdeff1baa78d92688bdaaed0b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
----------------------------------------------------------------------
-- |
-- Module : Statistics
-- Maintainer : AR
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/09/04 11:45:38 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.1 $
--
-- statistics on canonical grammar: amounts of generated code
-- AR 4\/9\/2005.
-- uses canonical grammar
-----------------------------------------------------------------------------
module GF.UseGrammar.Statistics (prStatistics) where
import GF.Infra.Modules
import GF.Infra.Option
import GF.Grammar.PrGrammar
import GF.Canon.GFC
import GF.Canon.MkGFC
import GF.Data.Operations
import Data.List (sortBy)
-- | the top level function
prStatistics :: CanonGrammar -> String
prStatistics can = unlines $ [
show (length mods) ++ "\t\t modules",
show chars ++ "\t\t gfc size",
"",
"Top 40 definitions"
] ++
[show d ++ "\t\t " ++ f | (d,f) <- tops]
where
tops = take 40 $ reverse $ sortBy (\ (i,_) (j,_) -> compare i j) defs
defs = [(length (prt (info2def j)), name m j) | (m,j) <- infos]
infos = [(m,j) | (m,ModMod mo) <- mods, j <- tree2list (jments mo)]
name m (f,_) = prt m ++ "." ++ prt f
mods = modules can
chars = length $ prCanon can
|
