Commit 5e8cf43da6ddc35fac44d79397f7822e6391f157 - Fountain

Dump the info more nicely in extractloops subcommand. Chris Pressey 1 year, 2 months ago

1 changed file(s) with 4 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

-2

src/Main.hs less more

60	60	["extractloops", grammarFileName] -> do
61	61	grammar <- loadSource grammarFileName
62	62	let expr = Grammar.productionExpr (Grammar.startSymbol grammar) grammar
63		let r = Preprocessor.extractLoops expr
64		output $ show r
	63	let (expr', (_count, constraints)) = Preprocessor.extractLoops expr
	64	putStrLn (Grammar.depictExpr expr')
	65	let constraints' = map (fst) constraints
	66	putStrLn (Grammar.depictExprs constraints')
65	67	("parse":grammarFileName:textFileName:initialParams) -> do
66	68	grammar <- loadSource grammarFileName
67	69	let grammar' = Preprocessor.preprocessGrammarForParsing grammar