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 |
| argument "identity" args = go id |
38 |
| argument "lex" args = show (alexScanTokens input) |
| argument "lex" args = show (alexScanTokens input) ++ "\n" |
39 |
| argument "tree" args = show stylesheet ++ "\n" |
| argument "tree" args = show stylesheet ++ "\n" |
40 |
| argument "statistics" args = stats stylesheet ++ "\n" |
| argument "statistics" args = stats stylesheet ++ "\n" |
41 |
| otherwise = usage |
| otherwise = usage |
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", |
" -i, --identity just parse and output unmodified", |
66 |
|
" -l, --lex tokenise and display token stream", |
67 |
" -t, --tree parse and display parse tree", |
" -t, --tree parse and display parse tree", |
68 |
" -s, --statistics count rulesets, selectors, and declarations", |
" -s, --statistics count rulesets, selectors, and declarations", |
69 |
"", |
"", |