/[james]/factorcss/FactorCSS.hs
ViewVC logotype

Diff of /factorcss/FactorCSS.hs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 66 by james, Thu Dec 30 21:22:59 2004 UTC revision 69 by james, Fri Jan 7 21:54:20 2005 UTC
# Line 34  run args input Line 34  run args input
34          | null args                     = go factor          | null args                     = go factor
35          | argument "factor" args        = go factor          | argument "factor" args        = go factor
36          | argument "explode" args       = go (concatMap explode)          | argument "explode" args       = go (concatMap explode)
37            | argument "identity" args      = go id
38            | argument "lex" args           = show (alexScanTokens input)
39            | argument "tree" args          = show stylesheet ++ "\n"
40            | argument "statistics" args    = stats stylesheet ++ "\n"
41          | otherwise                     = usage          | otherwise                     = usage
42          where   go f = (unlines . show_stylesheet . process f .          where   go f = (unlines . show_stylesheet . process f) stylesheet
43                                  parser . alexScanTokens) input                  stylesheet = (parser . alexScanTokens) input
44    
45  -- Check an argument list for an argument in short or long form.  -- Check an argument list for an argument in short or long form.
46  argument :: String -> [String] -> Bool  argument :: String -> [String] -> Bool
# Line 56  usage = unlines ["Usage: factorcss [OPTI Line 60  usage = unlines ["Usage: factorcss [OPTI
60                  "standard output.",                  "standard output.",
61                  "",                  "",
62                  "Output mode:",                  "Output mode:",
63                  "  -f, --factor   factor out common declarations (default)",                  "  -f, --factor      factor out common declarations (default)",
64                  "  -e, --explode  produce rulesets with one selector and declaration each",                  "  -e, --explode     produce rulesets with one selector and declaration each",
65                    "  -i, --identity    just parse and output unmodified",
66                    "  -t, --tree        parse and display parse tree",
67                    "  -s, --statistics  count rulesets, selectors, and declarations",
68                  "",                  "",
69                  "  -h, --help     display this help and exit"]                  "  -h, --help        display this help and exit"]
70    
71  -- Process a Stylesheet.  -- Process a Stylesheet.
72  process :: ([Statement] -> [Statement]) -> Stylesheet -> Stylesheet  process :: ([Statement] -> [Statement]) -> Stylesheet -> Stylesheet
# Line 136  eq_decl z = (== EQ) . cmp_decl z Line 143  eq_decl z = (== EQ) . cmp_decl z
143  implode_sel :: [Statement] -> Statement  implode_sel :: [Statement] -> Statement
144  implode_sel ((Ruleset sels decls):stmts) =  implode_sel ((Ruleset sels decls):stmts) =
145                  Ruleset sels (concat (decls:(map declarations stmts)))                  Ruleset sels (concat (decls:(map declarations stmts)))
         where   declarations :: Statement -> [Declaration]  
                 declarations (Ruleset s d) = d  
146    
147  -- Implode a list of Ruleset Statements with equal lists of Declarations to a  -- Implode a list of Ruleset Statements with equal lists of Declarations to a
148  -- single equivalent Ruleset Statement.  -- single equivalent Ruleset Statement.
# Line 149  implode_sel ((Ruleset sels decls):stmts) Line 154  implode_sel ((Ruleset sels decls):stmts)
154  implode_decl :: [Statement] -> Statement  implode_decl :: [Statement] -> Statement
155  implode_decl ((Ruleset sels decls):stmts) =  implode_decl ((Ruleset sels decls):stmts) =
156                  Ruleset (concat (sels:(map selectors stmts))) decls                  Ruleset (concat (sels:(map selectors stmts))) decls
157          where   selectors :: Statement -> [Selector]  
158                  selectors (Ruleset s d) = s  -- Count rulesets, selectors, and declarations in a Stylesheet.
159    stats :: Stylesheet -> String
160    stats (Stylesheet charset imports stmts)
161            | n == 0        = "0 rulesets"
162            | otherwise     = "rulesets " ++ show n ++
163                              ", selectors min " ++ show s0 ++
164                              " max " ++ show s1 ++
165                              " mean " ++ take 5 (
166                                    show (fromIntegral sn / fromIntegral n)) ++
167                              ", declarations min " ++ show d0 ++
168                              " max " ++ show d1 ++
169                              " mean " ++ take 5 (
170                                    show (fromIntegral dn / fromIntegral n))
171            where [n, s0, s1, sn, d0, d1, dn] = stats_stmts stmts
172    
173    -- Count rulesets, selectors, and declarations in a list of Statements.
174    stats_stmts :: [Statement] -> [Int]
175    stats_stmts stmts = stats_rulesets (filter is_ruleset stmts ++
176                    (concatMap get_stmts (filter is_media stmts)))
177                    where   get_stmts (Media media stmts) = stmts
178    
179    -- Count rulesets, selectors, and declarations in a list of Ruleset Statements.
180    stats_rulesets :: [Statement] -> [Int]
181    stats_rulesets stmts = [length stmts,
182                    minimum sel_lengths, maximum sel_lengths, sum sel_lengths,
183                    minimum decl_lengths, maximum decl_lengths, sum decl_lengths]
184                    where   sel_lengths = map (length . selectors) stmts
185                            decl_lengths = map (length . declarations) stmts
186    
187    -- Extract the list of Selectors from a Ruleset Statement.
188    selectors :: Statement -> [Selector]
189    selectors (Ruleset s d) = s
190    
191    -- Extract the list of Declarations from a Ruleset Statement.
192    declarations :: Statement -> [Declaration]
193    declarations (Ruleset s d) = d
Legend:
Removed from v.66  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.26